・ UCSの状態を控える

LISPの中で、ＵＣＳ（ユーザー座標系）を設定し作図処理を行わせる場合、処理後にＵＣＳを元の状態に戻してやらなくてはなりません。ＵＣＳ管理で名前をつけたり、直前のＵＣＳを指定して戻しても良いのですが、名前がいっぱいできてしまったり、エラー処理などで不具合があるかもしれません。
そこで、ＵＣＳを３点で指定できるように、あらかじめ、現在のＵＣＳのＵＣＳ原点・( 1.0 , 0 , 0)・( 0 , 1.0 , 0) を ＷＣＳに変換した点を控えておきます。（UCSXDIR UCSYDIRは読取専用で、設定できない・・・(-_-;) ）

現在のＵＣＳを控える 
(setq lst_ucs_var (list (getvar "UCSORG")))
(setq lst_ucs_var (append lst_ucs_var (mapcar '(lambda (x) (trans x 1 0)) '((1.0 0 0) (0 1.0 0)))))

これを復元するには、一度ＷＣＳにしてからＵＣＳコマンドで設定します

ＵＣＳを復元
(command "._UCS" "W")
(command "._UCS" "3" (car lst_ucs_var) (cadr lst_ucs_var) (caddr lst_ucs_var))

また、UCSICON や UCSFOLLOW の設定にも配慮する必要があることもあるので、注意が必要です