Sub Test() Dim c As Curve, n As Node, s As Shape Set s = ActiveLayer.CreateSpiral(4, 5, 7, 2, 8, cdrSymmetric, 2) Set c = s.Curve.GetCopy For Each n In c.Nodes n.Move Rnd(), Rnd() - 0.5 Next n s.Curve.CopyAssign cEnd Sub