コンテンツにスキップ

Tweets by gzlabs

Vla-getpoint

提供：GizmoLabs - だいたい CAD LISP なサイト

2013年3月31日 (日) 19:09時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成：「{{AutoLISP}} ; 構文 : (vla-getpoint ''util'' [''pt1'' ''mes'']) ; 機能 : 点(WCS)を取得する。 ; 引数 :* util … utility のVLAオブジェクト :* pt1...」)

(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)

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」から取得

AutoLISP