Shape.EqualDivide method - Developer Area

API Documentation > Corel DESIGNER > 20.1 > Shape > IVGShape

Shape.EqualDivide method

Divides the object into equal divisions

Syntax:

Function EqualDivide(Optional ByVal Divisions As Long = 2, Optional ByVal Gap As Double = -1, Optional ByVal Group As Boolean = False, Optional ByVal Combine As Boolean = True, Optional ByVal DeleteSource As Boolean = True) As ShapeRange

Parameters:

Name	Type	Description
Divisions	Long	Specifies the desired number of equal divisions for the shape. Values range from 2 to 360.
Gap	Double	Specifies, in document units, the length of the gap between divisions. A value of 0 is permitted.
Group	Boolean	Specifies whether to group the divisions.
Combine	Boolean	Specifies whether to combine the divisions into a single compound path. A value of False leaves the divisions as separate.
DeleteSource	Boolean	Specifies whether to delete the original shape. A value of False retains the original shape.

Remarks:

The EqualDivide method divides a shape into divisions of equal length, separated by gaps of equal size (including zero). The divisions can be combined into a single compound-path object, or they can be left as individual shapes that can be grouped.

Examples:

The following VBA example creates an ellipse and divides it into seven equal segments that are separated by a gap. The segments are combined into a single shape, and the source object is deleted by default.

Sub Test()
  Dim shpEllipse As Shape
  Dim shrRange As ShapeRange
  Set shpEllipse = ActiveLayer.CreateEllipse2(0,0,6,4)
  Set shrRange = shpEllipse.EqualDivide(7, 0.015, False, True)
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