NodeRange.RemoveRange

Sub RemoveRange(NodeRange As NodeRange)

The RemoveRange method removes the nodes in the specified range from the current range.


Parameters	Description
NodeRange	Specifies the range of nodes that are removed

The following code example creates a curve and two node ranges. The first node range contains all of the nodes, and the second node range contains all of the cusp nodes. The second node range is removed from the first, leaving all nodes except cusp nodes in the first node range.

Sub Test() 
 Dim s As Shape 
 Dim n As Node 
 Dim sp As SubPath 
 Dim crv As Curve 
 Dim nr1 As NodeRange 
 Dim nr2 As New NodeRange 
 Set crv = CreateCurve(ActiveDocument) 
 ActiveDocument.ReferencePoint = cdrBottomLeft 
 Set sp = crv.CreateSubPath(-1, 0.2) 
 sp.AppendLineSegment 0.5, 1 
 sp.AppendCurveSegment 2, 3 
 sp.AppendCurveSegment 4, 1 
 sp.AppendCurveSegment 5, 4 
 sp.AppendCurveSegment 7, 2 
 sp.AppendLineSegment 8, 5 
 sp.AppendLineSegment 9, 1 
 sp.Nodes(2).Type = cdrSmoothNode 
 sp.Nodes(4).Type = cdrSmoothNode 
 Set s = ActiveLayer.CreateCurve(crv) 
 Set nr1 = s.Curve.Nodes.All 
 For Each n In s.Curve.Nodes 
  If n.Type = cdrCuspNode Then 
   nr2.Add n 
  End If 
 Next n 
 nr1.RemoveRange nr2 
End Sub