SegmentRange.RemoveAll

Sub RemoveAll()

Member of SegmentRange

The RemoveAll method removes all segments from the range. This excludes the segments from the range object, but does not affect the segments themselves.

The following code example adds an extra node to the middle of any segment longer than 1", dividing it into two separate segments:

Sub Test() 
 Dim sgr As New SegmentRange 
 Dim seg As Segment 
 Do 
  sgr.RemoveAll 
  For Each seg In ActiveShape.Curve.Segments 
   If seg.Length > 1 Then sgr.Add seg 
  Next seg 
  If sgr.Count <> 0 Then sgr.AddNode 
 Loop While sgr.Count <> 0 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.