Node.PositionX

Property PositionX As Double

Member of Node

The PositionX property returns or sets the x-coordinate of a node relative to its reference point.

The following code example draws small ellipses over each node in the selected curve and colors each ellipse according to the type of the node:

Sub ShowNodes() 
 Dim n As Node 
 Dim s As Shape 
 For Each n In ActiveShape.Curve.Nodes 
  Set s = ActiveLayer.CreateEllipse2(n.PositionX, n.PositionY, 0.05) 
  Select Case n.Type 
   Case cdrSymmetricalNode 
    s.Fill.UniformColor.RGBAssign 0, 0, 255 
   Case cdrSmoothNode 
    s.Fill.UniformColor.RGBAssign 255, 255, 0 
   Case cdrCuspNode 
    s.Fill.UniformColor.RGBAssign 255, 0, 0 
  End Select 
 Next n 
End Sub