CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 尺寸、引线和几何公差› 关于创建维度（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于创建角度尺寸（VBA/ActiveX）

2023-1-4 23:08| 发布者: admin| 查看: 978| 评论: 0|来自: AutoCAD

摘要: 角度尺寸测量两条线或三点之间的角度。

角度尺寸测量两条线或三点之间的角度。

例如，您可以使用它们来测量圆的两个半径之间的角度。尺寸线形成一个弧。

若要创建角度尺寸，请使用该方法。此方法需要三个值作为输入：角度折点、延伸线的原点和文本位置。角度顶点是圆或弧的中心，或要标注尺寸的两条线之间的公共顶点。延长线的原点是两条延长线经过的点。AddDimAngular

角度顶点可以与原点之一相同。如果您需要延长线，它们将自动添加。

创建角度尺寸

本示例在模型空间中创建一个角度尺寸。

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