Vla-getreal

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年9月20日 (金) 15:02時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-getreal ''util'' [''mes'']) ; 機能 : 実数(倍精度浮動小数点)を取得する。 ; 引数 :* util … utility のVLAオブ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-getreal util [mes])


機能
実数(倍精度浮動小数点)を取得する。


引数
  • util … utility のVLAオブジェクト
  • mes … 数値取得時のメッセージ


戻り値
取得した数値


サンプル

(defun ax-getreal ()
(vl-load-com)
(setq util (vla-get-utility 
                   (vla-get-activedocument 
                        (vlax-get-acad-object))))
(setq real1 (vla-getreal util "\n半径 : "))
(princ real1)
(princ)
);defun


関連事項