半径标注用于测量圆弧和圆的半径与直径。要创建半径标注,请使用 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 应用程序中表现出来。