在给定位置为选定对象创建径向尺寸。 支持的平台:仅窗口 签名工 务 局: RetVal = object.AddDimRadial(Center, ChordPoint, LeaderLength) 言论根据圆或圆弧的大小、属性以及 AutoCAD DIMUPT、DIMTOFL、DIMFIT、DIMTIH、DIMTOH、DIMJUST 和 DIMTAD 尺寸系统变量中的值,创建不同类型的径向尺寸。(可以使用 and 方法查询或设置系统变量。TextPositionGetVariableSetVariable 对于水平尺寸文本,如果尺寸线的角度与水平线的角度超过 15 度,并且位于圆或弧之外,AutoCAD 将绘制一条钩线,也称为着陆线或狗腿线。钩线长一个箭头,放置在尺寸文本旁边,如前两个插图所示。 此方法使用长度作为从ChordPoint到尺寸将执行到注释文本的水平狗腿的距离(如果不需要狗腿,则停止)。 “引线长度”设置仅在创建尺寸期间使用(即使如此,也仅在尺寸设置为使用默认文本位置值时使用)。首次关闭维度后,更改LeaderLength值不会影响维度的显示方式,但新设置将被存储并显示在 DXF、LISP 和 ARX 中。 例子工 务 局: Sub Example_AddDimRadial() ' This example creates a radial dimension in model space. 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 Visual LISP: (vl-load-com) (defun c:Example_AddDimRadial() ;; This example creates a radial dimension in model space. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the dimension (setq center (vlax-3d-point 0 0 0) chordPoint (vlax-3d-point 5 5 0) leaderLen 5) ;; Create the radial dimension in model space (setq modelSpace (vla-get-ModelSpace doc)) (setq dimObj (vla-AddDimRadial modelSpace center chordPoint leaderLen)) (vla-ZoomAll acadObj) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-1-8 19:11
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.