(defun dxf (code elist) (cdr (assoc code elist)))

(defun view_space (viewname / viewdata)
  (setq VIEWDATA (tblsearch "view" VIEWNAME))
  (if VIEWDATA
    (progn
      (setq VIEWDATA (dxf 70 VIEWDATA))
        (if (= (getvar "TILEMODE") VIEWDATA)
        (command "tilemode" (abs (+ (getvar "TILEMODE") -1)))
      ) ;end if
      (command "view" "r" VIEWNAME)
    ) ;end progn
  ) ;end if
  (princ)
) ;end defun view_space

(defun c:vr (/ viewname)
  (princ "\n*** View/Space restore ***")
  (setq VIEWNAME (getstring "\nEnter the name of the view to restore: "))
  (if VIEWNAME
    (progn
      (view_space VIEWNAME)
      (princ (strcat "\nView restored: " VIEWNAME " ... Current space: "))
      (if (= 1 (getvar "TILEMODE"))
        (princ "Tiled Model")
        (princ "Paper")
      ) ;end if
    ) ;end progn
  ) ;end if
  (princ)
) ;end defun vr