Segment.SetStartingControlPointPosition

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

Segment.SetStartingControlPointPosition

Sub SetStartingControlPointPosition(PositionX As Double, PositionY As Double)

Description

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