Object Model Reference : Classes : N : NodeRange : Properties : NodeRange.SegmentRange |
Property SegmentRange As SegmentRange
Member of NodeRange
The SegmentRange property returns a SegmentRange object containing all segments that start at the nodes in the current node range.
The SegmentRange property returns a read-only value.
The following VBA example converts all selected nodes in the current curve to smooth nodes, and it converts all of the associated segments to curve segments.
Sub Test() |
Dim nr As NodeRange |
Dim sr As SegmentRange |
Set nr = ActiveShape.Curve.Selection |
If nr.Count > 0 Then |
Set sr = nr.SegmentRange |
sr.SetType cdrCurveSegment |
nr.SetType cdrSmoothNode |
End If |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.