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

AutoCAD 2023 开发者帮助

关于创建径向尺寸（VBA/ActiveX）

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

径向尺寸测量圆弧和圆的半径和直径。若要创建径向尺寸，请使用该方法。AddDimRadial

根据 DIMUPT、DIMTOFL、DIMFIT、DIMTIH、DIMTOH、DIMJUST、DIMJUST 和 DIMTAD 尺寸系统变量中的圆或圆弧的大小、属性以及值创建不同类型的径向尺寸。（可以使用 and 方法查询或设置系统变量。TextPositionGetVariableSetVariable

对于水平标注文本，如果标注线的角度与水平方向成 15 度角，并且位于圆或圆弧之外，则 AutoCAD 将绘制一条挂钩线，也称为着陆线或狗腿线。钩线长一个箭头，位于尺寸文本旁边，如下图所示：

若要创建径向尺寸，请使用 or 方法。这些方法需要三个值作为输入：圆或圆弧中心的坐标、引线连接的坐标和引线的长度。AddDimRadialAddDimDiametric

这些方法使用参数作为从到点的距离，尺寸将对注释文本进行水平钩线（如果不需要钩线，则停止）。LeaderLengthChordPoint

创建径向尺寸

本示例在模型空间中创建径向尺寸。

Sub Ch5_CreateRadialDimension()
    Dim dimObj As AcadDimRadial
    Dim center(0 To 2) As Double
    Dim chordPoint(0 To 2) As Double
    Dim leaderLen As Integer

    ' Define the dimension
    center(0) = 0
    center(1) = 0
    center(2) = 0
    chordPoint(0) = 5
    chordPoint(1) = 5
    chordPoint(2) = 0
    leaderLen = 5

    ' Create the radial dimension in model space
    Set dimObj = ThisDrawing.ModelSpace. _
 AddDimRadial(center, chordPoint, leaderLen)
    ZoomAll
End Sub

注意：该设置仅在创建维度期间使用（即使如此，也仅当维度设置为使用默认文本位置值时才使用）。首次关闭维度后，更改值不会影响维度的显示方式，但新设置将存储并显示在 DXF、LISP 和 ARX 应用程序中。LeaderLengthLeaderLength