SubPath.AppendLineSegment

Function AppendLineSegment(x As Double, y As Double, [AppendAtBeginning As Boolean = False]) As Segment

The AppendLineSegment method joins a new line segment to the beginning or the end of an open subpath.


Parameter	Description
x	Specifies, in document units, the horizontal position of the new line segment to append to the subpath
y	Specifies, in document units, the vertical position of the new line segment to append to the subpath
AppendAtBeginning	Specifies whether the new line segment joins the subpath at the head of the subpath. This parameter is optional, and its default value is False.

The following VBA example creates a closed curve and applies a fountain fill to it.

Sub Test()

Dim s As Shape

Dim crv As Curve

Dim sp As SubPath

Dim c As New Color

Set crv = CreateCurve(ActiveDocument)

Set sp = crv.CreateSubPath(0, 0)

sp.AppendLineSegment 3.6, 0, False

sp.AppendCurveSegment 3.6, 0.8, 0.43, 160, 0.43, -160, False

sp.AppendLineSegment 0, 0.8, False

sp.AppendCurveSegment 0, 0, 0.43, -20, 0.43, 20, False

sp.Closed = True

Set s = ActiveLayer.CreateCurve(crv)

c.CMYKAssign 0, 0, 0, 100

With s.Fill.ApplyFountainFill(c, c, , 90, , , , cdrCustomFountainFillBlend).Colors

.Add CreateCMYKColor(0, 0, 0, 0), 70

End With

End Sub