Object Model Reference : Classes : D : DimensionLinear : Properties : DimensionLinear.Point2 |
Property Point2 As SnapPoint
Member of DimensionLinear
The Point2 property specifies a snap point that represents an endpoint of a linear dimension.
The following VBA example creates a rectangle and a linear dimension that is linked to the rectangles 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
Copyright 2013 Corel Corporation. All rights reserved.