AddDimRotated メソッド(ActiveX)

回転した長さ寸法を作成します。

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

構文と要素

VBA:

RetVal = object.AddDimRotated(XLine1Point, XLine2Point, DimLineLocation, RotationAngle)

object

タイプ: Block、ModelSpace、PaperSpace

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

XLine1Point

アクセス: 入力のみ

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

測定する長さ寸法の最初の端点を示す 3D WCS 座標。これは、最初の寸法補助線がアタッチされる点です。

XLine2Point

アクセス: 入力のみ

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

測定する長さ寸法の 2 番目の端点を示す 3D WCS 座標。これは、2 番目の寸法補助線がアタッチされる点です。

DimLineLocation

アクセス: 入力のみ

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

寸法線上の点を示す 3D WCS 座標。これによって、寸法線と寸法値の配置が定義されます。

RotationAngle

アクセス: 入力のみ

タイプ: 倍精度浮動小数点数型

長さ寸法を回転させて表示するためのラジアン角度。

戻り値(RetVal)

タイプ: DimRotated

新しく作成される、回転した長さ寸法

注意

45 度で作成された長さ寸法

例

VBA:

Sub Example_AddDimRotated()
    ' This example creates a rotated dimension in model space.
        
    Dim dimObj As AcadDimRotated
    Dim point1(0 To 2) As Double
    Dim point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim rotAngle As Double
    
    ' Define the dimension
    point1(0) = 0#: point1(1) = 5#: point1(2) = 0#
    point2(0) = 5#: point2(1) = 5#: point2(2) = 0#
    location(0) = 0#: location(1) = 0#: location(2) = 0#
    rotAngle = 120
    rotAngle = rotAngle * 3.141592 / 180#       ' covert to Radians
    
    ' Create the rotated dimension in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimRotated(point1, point2, location, rotAngle)
    ZoomAll
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_AddDimRotated()
    ;; This example creates a rotated dimension in model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
        
    ;; Define the dimension
    (setq point1 (vlax-3d-point 0 5 0)
          point2 (vlax-3d-point 5 5 0)
          location (vlax-3d-point 0 0 0)
          rotAngle (/ (* 120 3.141592) 180))
    
    ;; Create the rotated dimension in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimRotated modelSpace point1 point2 location rotAngle))
    (vla-ZoomAll acadObj)
)