(defun c:vp ()
  (SETQ vp_cur (GETVAR "cvport"))
  (SETQ cvpss (SSGET "x" (LIST (CONS 69 vp_cur)))) 
  (IF
    cvpss 
    (PROGN
      (SETQ vp_ent (ENTGET (SSNAME cvpss 0) (LIST "ACAD")))
      (SETQ acad_eed (MEMBER "ACAD" (CADR (ASSOC -3 vp_ent)))) 
      (SETQ vp_list
	     (REVERSE (CDR
			(REVERSE (SUBST "SAVED_VIEWS" "ACAD" acad_eed) ;_ end of SUBST
			) ;_ end of REVERSE
		      ) ;_ end of CDR
	     ) ;_ end of SUBST
      ) ;_ end of SETQ
      (SETQ vp_list (SUBST (CONS 1000 vdesc) (CONS 1000 "MVIEW") vp_list))
    ) ;_ end of PROGN
    (PRINC "\nViewport not found. ")
  )
)