AddDimAngular メソッド(ActiveX)

円弧、2 本の線分、または円の角度寸法を作成します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

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

object

タイプ: Block、ModelSpace、PaperSpace

このメソッドが適用されるオブジェクト。

AngleVertex

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

円または円弧の中心、あるいは寸法が記入される 2 本の寸法線の共通の頂点を指定する 3D WCS 座標。

FirstEndPoint

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

1 本目の寸法補助線が通過する点を指定する 3D WCS 座標。

SecondEndPoint

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

2 本目の寸法補助線が通過する点を指定する 3D WCS 座標。

TextPoint

アクセス: 入力のみ

タイプ: バリアント型(3 要素の倍精度浮動小数点数型配列)

寸法値が表示される点を指定する 3D WCS 座標。

戻り値(RetVal)

タイプ: DimAngular

新しく作成される角度寸法

注意

AngleVertex は、円または円弧の中心、あるいは寸法が記入される 2 本の線分の共通の頂点です。FirstEndPoint および SecondEndPoint は、2 本の寸法補助線がそれぞれ通過する点です。

AngleVertex は、角度の端点の 1 つと同じにすることができます。寸法補助線が必要な場合、寸法補助線は自動的に追加されます。端点は、寸法補助線の原点としても使われます。

例

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

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)
)