AddDimArc Method （ActiveX）

签名

工 务 局：

RetVal = object.AddDimArc(ArcCenter, FirstEndPoint, SecondEndPoint, ArcPoint)

对象

类型：块，模型空间，图纸空间

此方法适用的对象。

弧形中心

访问：仅输入

类型：变体（双精度的三元素数组）

指定弧中心的 3D WCS 坐标。

第一个端点

访问：仅输入

类型：变体（双精度的三元素数组）

指定第一条延长线通过的点的 3D WCS 坐标。

第二个端点

访问：仅输入

类型：变体（双精度的三元素数组）

指定第二条延长线通过的点的 3D WCS 坐标。

ArcPoint

访问：仅输入

类型：变体（双精度的三元素数组）

指定圆弧上的点的三维 WCS 坐标。

返回值（RetVal）

类型：暗弧长度

新创建的弧长尺寸。

言论

弧中心是要标注尺寸的圆弧的中心。第一端点和第二端点是两条延长线通过的点。

例子

工 务 局：

Sub Example_AddDimArc()
    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 ptArcPoint(2) As Double
    ptArcPoint(0) = 0: ptArcPoint(1) = 15
    
    Dim oAcadDimArcLength As AcadDimArcLength
    Set oAcadDimArcLength = oMS.AddDimArc(oA.Center, oA.startPoint, oA.endPoint, ptArcPoint)
    
    Update
    ZoomExtents
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_AddDimArc()
    ;; This example creates an arc and arc length 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 arc length dimension
    (setq arcPoint (vlax-3d-point 0 15 0)
          startPoint (vla-get-StartPoint arc)
          endPoint (vla-get-EndPoint arc))
  
    ;; Create the arc length dimension in model space
    (setq dimArcLength (vla-AddDimArc modelSpace center startPoint endPoint arcPoint))
    (vla-ZoomExtents acadObj)
)