API Documentation > CorelDRAW > 2025-v26 > DimensionLinear > IVGDimensionLinear
DimensionLinear.Point1 property
Returns the first anchor point of the dimension
Syntax:
Property Get Point1() As SnapPoint
Remarks:
The Point1 property specifies a snap point that represents an endpoint of a linear dimension.
Examples:
The following VBA example creates a rectangle and a linear dimension that is linked to the rectangle's snap points. The endpoints of the linear dimension are then changed to different snap points on the rectangle.
Sub Test()
Dim shp1 As Shape, shp2 As Shape
Set shp1 = ActiveLayer.CreateRectangle2(0, 0, 100, 50)
Set shp2 = ActiveLayer.CreateLinearDimension(cdrDimensionHorizontal, shp1.SnapPoints(1), shp1.SnapPoints(3))
Set shp2.Dimension.Linear.Point1 = shp1.SnapPoints(2)
Set shp2.Dimension.Linear.Point2 = shp1.SnapPoints(4) 
End Sub