Vla-adddimrotated

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-adddimrotated vla-object XLine1Point XLine2Point DimLineLocation RotationAngle)

機能: 回転した長さ寸法を作成する。

引数

vla-object … VLAオブジェクト（Block、ModelSpace、PaperSpace）
XLine1Point … 測定する長さ寸法の１番目の端点を示す 3D WCS 座標。これは、最初の寸法補助線がアタッチされる点。
XLine2Point … 測定する長さ寸法の２番目の端点を示す 3D WCS 座標。これは、2 番目の寸法補助線がアタッチされる点。
SecondEndPoint … 寸法線上の点を示す 3D WCS 座標。これによって、寸法線と寸法値の配置が定義される。
RotationAngle … 長さ寸法を回転させて表示するためのラジアン角度。

戻り値: 新しく作成される回転した長さ寸法の VLA オブジェクト

サンプル

(vl-load-com)
(defun c:Example_AddDimRotated()
    ;; 回転した長さ寸法をモデル空間に作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
        
    ;; 寸法を定義
    (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))
    
    ;; 回転した長さ寸法をモデル空間に作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimRotated modelSpace point1 point2 location rotAngle))
    (vla-ZoomAll acadObj)
)