SegmentRange.Count property - Developer Area

API Documentation > CorelDRAW > 2021 > SegmentRange > IVGSegmentRange

SegmentRange.Count property

Gets the number of segments in the range

Syntax:

Property Get Count() As Long

Remarks:

The Count property returns the number of segments in a segment range.

Examples:

The following VBA example displays the number of curve segments in the selected curve. It then lets you convert all curve segments to lines.

Sub Test()
  Dim sgr As New SegmentRange
  Dim seg As Segment
  Dim r As VbMsgBoxResult
  If ActiveShape Is Nothing Then Exit Sub
    If ActiveShape.Type <> cdrCurveShape Then
      MsgBox "Select a curve and try again"
      Exit Sub
    End If
    For Each seg In ActiveShape.Curve.Segments
      If seg.Type = cdrCurveSegment Then sgr.Add seg
      Next seg
      If sgr.Count = 0 Then
        MsgBox "No curve segments found"
      Else
        r = MsgBox(sgr.Count & " curve segments found. Convert them to lines?", vbYesNo)
        If r = vbYes Then
          sgr.SetType cdrLineSegment
        End If
      End If
    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