Curve.CopyAssign

Sub CopyAssign(Source As Curve)

Member of Curve

The CopyAssign method copies properties from another curve and applies them to the current curve.


Parameters	Description
Source	Specifies the curve to copy

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