Object Model Reference : Classes : S : SegmentRange : Methods : SegmentRange.RemoveAll
|
|
| Object Model Reference : Classes : S : SegmentRange : Methods : SegmentRange.RemoveAll |
Sub RemoveAll()
Member of SegmentRange
The RemoveAll method removes all segments from a segment range without affecting the segments themselves.
The following VBA 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 2013 Corel Corporation. All rights reserved.