Object Model Reference : Classes : S : Segment : Methods : Segment.GetStartingControlPointPosition
|
|
| Object Model Reference : Classes : S : Segment : Methods : Segment.GetStartingControlPointPosition |
Sub GetStartingControlPointPosition(PositionX As Double, PositionY As Double)
Member of Segment
The GetStartingControlPointPosition method returns the position of the starting control point.
|
Parameter
|
Description
|
|
PositionX
|
Specifies the horizontal position
|
|
PositionY
|
Specifies the vertical position
|
The following VBA example creates a curve, and it sets the starting control point of the last segment to the same position as the starting control point for the second segment.
Sub Test() |
Dim s As Shape, s2 As Shape |
Dim sp As SubPath |
Dim crv As Curve, crv2 As Curve |
Dim seg As Segment, seg2 As Segment |
Dim x As Double, y As Double |
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.Nodes(2).Type = cdrSmoothNode |
sp.Nodes(3).Type = cdrSmoothNode |
Set s = ActiveLayer.CreateCurve(crv) |
Set seg = ActiveShape.Curve.Segments(2) |
seg.GetStartingControlPointPosition x, y |
Set seg2 = ActiveShape.Curve.Segments(ActiveShape.Curve.Segments.Count) |
seg2.SetStartingControlPointPosition x, y |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.