;;;Creates viewport just inside our standard ANSI-A (portrait) size sheet border.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-14-2006
;;;>		   EDITED: 03-14-2006
;;;
(defun c:ansiavp ()
  (command)
  (setq old_ansiavp_osmode (getvar"osmode"))
  (setvar"osmode"0)
  (command "pspace")
  (command ".-layer" "m" "c-vi027nplt" "")
  (command ".mview" "0.7750,1.5250" "7.9750,10.4750")
  (setvar "osmode" old_ansiavp_osmode)
  (princ)
)