SegmentRange.Add method - Developer Area

API Documentation > Corel DESIGNER > 2019.2 > SegmentRange > IVGSegmentRange

SegmentRange.Add method

Adds a segment to the range

Syntax:

Sub Add(ByVal Segment As Segment)

Parameters:

Name	Type	Description
Segment	Segment	Specifies the segment to be added

Remarks:

The Add method adds a segment to a segment range.

Examples:

The following VBA example adds an extra node to the middle of each segment longer than 1", dividing it into two separate segments.

Sub Test()
  Dim sgr As New SegmentRange
  Dim seg As Segment
  Do
    sgr.RemoveAll
    For Each seg In ActiveShape.Curve.Segments
      If seg.Length > 1 Then sgr.Add seg
      Next seg
      If sgr.Count <> 0 Then sgr.AddNode
        Loop While sgr.Count <> 0
      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