Previous Document Next Document

Object Model Reference : Classes : S : Segment : Methods : Segment.SetStartingControlPointPosition


Segment.SetStartingControlPointPosition

Sub SetStartingControlPointPosition(PositionX As Double, PositionY As Double)

Description

Member of Segment

The SetStartingControlPointPosition method sets the position of the starting control point for a segment.

Parameter
Description
PositionX
Specifies the horizontal position
PositionY
Specifies the vertical position

VBA example

The following VBA example creates a curve, and it sets the starting control point of the last segment to the same position as the starting control point for the second segment.

Sub Test()
 Dim s As Shape, s2 As Shape
 Dim sp As SubPath
 Dim crv As Curve, crv2 As Curve
 Dim seg As Segment, seg2 As Segment
 Dim x As Double, y As Double
 Set crv = CreateCurve(ActiveDocument)
 ActiveDocument.ReferencePoint = cdrBottomLeft
 Set sp = crv.CreateSubPath(1, 1)
 sp.AppendLineSegment 1, 1
 sp.AppendCurveSegment 3, 3
 sp.AppendCurveSegment 5, 1
 sp.AppendCurveSegment 6, 4
 sp.Nodes(2).Type = cdrSmoothNode
 sp.Nodes(3).Type = cdrSmoothNode
 Set s = ActiveLayer.CreateCurve(crv)
 Set seg = ActiveShape.Curve.Segments(2)
 seg.GetStartingControlPointPosition x, y
 Set seg2 = ActiveShape.Curve.Segments(ActiveShape.Curve.Segments.Count)
 seg2.SetStartingControlPointPosition x, y
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.