Segment.GetCopy

Function GetCopy() As Curve

Member of Segment

The GetCopy method returns a copy of the active segment as a separate curve.

The following VBA example creates a curve and copies its second segment to form a second curve. It then creates another shape from the second curve.

Sub Test()

Dim s As Shape, s2 As Shape

Dim sp As SubPath

Dim crv As Curve, crv2 As Curve

Set crv = CreateCurve(ActiveDocument)

ActiveDocument.ReferencePoint = cdrBottomLeft

Set sp = crv.CreateSubPath(1, 1)

sp.AppendLineSegment 1, 1

sp.AppendCurveSegment 3, 3

sp.AppendCurveSegment 5, 1

sp.AppendCurveSegment 6, 4

sp.AppendCurveSegment 8, 2

sp.AppendLineSegment 10, 5

sp.Nodes(2).Type = cdrSmoothNode

sp.Nodes(3).Type = cdrSmoothNode

sp.Nodes(4).Type = cdrSymmetricalNode

sp.Nodes(5).Type = cdrSmoothNode

Set s = ActiveLayer.CreateCurve(crv)

Set crv2 = s.Curve.Segments(2).GetCopy

Set s2 = ActiveLayer.CreateCurve(crv2)

s2.Move 0, 2

End Sub