AddDimAngular Method （ActiveX）

签名

工 务 局：

RetVal = object.AddDimAngular(AngleVertex, FirstEndPoint, SecondEndPoint, TextPoint)

对象

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

此方法适用的对象。

角度顶点

访问：仅输入

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

指定圆或弧的中心或二维线之间的公共顶点的 3D WCS 坐标。

第一个端点

访问：仅输入

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

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

第二个端点

访问：仅输入

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

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

文本点

访问：仅输入

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

指定尺寸文本显示点的 3D WCS 坐标。

返回值（RetVal）

类型：暗角

新创建的角度尺寸。

言论

它们是圆或弧的中心，或要标注尺寸的两条线之间的公共顶点。并且是两条延伸线经过的点。AngleVertexFirstEndPointSecondEndPoint

可以与其中一个角度端点相同。如果您需要延长线，它们将自动添加。提供的端点用作延长线的起点。AngleVertex

例子

工 务 局：

Sub Example_AddDimAngular()
    ' This example creates an angular dimension in model space.
    
    Dim dimObj As AcadDimAngular
    Dim angVert(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double
    Dim SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    
    ' Define the dimension
    angVert(0) = 0#: angVert(1) = 5#: angVert(2) = 0#
    FirstPoint(0) = 1#: FirstPoint(1) = 7#: FirstPoint(2) = 0#
    SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0#
    TextPoint(0) = 3#: TextPoint(1) = 5#: TextPoint(2) = 0#
    
    ' Create the angular dimension in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimAngular(angVert, FirstPoint, SecondPoint, TextPoint)
    ZoomAll
    
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_AddDimAngular()
    ;; This example creates an angular dimension in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the dimension
    (setq angVert (vlax-3d-point 0 5 0)
          FirstPoint (vlax-3d-point 1 7 0)
          SecondPoint (vlax-3d-point 1 3 0)
          TextPoint (vlax-3d-point 3 5 0))
  
    ;; Create the angular dimension in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimAngular modelSpace angVert FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)
)