Curve.GetCopy

Function GetCopy() As Curve

Member of Curve

The GetCopy method returns a copy of the properties of a curve. The properties are copied as a free curve.

The following code example creates a spiral, makes a copy of the curve, and adjusts the nodes of the copy. It then assigns the properties of the copy to the original shape.

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 c 
End Sub