Application.CreateNodeRange

Function CreateNodeRange() As NodeRange

The CreateNodeRange method creates an empty NodeRange object.

The following code example creates an ellipse and converts it to curves. Every second node is added to the NodeRange, and the nodes are moved along the y-axis.

Sub Test() 
 Dim s As Shape 
 Dim crv As Curve 
 Dim nr As NodeRange 
 Dim n As Node 
 Dim i As Integer 
 Set s = ActiveLayer.CreateEllipse(0, 0, 5, 5) 
 s.ConvertToCurves 
 Set nr = CreateNodeRange 
 For i = 1 To s.Curve.Nodes.Count Step 2 
  Set n = s.Curve.Nodes(i) 
  nr.Add n 
 Next i 
 nr.Move 0, 2 
End Sub