Create Angular Dimensions

Angular dimensions measure the angle between two lines or three points. For example, you can use them to measure the angle between two radii of a circle. The dimension line forms an arc.

To create an angular dimension, use the AddDimAngular method. This method requires three values as input: the angle vertex, the origins of the extension lines, and the text location. The AngleVertex is the center of the circle or arc, or the common vertex between the two lines being dimensioned. The origins of the extension lines are the points through which the two extension lines pass.

The AngleVertex can be the same as one of the origin points. If you need extension lines they will be added automatically.

*User's Guide*.

This example creates an angular dimension in model space.

Sub Ch5_CreateAngularDimension()

Dim dimObj As AcadDimAngular

Dim angVert(0 To 2) As Double

Dim FirstPoint(0 To 2) As Double

Dim SecondPoint(0 To 2) As Double

Dim TextPoint(0 To 2) As Double

' Define the dimension

angVert(0) = 0

angVert(1) = 5

angVert(2) = 0

FirstPoint(0) = 1

FirstPoint(1) = 7

FirstPoint(2) = 0

SecondPoint(0) = 1

SecondPoint(1) = 3

SecondPoint(2) = 0

TextPoint(0) = 3

TextPoint(1) = 5

TextPoint(2) = 0

' Create the angular dimension in model space

Set dimObj = ThisDrawing.ModelSpace. _

AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)

ZoomAll

End Sub