from One of Tom Bergers AutoLisp old postings compilations in comp.cad.autocad Note comp.cad .autocad really is the closest thing you can get to a Autolisp forum.

;zoom to something an save the view
;Actually not turvill
;
;
(defun c:v2 ()
   (setq pt1 (getpoint "\n First Point: ")
         PT2 (getcorner pt1 "\nSecond Corner: "))
 (command "zoom" "W" pt1 pt2 "view" "S" "2")
 )
 
;(from another poster) consider
;(command "zoom" "W" PAUSE PAUSE "view" "S" "2"))
;You need the PAUSE to get user input, pick a point.