;*****************
(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);終了します
	)
