Vla-getpoint

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年3月31日 (日) 19:09時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getpoint ''util'' [''pt1'' ''mes'']) ; 機能 : 点(WCS)を取得する。 ; 引数 :* util … utility のVLAオブジェクト :* pt1...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-getpoint util [pt1 mes])


機能
点(WCS)を取得する。


引数
  • util … utility のVLAオブジェクト
  • pt1 … 始点の3Dポイント
  • mes … 点取得時のメッセージ終点の3Dポイント


戻り値
作成した線分のVLAオブジェクト


サンプル
; VLA で線分追加(ActiveX的版)
(defun c:ax-addline1 ()
  (vl-load-com)
  (setq *actdoc* (vla-get-activedocument (vlax-get-acad-object)))
  (setq mspace (vla-get-modelspace *actdoc*))
  (setq util (vla-get-utility *actdoc*))
  (setq pt1 (vla-getpoint util nil "\n始点 : "))
  (setq pt2 (vla-getpoint util pt1 "\n終点 : "))
  (setq myline (vla-addline mspace pt1 pt2))
  (princ)
);defun


関連事項