;*****************
(defun C:Getenv (/ esvname)
;*****************
    (setq esvname (getstring "\n変数名を入力:"))
    (if (= "" esvname);変数名が入力されずに空Enterされたら・・
        (princ);終了します
        ;そうでないときは・・
        (getenv esvname)
    );if
);defun
(princ);終了します
