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

AutoCAD 2023 开发者帮助

AddDimRadialLarge 方法（ActiveX）

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

为圆弧、圆弧或折线圆弧段创建周动径向尺寸。

支持的平台：仅限 Windows

签名

VBA：

RetVal = object.AddDimRadialLarge(Center, ChordPoint, OverrideCenter, JogPoint, JogAngle)

对象

类型：块、模型空间、纸空间

此方法应用到的对象。

中心

访问：仅输入

类型：变体（双打的三元素阵列）

指定圆弧、圆弧或折线圆弧段中心的 3D WCS 坐标。

和弦点

访问：仅输入

类型：变体（双打的三元素阵列）

指定圆弧的弦点的 3D WCS 坐标。

覆盖中心

访问：仅输入

类型：变体（双打的三元素阵列）

指定覆盖中心位置或拾取点的 3D WCS 坐标。

JogPoint 点

访问：仅输入

类型：变体（双打的三元素阵列）

指定点动位置或拾取点的 3D WCS 坐标。

慢跑角度

访问：仅输入

类型：双

点动角度的值。

返回值（RetVal）

类型：DimRadialLarge

新创建的点动半径尺寸。

言论

中心是要标注尺寸的圆弧、圆弧或折线弧段的中心。OverrideCenter 是维度的原点。

例子

VBA：

Sub Example_AddDimRadialLarge()
    Dim PI As Double: PI = 3.141592
    Dim oMS As AcadModelSpace
    Set oMS = ThisDrawing.ModelSpace
    
    Dim ptCenter(2) As Double
    Dim oA As AcadArc
    Set oA = oMS.AddArc(ptCenter, 10, PI / 3, PI * 3 / 4)

    Dim ptChordPoint(2) As Double
    ptChordPoint(0) = 0: ptChordPoint(1) = 10: ptChordPoint(2) = 0

    Dim ptOverrideCenter(2) As Double
    ptOverrideCenter(0) = -3: ptOverrideCenter(1) = -6: ptOverrideCenter(2) = 0
    
    Dim ptJogPoint(2) As Double
    ptJogPoint(0) = 0: ptJogPoint(1) = 5: ptJogPoint(2) = 0

    Dim oDimRadialLarge As AcadDimRadialLarge
    Set oDimRadialLarge = oMS.AddDimRadialLarge(oA.Center, ptChordPoint, ptOverrideCenter, ptJogPoint, PI / 4)

    Dim ptTextPosition(2) As Double
    ptTextPosition(0) = 0: ptTextPosition(1) = 6: ptTextPosition(2) = 0
    oDimRadialLarge.TextPosition = ptTextPosition
    
    Update
    ZoomExtents
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_AddDimRadialLarge()
    ;; This example creates an arc and a jogged arc dimension in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq modelSpace (vla-get-ModelSpace doc))
    
    ;; Define the arc
    (setq center (vlax-3d-point 0 0 0))

    ;; Create the arc in model space
    (setq arc (vla-AddArc modelSpace center 10 (/ PI 3) (/ (* PI 3) 4)))

    ;; Define the jogged arc dimension
    (setq ptChordPoint (vlax-3d-point 0 10 0)
          ptOverrideCenter (vlax-3d-point -3 -6 0)
          ptJogPoint (vlax-3d-point 0 5 0))

    ;; Create the jogged arc dimension in model space
    (setq oDimRadialLarge (vla-AddDimRadialLarge modelSpace center ptChordPoint ptOverrideCenter ptJogPoint (/ PI 4)))

    ;; Set the position of the text for the dimension
    (setq ptTextPosition (vlax-3d-point 0 6 0))
    (vla-put-TextPosition oDimRadialLarge ptTextPosition)
    
    (vla-ZoomExtents acadObj)
)