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

ActiveX 开发指南

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

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

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

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

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

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

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

这些方法使用 theparameter 作为从 ther 到点的距离，在该点中，维度将执行到注释文本的水平钩线（如果不需要钩线，则停止）。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