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.


Parameters	Description
x	Specifies the horizontal position of the new line segment that is appended to the subpath. The x-coordinate is measured in document units.
y	Specifies the vertical position of the new line segment that is appended to the subpath. The y-coordinate is measured in document units.
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 code 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