;;;Creates viewport just inside our standard ANSI-A (landscape) 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://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: 3-14-2006 ;;; Edited: 7-14-2016 ;;; (DEFUN c:ansiavp_l () (COMMAND) (VL-LOAD-COM) (SETQ old_vp_osmode (GETVAR "osmode")) (SETQ old_vp_cecolor (GETVAR "cecolor")) (SETQ old_vp_celtype (GETVAR "celtype")) (SETVAR "osmode" 0) (SETVAR "cecolor" "ByLayer") (SETVAR "celtype" "ByLayer") (IF (EQ (GETVAR "tilemode") 1) (SETVAR "tilemode" 0) ) ;_ end of if (VLA-PUT-MSPACE (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT)) :VLAX-FALSE) ;;; (command ".pspace") (COMMAND ".-layer" "m" "C-VI027NPLT" "") (COMMAND ".mview" "1.3106,0.525" "10.475,7.725") (SETVAR "osmode" old_vp_osmode) (SETVAR "cecolor" old_vp_cecolor) (SETVAR "celtype" old_vp_celtype) (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ;*** DO NOT add text below the comment! ***|;