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, 2End Sub