Vla-adddimordinate

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年2月8日 (日) 13:14時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)
)

関連事項