角度型尺寸標(biāo)注用來(lái)標(biāo)注兩條直線或三個(gè)點(diǎn)之間的角度，創(chuàng)建角度型尺寸標(biāo)注對(duì)象AddDimAngular方法，語(yǔ)法格式如下。

RetVal=object.AddDimangular(AngleVertex,FirstEndPoint,SecondEndPoint,TextPoint)

下面的代碼創(chuàng)建一個(gè)角度型標(biāo)注對(duì)象。

Private Sub Command1_Click()
    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) = 6#: firstpoint(2) = 0#
    secondpoint(0) = 1#: secondpoint(1) = 3#: secondpoint(2) = 0#
    textpoint(2) = 20#: textpoint(1) = 5#: textpoint(2) = 0#
    Set dimobj = acadapp.ActiveDocument.ModelSpace.AddDimAngular(angvert, firstpoint, secondpoint, textpoint)
    ZoomExtents
End Sub