创建半径标注

AutoCAD ActiveX/VBA

 
创建半径标注
 
 
 

半径标注用于测量圆弧和圆的半径与直径。要创建半径标注,请使用 AddDimRadial 方法。

根据圆或圆弧的大小、TextPosition 特性以及 DIMUPT、DIMTOFL、DIMFIT、DIMTIH、DIMTOH、DIMJUST 和 DIMTAD 标注系统变量中的值,可以创建各种类型的半径标注。(系统变量可以使用 GetVariable 和 SetVariable 方法查询或设置。)

对于水平标注文字,如果尺寸线与水平线的角度大于 15 度,而且位于圆或圆弧的外面,则 AutoCAD 将绘制钩线,也称为引导线或弯钩。钩线为一个箭头的长度,放在标注文字的旁边,如以下图解所示:

要创建半径标注,请使用 AddDimRadial 或 AddDimDiametric 方法。这些方法均需要输入三个值:圆或圆弧的圆心坐标、引线附着点的坐标以及引线的长度。

这些方法使用 LeaderLength 参数的值作为从 ChordPoint 到标注为注释文字绘制水平钩线的起点的距离(如果不需要钩线则停止)。

有关创建半径标注的详细信息,请参见《用户手册》中的“创建半径标注”。

创建半径标注

本例在模型空间中创建半径标注。

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
      
    ' 定义标注
    center(0) = 0
    center(1) = 0
    center(2) = 0
    chordPoint(0) = 5
    chordPoint(1) = 5
    chordPoint(2) = 0
    leaderLen = 5
      
    ' 在模型空间中创建半径标注
    Set dimObj = ThisDrawing.ModelSpace. _
           AddDimRadial(center, chordPoint, leaderLen)
    ZoomAll
End Sub
注意只有当标注设置为使用默认的文字位置值时,才会在创建标注时使用 LeaderLength 设置。在第一次关闭标注之后,修改 LeaderLength 的值不会影响标注的显示方式,但是新的设置会被存储并在 DXF、LISP 和 ADSRX 应用程序中表现出来。