Help please....first Lisp code I've tried to write!

[JExpress]

I'm trying to create a command that will draw a grid reference down the side and across the top (or all sides) of a drawing.

Something like this:



Close up of one corner:



I would like the small grid reference numbers (ie. 569,000) to relate dynamically to the x-y coordinates within the dwg, so that no matter where it is drawn, or even it is moved later, the numbers will automatically display the corresponding coordinates.

This can then be drawn around survey plans to provide a handy grid reference for objects that have not been given an exact survey location.

My idea is to get the user to input a scale (which will be the same as the scale used for zooming thru the viewport later on), a spacing (in metres) for the grid spacing, and pick two points (for each end of the grid reference line). Using these values, the command will automatically draw all the lines and text in the appropriate scale down the side (or across the top) of the page.

The main problems I have at the moment are:
1. Making the ends of the line which runs parallel with the edge of the page (the dashed line) snap immediately to the closest coordinate with a whole number (ie. if the first point picked has x = 569.234, it will snap to x = 569.000)

2. Making polar tracking function to help pick the points in a vert. or horiz. direction

I have started writing the routine, but I'm learning out of a book and have got an embarrassingly small amount to show for my efforts. I have done a test run of the code below, but it gives an error when I load it into the drawing.

My grasp of Autolisp is tragic at best, so any help at all would be greatly appreciated!

(defun C:DYC (/ sc sp pt1 pt2)
	(setq sc (getint "Enter scale: "))

	(setq sp (getint "Enter grid spacing: "))

	(setq pt1 (getpoint "Pick first point: "))
		(setq pt1 (/ (car pt1) sc) (/ (cadr (pt1)) sc))
		(setq pt1 (fix (car pt1)) (fix (cadr (pt1)))
		(setq pt1 (* (car pt1) sc) (* (cadr (pt1))))
	
	(setq pt2 (getpoint "Pick second point: "))
		(setq pt2 (/ (car pt2) sc) (/ (cadr (pt2)) sc))
		(setq pt2 (fix (car pt2)) (fix (cadr (pt2)))
		(setq pt2 (* (car pt2) sc) (* (cadr (pt2))))

	(command "line" pt1 pt2 "")
)

Think I need to study more of the book first.....

[dbroada]

you certainly have an error in the line

(setq pt1 (/ (car pt1) sc) (/ (cadr (pt1)) sc))

I'm no longer quick with LISP. I can see what you are trying to do but can't see how to change it. I think you need a couple more variables such as...

(setq Pt1Scaled (/ (car pt1) sc)) etc
(setq pt1 ([function to reconstrust variable] Pt1Scaled Pt2Scaled))

[David Bethel]

What you want is indeed doable, just a bit complicated for a first routine.

I see problems with things like text size, grid spacing, rounding etc.

Also having it update with a move is very very complicated. -David

[David Bethel]

Here's how I'd start just to get the corners and the grid section size

(defun getrect (/ p1 p2)
  (initget 1)
  (setq p1 (getpoint "\n1st Corner:   "))
  (initget 1)
  (setq p2 (getcorner p1 "\n2nd Corner:   "))
  (setq ll (list (min (car p1) (car p2))
                 (min (cadr p1) (cadr p2))
                 (caddr p1))
        ur (list (max (car p1) (car p2))
                 (max (cadr p1) (cadr p2))
                 (caddr p1))
        lr (list (car ur) (cadr ll) (caddr p1))
        ul (list (car ll) (cadr ur) (caddr p1)))
  (prin1))

  (getrect)
  (setq xscl (- (car lr) (car ll))
        yscl (- (cadr ur) (cadr lr))
        mscl (max xscl yscl)
        i 0)
  (while (>= mscl (expt 10 i))
         (setq i (1+ i)))
  (setq defs (expt 10 (1- i)))
  (prin1 defs)
  (while (or (not scl)
             (> scl defs))
         (initget 6)
         &#40;setq scl &#40;getdist &#40;strcat "\nGrid Section Size <" &#40;rtos defs 2&#41; ">&#58;   "&#41;&#41;&#41;
         &#40;and &#40;not scl&#41;
              &#40;setq scl defs&#41;&#41;&#41;

-David

[JExpress]

Thanks David,

It will take me a while to figure out what you have written, but I'll have a go at continuing on with it.

As you suggested, making it update dynamically is quite difficult, especially for my first code, so I will leave it out for now.

I haven't even got up to inserting text yet, so I may be way off track, but I thought text size would be relatively easy. Can't you just use the 'Specify height:' option within the 'dtext' command, and multiply it by a figure based on the overall scale initially specified by the user?

Anyway, thanks again for the help. I really have thrown myself in the deep end with this one. I'll keep plugging away at it, and see how I go.

[David Bethel]

Here is bit different approach. Force ACAD to do the grid work. Tell the operator not mess with the snap settings while the program is running. ( I don't know of a way to disable transaperent stuff )

(defun getrect (/ p1 p2)
  (initget 1)
  (setq p1 (getpoint "\n1st Corner:   "))
  (initget 1)
  (setq p2 (getcorner p1 "\n2nd Corner:   "))
  (setq ll (list (min (car p1) (car p2))
                 (min (cadr p1) (cadr p2))
                 (caddr p1))
        ur (list (max (car p1) (car p2))
                 (max (cadr p1) (cadr p2))
                 (caddr p1))
        lr (list (car ur) (cadr ll) (caddr p1))
        ul (list (car ll) (cadr ur) (caddr p1)))
  (prin1))


  (initget 7)
  (setq scl (getdist "\nGrid Size:   "))

  (setvar "ELEVATION" 0)
  (setvar "THICKNESS" 0)
  (setvar "CECOLOR" "BYLAYER")
  (setvar "CELTYPE" "BYLAYER")
  (setvar "SNAPBASE" (list 0 0))
  (setvar "SNAPUNIT" (list scl scl))
  (setvar "SNAPMODE" 1)
  (setvar "OSMODE" 0)

  (getrect)

  (foreach p '(ll lr ul ur)
     (if (or (/= 0 (rem (car (eval p)) scl))
             (/= 0 (rem (car (eval p)) scl)))
         (prong
           (price "\Grid Is Not To The Snap - Abort")
           (exit))))

  (setvar "SNAPBASE" (list 0 0))
  (setvar "SNAPUNIT" (list 1 1))
  (setvar "SNAPMODE" 1)
  (setvar "OSMODE" 0)

  (entmake (list (cons 0 "LINE")
                 (cons 10 ll)
                 (cons 11 lr)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 lr)
                 (cons 11 ur)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ur)
                 (cons 11 ul)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ul)
                 (cons 11 ll)))

  (setq lx (car ll)
        rx (car lr)
        y (cadr ll)
        i 0)
  &#40;while &#40;<= &#40;+ y &#40;* i scl&#41;&#41; &#40;cadr ul&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list lx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;- lx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list rx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ rx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

  &#40;setq uy &#40;cadr ul&#41;
        ly &#40;cadr ll&#41;
        x &#40;car ll&#41;
        i 0&#41;
  &#40;while &#40;<= &#40;+ x &#40;* i scl&#41;&#41; &#40;car ur&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;- ly &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; ly 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;+ uy &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; uy 0&#41;&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

I would defintly look into (entmaking) the text. You can specify the justification flags, rotation angles, point values a lot easier IMO.

I picked the lines to be 50% of the scale. I would start with the text being 5% of it as well. -David

[David Bethel]

Not the most robust as far as error trapping and resetting values, but here goes:

;;;GET GRID SIZE
  (initget 7)
  (setq scl (getdist "\nGrid Size:   "))
;;;SET SYSVARs
  (setvar "ELEVATION" 0)
  (setvar "THICKNESS" 0)
  (setvar "CECOLOR" "BYLAYER")
  (setvar "CELTYPE" "BYLAYER")
  (setvar "SNAPBASE" (list 0 0))
  (setvar "SNAPUNIT" (list scl scl))
  (setvar "SNAPMODE" 1)
  (setvar "OSMODE" 0)

;;;GET RECTANGLE
  (initget 1)
  (setq p1 (getpoint "\n1st Corner:   "))
  (initget 1)
  (setq p2 (getcorner p1 "\n2nd Corner:   "))
  (setq ll (list (min (car p1) (car p2))
                 (min (cadr p1) (cadr p2))
                 (caddr p1))
        ur (list (max (car p1) (car p2))
                 (max (cadr p1) (cadr p2))
                 (caddr p1))
        lr (list (car ur) (cadr ll) (caddr p1))
        ul (list (car ll) (cadr ur) (caddr p1)))

  (foreach p '(ll lr ul ur)
     (if (or (/= 0 (rem (car (eval p)) scl))
             (/= 0 (rem (car (eval p)) scl)))
         (prong
           (price "\Grid Is Not To The Snap - Abort")
           (exit))))

;;RESET SYSVARS
  (setvar "SNAPBASE" (list 0 0))
  (setvar "SNAPUNIT" (list 1 1))
  (setvar "SNAPMODE" 1)
  (setvar "OSMODE" 0)
  (setvar "DIMZIN" 0)

;;;DRAW THE BOX
  (entmake (list (cons 0 "LINE")
                 (cons 10 ll)
                 (cons 11 lr)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 lr)
                 (cons 11 ur)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ur)
                 (cons 11 ul)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ul)
                 (cons 11 ll)))

;;;DRAW AND LABEL THE HORIZONTAL LINES
  (setq lx (car ll)
        rx (car lr)
         y (cadr ll)
         i 0)
  &#40;while &#40;<= &#40;+ y &#40;* i scl&#41;&#41; &#40;cadr ul&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list lx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;- lx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;
                        &#40;cons 1 &#40;rtos &#40;+ y &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;- lx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;- lx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 72 2&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list rx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ rx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;
                        &#40;cons 1 &#40;rtos &#40;+ y &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ rx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ rx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

;;;DRAW AND LABEL THE VERTICAL LINES
  &#40;setq uy &#40;cadr ul&#41;
        ly &#40;cadr ll&#41;
         x &#40;car ll&#41;
         i 0&#41;
  &#40;while &#40;<= &#40;+ x &#40;* i scl&#41;&#41; &#40;car ur&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;- ly &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; ly 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;
                        &#40;cons 1 &#40;rtos &#40;+ x &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;- ly &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;- ly &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 50 &#40;* pi 0.5&#41;&#41;
                        &#40;cons 72 2&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;+ uy &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; uy 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;
                        &#40;cons 1 &#40;rtos &#40;+ x &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;+ uy &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;+ uy &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 50 &#40;* pi 0.5&#41;&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

-David

[JExpress]

Wow! Very nice David!

This would take me ages to figure out. I'm still trying to write my own code, but still haven't figured out the basic linework yet.

This will definitely help me along.

I will have a play with it and see if I can get the text to match our styles and reset some of those variables.

Thanks again

[CarlB]

Hi David,

Nice work in crankin' out the code! Reading through it looks like your spellchecker changed some lisp functions to "non-lisp":

(prong 
           (price "\Grid Is Not To The Snap - Abort")

of course you typed..

prong >> progn
price "\Grid... >> princ "\nGrid.....

Cheers,
Carl

[David Bethel]

Carl,

Good catch!

Ok I'm either bored with some of the current stuff I'm doing or in a generous mood.

;=======================================================================
;    GridMaKe.Lsp                                    Jan 16, 2006
;    Make And Label A Grid System
;================== Start Program ======================================
(princ "\nCopyright (C) 2006, Fabricated Designs, Inc.")
(princ "\nLoading GridMaKe v1.3 ")

;================== Macros =============================================
(defun PDot ()(princ "."))

(PDot);++++++++++++ Set Modes & Error ++++++++++++++++++++++++++++++++++
(defun grd_smd ()
 (SetUndo)
 (setq olderr *error*
      *error* (lambda (e)
                (while (> (getvar "CMDACTIVE") 0)
                       (command))
                (and (/= e "quit / exit abort")
                     (princ (strcat "\nError: *** " e " *** ")))
                (and (= (logand (getvar "UNDOCTL") 8) 8)
                     (command "_.UNDO" "_END" "_.U"))
                (grd_rmd))
       grd_var '(("CMDECHO"   . 0) ("MENUECHO"   . 0)
                 ("MENUCTL"   . 0) ("MACROTRACE" . 0)
                 ("OSMODE"    . 0) ("SORTENTS"   . 119)
                 ("BLIPMODE"  . 0) ("SNAPMODE"   . 1)
                 ("ORTHOMODE" . 1) ("GRIDMODE"   . 0)
                 ("ELEVATION" . 0) ("THICKNESS"  . 0)
                 ("UCSICON"   . 1) ("DIMZIN"     . 0)
                 ("MODEMACRO" . ".")
                 ("CECOLOR"   . "BYLAYER")
                 ("CELTYPE"   . "BYLAYER")))
 (foreach v grd_var
   (and (getvar (car v))
        (setq grd_rst (cons (cons (car v) (getvar (car v))) grd_rst))
        (setvar (car v) (cdr v))))
 (princ (strcat (getvar "PLATFORM") " Release " (ver)
        " -  Make and Label A Grid System ....\n"))
 (princ))

(PDot);++++++++++++ Return Modes & Error +++++++++++++++++++++++++++++++
(defun grd_rmd ()
  (setq *error* olderr)
  (foreach v grd_rst (setvar (car v) (cdr v)))
  (command "_.UNDO" "_END")
  (prin1))

(PDot);++++++++++++ Set And Start An Undo Group ++++++++++++++++++++++++
(defun SetUndo ()
 (and (zerop (getvar "UNDOCTL"))
      (command "_.UNDO" "_ALL"))
 (and (= (logand (getvar "UNDOCTL") 2) 2)
      (command "_.UNDO" "_CONTROL" "_ALL"))
 (and (= (logand (getvar "UNDOCTL") 8) 8)
      (command "_.UNDO" "_END"))
 (command "_.UNDO" "_GROUP"))

(PDot);************ Main Program ***************************************
(defun grd_ (/ olderr grd_var grd_rst scl p1 p2 ll lr ur ul
               x y i rx lx uy ly)

;;;SET SYSVAR MODES
  (grd_smd)

;;;GET GRID SIZE
  (initget 7)
  (setq scl (getdist "\nGrid Snap Size:   "))

;;;SET SYSVARs
  (setvar "SNAPBASE" (list 0 0))
  (setvar "SNAPUNIT" (list scl scl))

;;;GET RECTANGLE
  (initget 1)
  (setq p1 (getpoint "\n1st Corner:   "))
  (initget 1)
  (setq p2 (getcorner p1 "\n2nd Corner:   "))
  (setq ll (list (min (car p1) (car p2))
                 (min (cadr p1) (cadr p2))
                 (caddr p1))
        ur (list (max (car p1) (car p2))
                 (max (cadr p1) (cadr p2))
                 (caddr p1))
        lr (list (car ur) (cadr ll) (caddr p1))
        ul (list (car ll) (cadr ur) (caddr p1)))

  (foreach p '(ll lr ul ur)
     (if (or (/= 0 (rem (car (eval p)) scl))
             (/= 0 (rem (car (eval p)) scl)))
         (progn
           (princ "\Grid Is Not To The Snap - Abort")
           (exit))))

;;;DRAW THE BOX
  (entmake (list (cons 0 "LINE")
                 (cons 10 ll)
                 (cons 11 lr)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 lr)
                 (cons 11 ur)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ur)
                 (cons 11 ul)))
  (entmake (list (cons 0 "LINE")
                 (cons 10 ul)
                 (cons 11 ll)))

;;;DRAW AND LABEL THE HORIZONTAL LINES
  (setq lx (car ll)
        rx (car lr)
         y (cadr ll)
         i 0)
  &#40;while &#40;<= &#40;+ y &#40;* i scl&#41;&#41; &#40;cadr ul&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;&#40;cons 62 2&#41;
                        &#40;cons 10 &#40;list lx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;- lx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;&#40;cons 62 3&#41;
                        &#40;cons 1 &#40;rtos &#40;+ y &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;- lx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;- lx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 72 2&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;&#40;cons 62 2&#41;
                        &#40;cons 10 &#40;list rx &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ rx &#40;* scl 0.5&#41;&#41; &#40;+ y &#40;* i scl&#41;&#41; 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;&#40;cons 62 3&#41;
                        &#40;cons 1 &#40;rtos &#40;+ y &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ rx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ rx &#40;* scl 0.1&#41;&#41; &#40;+ y &#40;* i scl&#41; &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

;;;DRAW AND LABEL THE VERTICAL LINES
  &#40;setq uy &#40;cadr ul&#41;
        ly &#40;cadr ll&#41;
         x &#40;car ll&#41;
         i 0&#41;
  &#40;while &#40;<= &#40;+ x &#40;* i scl&#41;&#41; &#40;car ur&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;&#40;cons 62 2&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;- ly &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; ly 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;&#40;cons 62 3&#41;
                        &#40;cons 1 &#40;rtos &#40;+ x &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;- ly &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;- ly &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 50 &#40;* pi 0.5&#41;&#41;
                        &#40;cons 72 2&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "LINE"&#41;&#40;cons 62 2&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41;&#41; &#40;+ uy &#40;* scl 0.5&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41;&#41; uy 0&#41;&#41;&#41;&#41;
         &#40;entmake &#40;list &#40;cons 0 "TEXT"&#41;&#40;cons 62 3&#41;
                        &#40;cons 1 &#40;rtos &#40;+ x &#40;* i scl&#41;&#41; 2&#41;&#41;
                        &#40;cons 7 &#40;getvar "TEXTSTYLE"&#41;&#41;
                        &#40;cons 40 &#40;* scl 0.05&#41;&#41;
                        &#40;cons 10 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;+ uy &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 11 &#40;list &#40;+ x &#40;* i scl&#41; &#40;* scl -0.1&#41;&#41; &#40;+ uy &#40;* scl 0.1&#41;&#41; 0&#41;&#41;
                        &#40;cons 50 &#40;* pi 0.5&#41;&#41;
                        &#40;cons 73 2&#41;&#41;&#41;
         &#40;setq i &#40;1+ i&#41;&#41;&#41;

;;;RETURN SYSVAR MODES
  &#40;grd_rmd&#41;&#41;

&#40;PDot&#41;;************ Load Program ***************************************
&#40;defun C&#58;GridMaKe &#40;&#41; &#40;grd_&#41;&#41;
&#40;and grd_
    &#40;princ "\nGridMaKe Loaded\n"&#41;
    &#40;defun C&#58;GMK &#40;&#41; &#40;grd_&#41;&#41;&#41;
&#40;prin1&#41;
;|================== End Program =======================================