Object Model Reference : Classes : A : Application : Methods : Application.CreateNodeRange
|
|
| Object Model Reference : Classes : A : Application : Methods : Application.CreateNodeRange |
Function CreateNodeRange() As NodeRange
Member of Application
The CreateNodeRange method creates an empty NodeRange object.
The following VBA example creates an ellipse and converts it to curves. Every second node is added to the node range, and the nodes are moved along the y-axis.
Sub Test() |
Dim s As Shape |
Dim crv As Curve |
Dim nr As NodeRange |
Dim n As Node |
Dim i As Integer |
Set s = ActiveLayer.CreateEllipse(0, 0, 5, 5) |
s.ConvertToCurves |
Set nr = CreateNodeRange |
For i = 1 To s.Curve.Nodes.Count Step 2 |
Set n = s.Curve.Nodes(i) |
nr.Add n |
Next i |
nr.Move 0, 2 |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.