「Vla-getpoint」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-getpoint ''util'' [''pt1'' ''mes'']) ; 機能 : 点(WCS)を取得する。 ; 引数 :* util … utility のVLAオブジェクト :* pt1...」) |
(相違点なし)
|
2013年3月31日 (日) 19:09時点における最新版
- 構文
- (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
関連事項