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

AutoCAD 2024 开发者帮助

AddDimAngular 方法（ActiveX）

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

为圆弧、两条线或一个圆创建角度尺寸。

支持的平台：仅限 Windows

签名

VBA：

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

对象

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

此方法应用到的对象。

角度顶点

访问：仅输入

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

3D WCS 坐标指定圆或圆弧的中心，或两条尺寸线之间的公共顶点。

第一个端点

访问：仅输入

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

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

第二个端点

访问：仅输入

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

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

文本点

访问：仅输入

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

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

返回值（RetVal）

类型：DimAngular

新创建的角度尺寸。

言论

是圆或圆弧的中心，或被标注尺寸的两条线之间的公共顶点。并且是两条延长线通过的点。AngleVertexFirstEndPointSecondEndPoint

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

例子

VBA：

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

可视化 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)
)