Segment.GetEndingControlPointPosition

Sub GetEndingControlPointPosition(PositionX As Double, PositionY As Double)

The GetEndingControlPointPosition method returns the position of the ending control point.


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

The following code example creates a curve and 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