(defun c:psviews ()
  (setq cviewctr (getvar"viewctr"))
  (setq sta_to_view (car cviewctr))
;;;  (setq celev (/(cadr cviewctr)v_fact))
  (if (eq (getvar "tilemode") 1)
    (progn
      (command ".tilemode" 0)
      (command ".pspace")
      (vpset 1)
      (command ".zoom" "c" cviewctr "" "" (strcat "1/"(rtos dimsc 2 0)"Xp"))
      (vpset 2)
      (c:viewsta)
    )
    (progn
      (princ "\nCommand requires Tilemode=1 ")
    )
  )
  (princ)
)