;;;Place a standard Plan Grid array beginning at the point you specify ;;; and terminating at the north and east ;;; distances you specify. The grid will be divided into 100', 500' ;;; and 1000'grid lines on separate layers so that you can easily ;;; change between display of these intervals without editing the grid. ;;; ;;; AUTHOR: HENRY C. FRANCIS ;;; 425 N. ASHE ST. ;;; SOUTHERN PINES, NC 28387 ;;; ;;; All rights reserved without prejudice. ;;; Copyright: 5-28-96 ;;; Edited: 4-22-2004 ;;; (DEFUN c:plgrid (/) (SETQ llcor (upoint 1 "" "Lower left corner of grid" (IF llcor llcor nil ) ;_ end of if nil ) ;_ end of upoint ) ;_ end of setq (SETQ urcor (upoint 1 "" "Upper right corner of grid" (IF urcor urcor nil ) ;_ end of if nil ) ;_ end of upoint ) ;_ end of setq (SETQ llx (CAR llcor) lly (CADR llcor) llz (CADDR llcor) urx (CAR urcor) ury (CADR urcor) hgy lly vgx llx ) ;setq (SETQ mjrg "C" llt "-" prod "GRID" colra "V" modf "0100" ) ;setq (c:mklayr) (WHILE (<= hgy ury) (COND ((EQ (REM hgy 1000) 0) (SETQ colra "Y") (SETQ modf "1000") (c:mklayr)) ((EQ (REM hgy 500) 0) (SETQ colra "X") (SETQ modf "0500") (c:mklayr)) ((EQ (REM hgy 200) 0) (SETQ colra "W") (SETQ modf "0200") (c:mklayr)) ((EQ (REM hgy 100) 0) (SETQ colra "V") (SETQ modf "0100") (c:mklayr)) ) ;cond (ENTMAKE (LIST (CONS 0 "LINE") (CONS 10 (TRANS (LIST llx hgy llz) 1 0)) (CONS 11 (TRANS (LIST urx hgy llz) 1 0)) ) ;_ end of list ) ;_ end of entmake (SETQ hgy (+ hgy 100)) ) ;while (WHILE (<= vgx urx) (COND ((EQ (REM vgx 1000) 0) (SETQ colra "Y") (SETQ modf "1000") (c:mklayr)) ((EQ (REM vgx 500) 0) (SETQ colra "X") (SETQ modf "0500") (c:mklayr)) ((EQ (REM vgx 200) 0) (SETQ colra "W") (SETQ modf "0200") (c:mklayr)) ((EQ (REM vgx 100) 0) (SETQ colra "V") (SETQ modf "0100") (c:mklayr)) ) ;cond (ENTMAKE (LIST (CONS 0 "LINE") (CONS 10 (TRANS (LIST vgx lly llz) 1 0)) (CONS 11 (TRANS (LIST vgx ury llz) 1 0)) ) ;_ end of list ) ;_ end of entmake (SETQ vgx (+ vgx 100)) ) ;while ) ;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! ***|;