(defun c:SELPSVP ()
  (setq pspaceVport (ssname (ssget "_x" '((0 . "VIEWPORT") (69 . 1))) 0))
  (sssetfirst nil (ssadd pspaceVport))
  (princ)
)