角度标注用于测量两条线或三个点之间的角度。例如，用户可以使用它们来测量圆的两个半径之间的角度。尺寸线会形成一个圆弧。
要创建角度标注，请使用 AddDimAngular 方法。这个方法需要输入三个值：角度顶点、尺寸界线原点和文字位置。AngleVertex 是圆或圆弧的圆心，或是被标注的两条线之间的公共顶点。尺寸界线的原点是两条尺寸界线穿过的点。
AngleVertex 可以是其中的一个原点。如果用户需要尺寸界线，它们会被自动添加。
有关创建角度标注的详细信息，请参见《用户手册》中的“创建角度标注”。
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
' 定义标注
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
' 在模型空间中创建角度标注
Set dimObj = ThisDrawing.ModelSpace. _
AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)
ZoomAll
End Sub