SubPath.ReverseDirection

Sub ReverseDirection()

The ReverseDirection method reverses the direction of the subpath without affecting other subpaths of the curve. The ReverseDirection method reverses the node order by reversing the order of their index numbers.

The following code example creates a curve object containing 10 subpaths. It applies end arrowheads to them and then reverses the direction of the third subpath.

Sub Test() 
 Dim sr As New ShapeRange 
 Dim s As Shape 
 Dim n As Long 
 For n = 1 To 10 
  sr.Add ActiveLayer.CreateLineSegment(0, n / 2, 5, n / 2) 
 Next n 
 Set s = sr.Combine 
 s.Outline.EndArrow = ArrowHeads(2) 
 s.Curve.Subpaths(3).ReverseDirection 
End Sub