;;;Creates plan viewport just inside our standard ANSI-D size sheet border. ;;;Includes a notch around our revision block. ;;;Creates profile viewport on grid indices over our standard ANSI-D size sheet border ;;;and profile grid block. ;;; ;;;Expects the border and grid block 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: 2-6-2006 ;;; Edited: 4-7-2009 ;;; (DEFUN c:ansiappvp () (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 (IF uint nil (LOAD "uint" "File UINT.LSP not found! ") ) ;_ end of if (SETQ gridsclint (uint 1 "50 100" "Grid Scale [50 100]" (IF gridsclint gridsclint 100 ) ;_ end of if ) ;_ end of uint ) ;_ end of setq (IF (OR (EQ gridsclint 50) (EQ gridsclint 100)) (SETQ gridscl (ITOA gridsclint)) (SETQ gridscl nil) ) ;_ end of if (IF (AND gridscl (OR (WCMATCH gridscl "50") (WCMATCH gridscl "100")) ) ;_ end of AND (COND ((WCMATCH gridscl "50") (COMMAND ".pspace") (COMMAND ".layer" "m" "c-vi027nplt" "") (COMMAND ".mview" "0.775,6.861" "7.975,10.475") (COMMAND ".layer" "m" "c-vi017nplt" "") (COMMAND ".mview" "1.4413,1.861" "7.4413,7.375") ) ((WCMATCH gridscl "100") (COMMAND ".pspace") (COMMAND ".layer" "m" "c-vi027nplt" "") (COMMAND ".mview" "0.775,6.361" "7.975,10.475") (COMMAND ".layer" "m" "c-vi017nplt" "") (COMMAND ".mview" "1.25,1.861" "7.5,6.75") ) ) ;_ end of cond ) ;_ end of IF (SETVAR "osmode" old_vp_osmode) (SETVAR "cecolor" old_vp_cecolor) (SETVAR "celtype" old_vp_celtype) (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 1 nil nil nil T) ;*** DO NOT add text below the comment! ***|;