Vla-adddimordinate

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

構文: (vla-adddimordinate vla-object DefinitionPoint LeaderEndPoint UseXAxis)

機能: 定義点と引出線の端点を指定して、座標寸法を作成する。

引数

vla-object … VLAオブジェクト（Block、ModelSpace、PaperSpace）
DefinitionPoint… 寸法を記入する点を指定する 3D WCS 座標。
LeaderEndPoint … 引出線の端点を示す 3D WCS 座標。これは、寸法値が表示される位置です。
UseXAxis … 整数？

:VLAX-True: X 軸の値を表示する座標寸法を作成。
:VLAX-False: Y 軸の値を表示する座標寸法を作成。

戻り値: 新しく作成される座標寸法の VLA オブジェクト

Memo

座標寸法では、単純な引出線に沿ってオブジェクトの X または Y 座標が表示される。座標の絶対値は、座標寸法の一般的標準に従って使用される。

サンプル

(vl-load-com)
(defun c:Example_AddDimOrdinate()
    ;; 座標寸法をモデルに作成するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; 寸法を定義
    (setq definingPoint (vlax-3d-point 5 5 0)
          leaderEndPoint (vlax-3d-point 10 5 0)
    )
    
    ;; 座標寸法をモデルに作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimOrdinate modelSpace definingPoint leaderEndPoint :VLAX-True))
    (setq dimObj (vla-AddDimOrdinate modelSpace definingPoint leaderEndPoint :VLAX-False))
    (vla-ZoomAll acadObj)
)