;*****************
(Defun C:Setenv (/ esvname esvval);Setenvコマンドを定義します
;*****************

	(setq esvname (getstring "\n変数名を入力:"))
  (if (= "" esvname);変数名が入力されずに空Enterされたら・・
    (princ);終了します
    (progn;そうでないときは・・
      ;---------------
      (if (Getenv esvname)
        (setq esvval (getstring (strcat "値 <" (Getenv esvname) ">:")))
        (setq esvval (getstring (strcat "値 < >:")))
      )
      ;---------------
      (if (= "" esvval)
        (Setenv esvname (Getenv esvname))
        (Setenv esvname esvval)
      )
      ;---------------
    );progn
  );if
  (princ);終了します
)
