CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2025 开发者帮助 › 查看内容

AutoCAD 2025 开发者帮助

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

2024-5-18 19:19| 发布者: admin| 查看: 307| 评论: 0|原作者: admin|来自: AutoCAD

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

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

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

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

    ' 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