Vla-getpoint

提供：GizmoLabs - だいたい CAD LISP なサイト
AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(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

関連事項

「https://wiki.gz-labs.net/index.php?title=Vla-getpoint&oldid=3429」から取得