Curve.ReverseDirection

Sub ReverseDirection()

Member of Curve

The ReverseDirection method changes the curve flow to the oposite direction. The first node becomes the last and the last node becomes the first. This is performed for each subpath of the curve.

The following code example creates a line . An arrowhead is applied to the start position of the line, and the zoom of the active window is increased to 200%. The ReverseDirection method is applied, and the arrowhead that was initially applied to a specific end of the line now appears at the opposite end of the line.

Sub CurveReverse() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateLineSegment(0, 0, 5, 5) 
 s.Outline.StartArrow = ArrowHeads(3) 
 ActiveWindow.ActiveView.Zoom = 200 
 s.Curve.ReverseDirection 
End Sub