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