Segment.SubPathIndex property - Developer Area

API Documentation > Corel DESIGNER > 2023-v24.3 > Segment > IVGSegment

Segment.SubPathIndex property

Gets the index of the segment's subpath within the curve

Syntax:

Property Get SubPathIndex() As Long

Remarks:

The SubPathIndex property returns the index value of the subpath to which the current segment belongs.

Examples:

The following VBA example re-creates each segment of the selected curve as a separate shape and gives each one a different outline color (depending on the subpath to which the original segment belonged).

Sub Test()
  Dim s As Shape
  Dim seg As Segment
  If ActiveShape Is Nothing Then Exit Sub
    If ActiveShape.Type <> cdrCurveShape Then Exit Sub
      For Each seg In ActiveShape.Curve.Segments
        Select Case seg.Type
          Case cdrLineSegment
            Set s = ActiveLayer.CreateLineSegment(seg.StartNode.PositionX, seg.StartNode.PositionY, _
              seg.EndNode.PositionX, seg.EndNode.PositionY)
          Case cdrCurveSegment
            Set s = ActiveLayer.CreateCurveSegment(seg.StartNode.PositionX, seg.StartNode.PositionY, _
              seg.EndNode.PositionX, seg.EndNode.PositionY, seg.StartingControlPointLength, _
              seg.StartingControlPointAngle, seg.EndingControlPointLength, seg.EndingControlPointAngle)
        End Select
        s.Outline.Color = ActivePalette.Color(seg.SubPathIndex + 12)
      Next seg
    End Sub

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