Object Model Reference : Classes : D : DimensionAngular : Properties : DimensionAngular.Point1
|
|
| Object Model Reference : Classes : D : DimensionAngular : Properties : DimensionAngular.Point1 |
Property Point1 As SnapPoint
Member of DimensionAngular
The Point1 property returns a snap point that represents an endpoint of the “arms” (or arc) of an angular dimension.
The following VBA example initializes the snap points to which the dimension is attached and creates an angular dimension that is linked to the snap points. The dimension text is placed in the middle of the dimension arms, and then the arms of the angular dimension are moved.
Sub Test() |
Dim shp1 As Shape |
Dim snpVer As New SnapPoint, snp1 As New SnapPoint, snp2 As New SnapPoint |
'Initialize the snap points; this placement should form a 45 degree measurement. |
snpVer.PositionX = 0.0 |
snpVer.PositionY = 0.0 |
snp1.PositionX = 10.0 |
snp1.PositionY = 0.0 |
snp2.PositionX = 10.0 |
snp2.PositionY = 10.0 |
Set shp1 = ActiveLayer.CreateAngularDimension(snpVer, snp1, snp2, 10.0, 5.0) |
'Change the "right" arm of the angular dimension to coordinates 25,10 and the "left" arm to 50,25. |
shp1.Dimension.Angular.Point1.PositionX = 25.0 |
shp1.Dimension.Angular.Point1.PositionY = 10.0 |
shp1.Dimension.Angular.Point2.PositionX = 50.0 |
shp1.Dimension.Angular.Point2.PositionY = 25.0 |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.