・ 現在の View を保存する

現在の View を一時的に保存して、View を変更、何らかの処理をして、元の View に戻すという流れの Lisp を作りたいことがある
-View コマンドでは、登録する View の名前が、すでに存在する場合、上書きするか確認されるが、(command "VIEW")　だと、確認メッセージは出ないらしい（Acad2005にて確認)

View を保存・変更・元に戻す処理ののサンプルです。

(defun Jo_view_test ( / en )
  (command "._VIEW" "S" "Jo_temp_view")
  (setq en (car (entsel "\nオブジェクトを選択")))
  (command "._ZOOM" "O" en "")
  (alert "\n選択したオブジェクトにViewを変更しました")
  (command "._VIEW" "R" "Jo_temp_view")
  (command "._VIEW" "D" "Jo_temp_view")
  (alert "\nViewを元に戻しました")
  (princ)
  )