Segment.StartingControlPointAngle property - Developer Area

API Documentation > CorelDRAW > 2022-v24 > Segment > IVGSegment

Segment.StartingControlPointAngle property

Gets or sets the angle of the control point of the starting node (in the document's units)

Syntax:

Property Get StartingControlPointAngle() As Double
Property Let StartingControlPointAngle(ByVal Value As Double)

Remarks:

The StartingControlPointAngle property returns or specifies the angle, in degrees, of the control-point vector beginning of a segment.

Examples:

The following VBA example constrains control point angles to increments of 45°. Each control-point vector is rotated to the closest angle that is a multiple of 45°.

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
        seg.StartingControlPointAngle = Constrain(seg.StartingControlPointAngle)
        seg.EndingControlPointAngle = Constrain(seg.EndingControlPointAngle)
      End If
    Next seg
  End If
End Sub
Private Function Constrain(a As Double) As Double
  Constrain = Fix(a / 45 + 0.5) * 45
End Function

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25