Sub Test() Dim n As Node Dim x As Double, y As Double For Each n In ActiveShape.Curve.Nodes n.GetPosition x, y ActiveLayer.CreateEllipse2 x, y, 0.05 Next nEnd Sub