Curve.Selection

Function Selection() As NodeRange

Member of Curve

The Selection method returns a NodeRange object that contains all preselected nodes of the curve. This method may only be used when the Shape tool is the active tool.

The following code example selects an object in the active document and determines if the object is a curve object. If it is a curve, it evaluates the pre-selected nodes in the object's selection. If the node type in the selection is mixed nodes, it displays a message in a message box.

Sub CurveSelection() 
 Dim s As Shape 
 Dim nr As NodeRange 
 Set s = ActiveSelection.Shapes(1) 
 If s.Type = cdrCurveShape Then 
  Set nr = s.Curve.Selection 
  If nr.type=cdrMixedNodes then 
   MsgBox "The current curve selection has mixed nodes." 
  End If 
 End If 
End Sub