SegmentRange.Remove method - Developer Area

API Documentation > Corel DESIGNER > 2019.2 > SegmentRange > IVGSegmentRange

SegmentRange.Remove method

Removes a segment from the range

Syntax:

Sub Remove(ByVal Index As Long)

Parameters:

Name	Type	Description
Index	Long	Specifies the segment to be removed

Remarks:

The Remove method removes a specified segment from a segment range without affecting the segment itself.

Examples:

The following VBA example highlights each curve segment that is adjacent to a cusp node, using a red stroke.

Sub Test()
  Dim s As Shape
  Dim sgr As SegmentRange
  Dim seg As Segment
  Dim i As Long
  Set sgr = ActiveShape.Curve.Segments.All
  For i = sgr.Count To 1 Step -1
    Set seg = sgr(i)
    If seg.Type = cdrLineSegment Then
      sgr.Remove i
    Else
      If seg.StartNode.Type <> cdrCuspNode And seg.EndNode.Type <> cdrCuspNode Then
        sgr.Remove i
      End If
    End If
  Next i
  For Each seg In sgr
    Set s = ActiveLayer.CreateCurveSegment(seg.StartNode.PositionX, seg.StartNode.PositionY, _
      seg.EndNode.PositionX, seg.EndNode.PositionY, _
      seg.StartingControlPointLength, seg.StartingControlPointAngle, _
      seg.EndingControlPointLength, seg.EndingControlPointAngle)
    s.Outline.Width = 0.01
    s.Outline.Color.RGBAssign 255, 0, 0
  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