Vla-addwedge

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-addwedge vla-object center length width height)


機能
3Dソリッドのくさびを作図する。


引数
  • vla-object … 生成する空間のVLAオブジェクト
  • center … くさびの中心点 3Dポイント
  • length … くさびの長さ(正数)
  • width … くさびの幅(正数)
  • height … くさびの高さ(正数)


戻り値
作成した3DくさびのVLAオブジェクト


サンプル
 ; コマンドで 3Dくさびを追加
(command "._wedge" pause pause pause)

; コマンドで 3Dくさび追加(変数利用版)
(defun c:cm-addwedge ()
 (setq pt1 (getpoint "\n中心点: "))
 (setq len (getreal "\n長さ: "))
 (setq wid (getreal "\n幅: "))
 (setq hgt (getreal "\n高さ: "))
 (command "._wedge" pt1 len wid hgt)
)

; VLA で 3Dくさび追加(適当にactivex版)
(defun c:ax-addwedge (/ pt1 len wid hgt)
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (setq pt1 (vlax-3d-point (setq pt (getpoint "\nくさびの中心点: "))))
  (setq len (getdist "\n長さ: " pt))
  (setq wid (getdist "\n幅: " pt))
  (setq hgt (getdist "\n高さ: " pt))
  (vla-addwedge mspace pt1 len wid hgt)
  (princ)
) ;defun


関連事項