Segment.GetPointPositionAt method - Developer Area

API Documentation > Corel DESIGNER > 20.1 > Segment > IVGSegment

Segment.GetPointPositionAt method

Gets the coordinates of a point located on the curve

Syntax:

Sub GetPointPositionAt(ByRef x As Double, ByRef y As Double, Optional ByVal Offset As Double = 0.5, Optional ByVal OffsetType As cdrSegmentOffsetType = cdrParamSegmentOffset)

Parameters:

Name	Type	Description
x	Double	Specifies the horizontal position of the point on the segment's subpath. The x-coordinate is measured in document units.
y	Double	Specifies the vertical position of the point on the segment's subpath. The y-coordinate is measured in document units.
Offset	Double	Specifies the offset, in document units, from the beginning of the segment's subpath. 5.
OffsetType	cdrSegmentOffsetType	Specifies the offset type of the point on the curve's subpath, and returns cdrSegmentOffsetType.

Remarks:

The GetPointPositionAt method returns the coordinates of a point located on a segment.

Examples:

Here is a code example:

Sub GetPointPositionAt_Sample()
  Dim s1 As Shape
  Set s1 = ActiveLayer.CreateLineSegment(1.698224, 8.796287, 3.094059, 8.22337)
  s1.Outline.SetProperties 0.1
  
  'Someone could trace a constellation
  'For this example we created Ursa Major using the code below
  Dim crv As Curve
  Set crv = ActiveDocument.CreateCurve
  With crv.CreateSubPath(1.698224, 8.796287)
    .AppendLineSegment 3.094059, 8.22337
    .AppendLineSegment 3.583642, 7.317118
    .AppendLineSegment 4.229476, 6.317118
    .AppendLineSegment 6.239894, 5.306701
    .AppendLineSegment 5.364894, 4.348366
    .AppendLineSegment 3.885724, 5.317118
    .AppendLineSegment 4.229476, 6.317118
  End With
  s1.Curve.CopyAssign crv
  
  'This portion of the sample code could be run to
  'automatically create the position of each star in the constellation
  Dim sStarPosition As Shape
  Dim x As Double, y As Double
  Dim sg As Segment
  For Each sg In ActiveShape.Curve.Segments
    sg.GetPointPositionAt x, y, 0.01, cdrAbsoluteSegmentOffset
    Set sStarPosition = ActiveLayer.CreateEllipse2(x, y, 0.1)
    sStarPosition.Fill.UniformColor.BWAssign True
  Next sg
  
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