;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:		5-28-96
;
(defun c:plgrid ( / )
  (setq llcor (upoint 1 "" "Lower left corner of grid" (if llcor llcor nil) nil))
  (setq urcor (upoint 1 "" "Upper right corner of grid" (if urcor urcor nil) nil))
  (setq llx (car llcor)
        lly (cadr llcor)
        llz (caddr llcor)
        urx (car urcor)
        ury (cadr urcor)
        hgy lly
        vgx llx
        count 0
  );setq
  (setq mjrg "C"
        llt "-"
        prod "GRID"
        colra "F"
        modf "0100"
  );setq
  (c:mklayr)
  (while
    (<= hgy ury)
    (cond
      ((eq(rem count 1000)0)
        (setq colra "E")
        (setq modf "1000")
        (c:mklayr)
      )      
      ((eq(rem count 500)0)
        (setq colra "E")
        (setq modf "0500")
        (c:mklayr)
      )
      ((eq(rem count 200)0)
        (setq colra "F")
        (setq modf "0200")
        (c:mklayr)
      )
      ((eq(rem count 100)0)
        (setq colra "F")
        (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))
      )
    )
    (setq hgy (+ hgy 100))
    (setq count (+ count 100))
  );while
  (setq count 0)
  (while
    (<= vgx urx)
    (cond
      ((eq(rem count 1000)0)
        (setq colra "E")
        (setq modf "1000")
        (c:mklayr)
      )      
      ((eq(rem count 500)0)
        (setq colra "E")
        (setq modf "0500")
        (c:mklayr)
      )
      ((eq(rem count 200)0)
        (setq colra "F")
        (setq modf "0200")
        (c:mklayr)
      )
      ((eq(rem count 100)0)
        (setq colra "F")
        (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))
      )
    )
    (setq vgx (+ vgx 100))
    (setq count (+ count 100))
  );while
);defun