SegmentRange.Add

Sub Add(Segment As Segment)

Member of SegmentRange

The Add method adds a segment to a range.

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.