Segment.SetEndingControlPointPosition

Sub SetEndingControlPointPosition(PositionX As Double, PositionY As Double)

The SetEndingControlPointPosition method sets the positin of the ending control point.


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

The following code example creates a curve, and it sets the ending control point of the last segment to the same position as the ending control point of 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.GetEndingControlPointPosition x, y 
 Set seg2 = 
ActiveShape.Curve.Segments(ActiveShape.Curve.Segments.Count) 
 seg2.SetEndingControlPointPosition x, y 
End Sub