fc2ブログ

DefunGetenv.lsp:Getenvコマンドを定義

2021年12月15日
■AutoLISP サンプルコード公開Gallery
Getenv関数をAutoCAD(R)レギュラー版でも使用できるようにするためのAutoLISP
※ ARES CAD でも使用可能です。
AutoLISP.png
;*****************
(defun C:Getenv (/ esvname)
;*****************
(setq esvname (getstring "\n変数名を入力:"))
(if (= "" esvname);変数名が入力されずに空Enterされたら・・
(princ);終了します
;そうでないときは・・
(getenv esvname)
);if
)
(princ);終了します



C:\MyCANAL\Supply\Lisp\DefunGetenv.lsp



関連記事
スポンサーサイト



Gallery担当:山野 ロザリア平久郎
Posted by Gallery担当:山野 ロザリア平久郎