Previous Document Next Document

Object Model Reference : Classes : S : Segment : Properties : Segment.EndingControlPointX


Segment.EndingControlPointX

Property EndingControlPointX As Double

Description

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.

VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.