Object Model Reference : Classes : S : Segment : Properties : Segment.EndingControlPointX
|
|
| Object Model Reference : Classes : S : Segment : Properties : Segment.EndingControlPointX |
Property EndingControlPointX As Double
Member of Segment
The EndingControlPointX property returns or specifies the x-coordinate of the ending control point of a curve segment. This property is measured in document units.
The following VBA example marks, with a small circle, the position of each control point of the selected curve.
Sub Test() |
Dim s As Shape |
Dim seg As Segment |
Set s = ActiveShape |
If s.Type = cdrCurveShape Then |
For Each seg In s.Curve.Segments |
If seg.Type = cdrCurveSegment Then |
ActiveLayer.CreateEllipse2 seg.StartingControlPointX, seg.StartingControlPointY, 0.02 |
ActiveLayer.CreateEllipse2 seg.EndingControlPointX, seg.EndingControlPointY, 0.02 |
End If |
Next seg |
End If |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.