***BUTTONS
;
$p0=*
^c^c
^B
^O
^G
^D
^E
^T
***AUX1
;
$p0=*
^c^c
^B
^O
^G
^D
^E
^T
***POP0
[Osnap](print "NICK K. VAN VLIET (416) 921-4653")
[Endpoint]_endp
[Nearest]_nea
[Center]_center
[Insert]_ins
[Intersection]_int
[Midpoint]_mid
[Node]_nod
[Perpendicular]_per
[Quadrant]_qua
[Tangent]_tan
[None]_non
[Calculator]'cal

***POP1
[Tools]
[~--]^c^c$p1=*
[ENDpoint]end $s=OSNAPB 
[NEArest]nea $s=OSNAPB
[CENter]cen $s=OSNAPB
[QUAdrant]qua $s=OSNAPB
[INTersection]int $s=OSNAPB
[PERpendicular]per $s=OSNAPB
[MIDpoint]mid $s=OSNAPB
[NODe]nod  $s=OSNAPB
[TANgent]tan $s=OSNAPB
[~--]
[Find? w]^c^c^P(setq os(getstring "Find whole string? "));\+
(setq e(entnext))(while e (setq f 't)+
(while (and f (= "TEXT" (cdr(assoc 0 (entget e))))+
(= os (cdr(assoc 1 (entget e)))))(setq f nil)(redraw e 3)+
(print (cdr(assoc 10 (entget e))))(getstring " Located string! ");\+
(redraw e 4))(setq e(entnext e)))
[Find & Replace? w]^c^c^P(setq os(getstring "Find whole string? "));\+
(setq ns(getstring "Replace with string? "));\+
(setq e(entnext))+
(while e +
 (setq f 't)+
 (while (and f (= "TEXT" (cdr(assoc 0 (entget e))))+
         (= os (cdr(assoc 1 (entget e)))))+
  (setq f nil)+
  (redraw e 3)+
  (print (cdr(assoc 10 (entget e))))+
  (setq x(getstring " Is this the string to replace? "));\+
  (if (or(= x "y")(= x "Y"))+
   (progn +
    (entmod(subst (cons 1 ns) (assoc 1 (entget e)) (entget e)))+
    (entupd e)+
   )+
  )+
  (redraw e 4)+
 )+
 (setq e(entnext e))+
)
[~--]
[SELECT ent]^c^c^P(setq e(entget(car(entsel "select an entity!"))));\
[SELECT c]^c^c^P(setq c(ssget));c;\\
[Time]^c^c^P(grtext 0 (strcat "[" (rtos(getvar "tdindwg")) "]"))^P
[Date]^c^c^P(getvar"date")
[~--]

[Find? p]^c^c^P(setq os(getstring "Old partial string to find? "));\+
(setq l(strlen os))(setq e(entnext))+
(while e (setq f 't)+
 (setq osl(strlen os))+
 (while (and f (="TEXT" (cdr(assoc 0 (entget e))))+
               (<=(srtlen(cdr(assoc 1 (entget e))))))+
  (setq i 1)+
  (setq s (cdr(assoc 1 (entget e))))+
  (setq sl(strlen s))+
  (while (< i (+(- sl l)1))+
   (setq sb(substr s i l))+
   (while (and f (eq os sb))+
     (redraw e 3)+
     (print (cdr(assoc 10 (entget e))))+
     (setq x(getstring " Located entity at point shown. OK? "))+
     (if (= x  "")(progn (setq i l e 'nil)(setq f 'nil)))+
   )+
     (redraw e 4)(setq i (+ i 1))+
  )+
 )+
 (setq e(entnext e))+
)
[Find & Replace? p]^c^c^P(terpri)+
(setq os(getstring "Old partial string to replace? "));\+
(setq ns(getstring "New string?"));\+
(setq ol(strlen os))+
(setq nl(strlen ns))+
(setq e(entnext))+
(while e (setq f 't)+
 (while (and f (="TEXT" (cdr(assoc 0 (entget e)))))+
  (setq si 1)+
  (setq s(cdr(assoc 1 (entget e))))+
  (setq sl(strlen s))+
  (while (>=sl l)+
   (while (< i (-(+ sl 1)l))(setq fi 't)+
    (setq sb(substr s i l))+
    (while (and fi (= os sb))(setq fi 'nil)+
      (redraw e 3)+
      (print (cdr(assoc 10 (entget e))))(princ " @ chr$ ")(princ i)+
      (setq x(getstring " Is this the string to replace? "));\+
     (if (or(= x "y")(= x "Y"))+
       (progn +
         (setq n(+ n 1))+
         (setq s1 (strcat (substr s 1 (- i 1)) ns (substr s (+ ol i))))+
         (entmod(subst (cons 1 s1) (assoc 1 (entget e)) (entget e)))+
         (entupd e)+
         (setq i (+ i (strlen ns)))+
       )+
     )+
    )+
    (redraw e 4)+
    (setq i (+ i 1))+
   )+
   (setq f 'nil)+
  )+
 )+
  (setq e(entnext e))+
)+
(print "Changes made: ")(princ n)


***POP2
[Draw]
[DR Mnu]$s=X $s=DR
[Line]^c^c$s=X $s=line line
[Line e]^c^c$s=X $s=line line;end;\end;\end;\;;; auto
[Line m]^c^c$s=X $s=line line;mid;\mid;\mid;\;;; auto
[Line q]^c^c$s=X $s=line line;qua;\qua;\qua;\;;; auto
[Line t]^c^c$s=X $s=line line;tan;\tan;\tan;\;;; auto
[3dline]^c^c$s=X $s=3dline 3dline
[Circle]^c^c$s=X $s=circle circle
[Ellipse]^c^c$s=X $s=ellipse ellipse
[Polyline]^c^c$s=X $s=pline pline
[3D Polyline]^c^c$s=X $s=3dpoly 3dpoly
[Arc]^c^c$s=X $s=poparc arc
[Donut]^c^c$s=X $s=donut donut
[Point]$s=X $s=POINT ^c^cPOINT
[~--]
[Steel Hatch]^c^c$i=hatch hatch;ansi32;0;0.5
[Hatch]^c^c$i=hatch1 $i=*
[3DFACE]$s=X $s=3DFACE ^c^c3DFACE
[3D Construction]$i=3dobjects $i=*
[~--]
[Dtext]^c^c$s=X $s=DTEXT DTEXT
[Dtext Words]^c^c^P(setq h(getreal "Line height? "))+
(setq p1(getpoint "Text start-point (left justified)? "));\+
(setq hf(* h 1.5))+
(setq p1(list (car p1)(+ (cadr p1) hf) 0))+
(setq l(getstring "Enter text  ? "));\+
(while (/= l "")(setq p1(list (car p1) (- (cadr p1) hf) 0))+
(setq e(entmake(list (cons 0 "TEXT")(cons 1 l)(cons 10 p1);+
(cons 40 h))))(setq l(getstring "Enter text  ? "));\+
)
[Dtext Lines]^c^c^P(setq h(getreal "Line height? "));\+
(setq hf(* h 1.5))+
(setq p1(getpoint "Text start-point (left justified)? "));\+
(setq p1(list (car p1)(+ (cadr p1) hf) 0))+
(prompt "Enter text  ? ")(setq l(read-line));\+
(while(/= l "")(setq p1(list (car p1)(-(cadr p1) hf) 0))+
(setq e(entmake(list (cons 0 "TEXT")(cons 1 l)(cons 10 p1)(cons 40 h))))+
(prompt "Enter text  ? ")(setq l(read-line));\+
)
***POP3
[Edit]
[**ED]$s=X $s=ED
[Change c]^c^cchange;c;\\
[Change z]^c^c(princ "zoom");zoom;c;\\change;\;;\zoom;p
[Erase c]^c^cerase;c;\\
[Erase z]^c^c(princ "zoom");zoom;c;\\erase;\;;\zoom;p
[Trim]^c^c$s=X $s=trim trim auto
[Extend]^c^c$s=X $s=extend extend auto
[Break pt]^c^c(princ "zoom");zoom;w;\\break;\@0,0;;\zoom;p
[Mirror]^c^c$s=X $s=mirror mirror auto
[Stretch c]^c^c stretch;c;\\ auto
[Stretch pt]^c^c(princ "zoom");ortho;on;zoom;c;\\stretch;c;\@0,0;;\;zoom;p
[Scale]^c^c$s=X $s=scale scale auto
[Explode]^c^c$s=X $s=explode explode auto
[Explode lst]^c^c^Pexplode (entlast)
[Move]^c^c^P(princ "zoom");zoom;w;\\move;c;\\;;\zoom;p
[Copy]^c^c^P(princ "zoom");zoom;w;\\copy;c;\\;;\zoom;p
[Rotate]^c^c$s=X $s=rotate rotate
[~--]
[Offset]^c^c$s=X $s=OFFSET OFFSET auto
[Fillet 0]^c^c$s=X $s=fillet;(setq gvf(getvar "filletrad"))+
fillet;r;0;;\\;(setvar "filletrad" gvf)
[Fillet 3 L]^c^c^P(setq gvf(getvar "filletrad"))(princ "zoom")+
zoom;w;\\fillet;r;0;;c;int;\int;@;zoom;e;(setvar "filletrad" gvf)
[Fillet 5 T]^c^c^P(setq gvf(getvar "filletrad"))(princ "zoom")+
zoom;w;\\break;nea;\@;fillet;r;0;;c;int;\int;@;;c;int;\int;@;zoom;e+
(setvar "filletrad" gvf)
[Fillet 8 +]^c^c^P(setq gvf(getvar "filletrad"))(print "zoom")+
zoom;w;\\trim;c;\\;nea;\nea;\nea;\nea;\;zoom;e;(setvar "filletrad" gvf)
[~--]
[Select]^c^c$s=X $s=select select
[Fill]^c^c$s=x $s=fill fill
[Solid]^c^c$s=x $s=solid solid
***POP4
[Zm Vw/Ps]
[PSPACE-Next]$p4=pop11
[~--]
[Zoom e]^c^czoom;e
[Zoom p]^c^czoom;p
[Zoom .9x]^c^czoom;e;;.9x
[~--]
[View]^c^c$i=view view $i=*
[Mview]^c^c$i=mview mview $i=*
[~--]
[Dview Options]^c^c$i=dviewi $i=*
[Dview ]^c^c$s=X $s=DVIEW2 dview
[CLip f]Clip $s=X $s=DVIEW2 dview cl f
[CLip b]Clip $s=X $s=DVIEW2 dview cl b
[~--]
[Vpnt mnu]^c^c$s=X $s=VPOINT3D $i=3dviews $i=*
[Vpoint 3d]^c^c$s=X $s=vpoint vpoint -1,-1,1
[Plan]^c^c$s=X $s=vpoint vpoint 0,0,1 zoom .9x
[Back]^c^c$s=X $s=vpoint vpoint 0,0,-1 zoom .9x
[Side x]^c^c$s=X $s=vpoint vpoint 1,0,0 zoom .9x
[Side y]^c^c$s=X $s=vpoint vpoint 0,1,0 zoom .9x
[Frontz]$s=X $s=frontz frontz
[Backz]$s=X $s=backz backz
***POP11
[PSPACE]
[Exit]$p4=pop4
[~--]
[Tilemode 0]^c^ctilemode 0
[Tilemode 1]^c^ctilemode 1
[Zoom/xp]^c^czoom xp
[~--]
[Pspace]^c^cpspace
[Psout]^c^cpsout
[Psin]^c^cpsin
[Pcin]^c^cpcin
[Psfill]^c^cpsfill
[Psdrag]^c^cpsdrag
[~--]
[Mvsetup]^c^cmvsetup
[Mview]^c^cmview
[Mspace]^c^cmspace
[Vplayer]^c^cvplayer
[~--]
[Vports]^c^cvports 4
[Set Viewports]^c^c$s=X $s=vports $i=vporti $i=*

***POP5
[Lay/Ucs]
[LAYER MENU]'ddlmodes
[Make all layers]^c^clayer m 1 c 1 1 m 2 c 2 2 +
m 3 c 3 3 m 4 c 4 4 m 5 c 5 5 m 6 c 6 6 m 7 c 7 7 s 1  +
(command "line" "0,0" "1,1" "" "change" "last" "" "prop" +
"lt" "center" "" "erase" "last" "" "layer" "lt" "center" 1 "" +
"line" "0,0" "1,1" "" "change" "last" "" "prop" +
"lt" "phantom" "" "erase" "last" "" "layer" "lt" "phantom" 6 "s" 3 "")
[~--]
[DEL everything]^c^c^C^P(setq e(entnext))(while e(entdel e)+
(setq e(entnext e)))
[DEL All Nodes]^c^c^P(setq e(entnext))(while e +
(setq f(cdr(assoc 0 (entget e))))(if (= f "POINT")(entdel e))+
(setq e(entnext e)))
[DEL NodeLayer]^c^c^P(setq a(getstring "Nodelayer?"));\+
(setq e(entnext))(while e(if (=(cdr(assoc 8 (entget e)))a)(entdel e))+
(setq e(entnext e)))
[DEL Defpoint]^c^c^P(setq e(entnext))(while e +
(setq f(cdr(assoc 0 (entget e))))(setq g(cdr(assoc 8 (entget e))))+
(if(and(= g "DEFPOINT")(= f "POINT"))(entdel e))(setq e(entnext e)))
[~--]
[Drawing Aids]'ddrmodes
[Entity Creation]'ddemodes
[UcsSet]$s=X $s=SET
[~--]
[Plan View (UCS)]^c^cplan;;
[Plan View (World)]^c^cplan wo
[~--]
[UCS org]^c^cUCS o
[UCS x]^c^cUCS x (getreal "x turn?")
[UCS y]^c^cUCS y (getreal "y turn?")
[UCS Dialogue]^c^c$s=X $s=ucs1 dducs
[UCS Options]^c^c$s=X $s=ucs1 $i=ucs $i=*
[~--]
[Ucs 3e]^c^cucs;3;end;\end;\end;\
[Ucs 3n]^c^cucs;3;nea;\nea;\nea;\
[Ucs za]^c^cucs;za;nea;\nea;\
[Ucs p]^c^cucs;p


***POP6
[Angles&ALisp]
[Next]$p6=pop12
[~--]
[Rectangle 2pts]^c^c^P(setq p1(getpoint "Lower corner point?"));\+
(setq p2(getpoint "Upper corner point?"));\+
(command "line" p1 (list(car p2)(cadr p1)) p2 (list(car p1)(cadr p2)) "c")
[Parallelogram 3pts]^c^c^P(setq p1(getpoint "1st. point?"));\+
(setq p2(getpoint "2nd. point?"));\+
(setq p3(getpoint "3rd. point?"));\+
(setq ang(angle p2 p1))+
(command "line" p1 p2 p3 (polar p3 ang (distance p2 p1)) "c")
[Square 2pts]^c^c^P(setq p1(getpoint "1st. point?"));\+
(setq p2(getpoint "2nd. point?"));\+
(setq ang(angle p1 p2))+
(setq p3(polar p2 (+(/ pi 2)ang)(distance p1 p2)))+
(command "line" p1 p2 p3 (polar p3(+  pi ang)(distance p2 p1))"c")
[Border]^c^c^P(setq p1(getvar "limmin"))(setq p2(getvar "limmax"))+
(command "layer" "m" "5" "c" "5" "5" "";+
"pline" p1 "w" "0.05" "" (list (car p2) (cadr p1));+
p2 (list (car p1) (cadr p2)) p1 "close" "layer" "m" "3" "c" "3" "3" "" +
"zoom" "e")
[3D Cube Faces]^c^c^P(command "layer" "m" "3" "c" "3" "3" "")+
(setq x(getreal "Length x ? "));\+
(setq y(getreal "Length y ? "));\+
(setq z (getreal "Length z ? "));\+
(setq p9(getpoint "Location of cube?"));\+
(defun mth(a b) (mapcar '+ a b))+
(setq p1 (mth p9 (list 0 0 0)))+
(setq p2 (mth p9 (list 0 y 0)))+
(setq p3 (mth p9 (list 0 y z)))+
(setq p4 (mth p9 (list 0 0 z)))+
(setq p5 (mth p9 (list x 0 z)))+
(setq p6 (mth p9 (list x y z)))+
(setq p7 (mth p9 (list x y 0)))+
(setq p8 (mth p9 (list x 0 0)))+
(command "3dface" p1 p2 p3 p4 p5 p6 p7 p8 "")+
(command "VPOINT" "-1,-1,1")
[3D Box THCK]^c^c^P(defun bxst() (setq a(getvar "THICKNESS"))+
 (command "layer" "m" "3" "c" "3" "3" "")+
 (setq x(getreal "Length x ? "));\+
 (setq y(getreal "Length y ? "));\+
 (setq z (getreal "Length z ? "));\+
 (setq p1(getpoint "Location of Box ? "));\+
 (setvar "THICKNESS" z)+
 (setq p2(list (/ x 2)(/ y 2)(/ z 2)))+
 (defun mth(a) (mapcar '+ a p1 -p2))+
 (grdraw (mth (list 0 0)) (mth (list 0 x) 3 1))+
 (grdraw (mth (list 0 x)) (mth (list x y) 3 1))+
 (grdraw (mth (list x y)) (mth (list 0 y) 3 1))+
 (grdraw (mth (list 0 0)) (mth (list 0 y) 3 1))+
 (command "VPOINT" "-1,-1,1")+
 (setvar "THICKNESS" a)+
)(bxst)
[3D Box Lines ]^c^c^P(command "layer" "m" "3" "c" "3" "3" "")+
(setq x(getreal "Length x ? "));\+
(setq y(getreal "Length y ? "));\+
(setq z (getreal "Length z ? "));\+
(setq gvt(getvar "THICKNESS"))(setvar "THICKNESS" z)+
(setq p1(getpoint "Location of cube ? "));\+
(command "line" "@0,0" (strcat "@" (itoa x) ",0")(strcat  "@0,"(itoa y))+
(strcat "@" (itoa -x) ",0") "c")(setvar "THICKNESS" gvt)+
(command "VPOINT" "-1,-1,1")
[~--]
[Line Lenght]^c^c^P(setq e(entget(car(entsel "pick a line"))));nea;\+
(setq p1(cdr(assoc 10 e)))(setq p2(cdr(assoc 11 e)))+
(sqrt(+(expt(-(car p1)(car p2))2)(expt(-(cadr p1)(cadr p2))2)))
[3d Lenght]^c^c^P(setq e(entget(car(entsel "pick a line"))));nea;\+
(setq p1(cdr(assoc 10 e)))(setq p2(cdr(assoc 11 e)))+
(sqrt(+(expt(-(car p1)(car p2))2)(expt(-(cadr p1)(cadr p2))2)+
(expt(-(caddr p1)(caddr p2))2)))
[Line Angle]^c^c^P(setq e(entget(car(entsel "pick a line"))));nea;\+
(setq p1(cdr(assoc 10 e)))(setq p2(cdr(assoc 11 e)))+
(setq a(angle p1 p2))(setq b(*(/ a pi)180))+
(print "angle= ")(princ b)(princ)^P
[Angle 2pts]^c^c^P(setq p1 (getpoint "1st. point?"));\+
(setq p2 (getpoint "2nd. point?"));\+
(setq a(angle p1 p2))(setq b(*(/ a pi)180))+
(print "angle= ")(princ b)(princ " or with 180 ")+
(setq b(- b 180))(princ b)(princ)^P
[Angle 2 Lines]^c^c^P(defun pnts (x)+
(setq p1(cdr(assoc 10 x)))+
(setq p2(cdr(assoc 11 x)))+
(setq z(angle p1 p2))(if (minusp z)(setq z(+ (* 2 pi) z)))+
(if (>= z pi)(setq z(- z pi)))(setq z(* (/ z pi)180))+
)+
(setq a(entget(car(entsel "Pick line 1"))));nea;\+
(pnts a)(setq c z)+
(setq b(entget(car(entsel "Pick line 2"))));nea;\+
(pnts b)(setq z(- c z))(if (< z 0)(setq z(+ 180 z)))+
(print "Final angle = ")(princ z)(princ "  or with 180 = ")(princ (- 180 z))+
(princ "  or with 360 = ")(princ (- 360 z))(princ)
[~--]

[3D Box ch@]^c^c^P(setq x(getreal "Length x ? "));\+
(setq y(getreal "Length y ? "));\+
(setq z(getreal "Length z ? "));\+
(setq p1(getpoint "Location of Box ? "));\+
(command "layer" "m" "3" "c" "3" "3" "")+
(command "line" p1 (list @0 y) "")+
(command "change" "last" "" "Prop" "TH" z "")+
(command "line" p1 (list @x 0) (list @0 y) (list @-x 0) "c")+
(command "change" "last" "" "Prop" "TH" "0" "")+
(command "erase" "last" "")+
(command "VPOINT" "-1,-1,1")(setvar "THICKNESS" a)
[3D Box sth ?]^c^c^P(defun bxst()(setq a(getvar "THICKNESS"))+
(command "layer" "m" "3" "c" "3" "3" "")+
(setq x(getreal "Length x ? "));\+
(setq y(getreal "Length y ? "));\+
(setq z (getreal "Length z ? "));\+
(setvar "THICKNESS" z)+
(setq p1(getpoint "Location of Box ? "));\+
(grdraw (list 0 0) (list 0 x) 3 1)+
(grdraw (list 0 x) (list x y) 3 1)+
(grdraw (list x y) (list 0 y) 3 1)+
(grdraw (list 0 0) (list 0 y) 3 1)+
(command "VPOINT" "-1,-1,1")(setvar "THICKNESS" a))(bxst)

***POP12
[LISP]
[Previous]$p6=pop6
[Import.txt file]^c^c^P(command "layer" "m" "2" "c" "2" "2" "")+
(setq g(open (getstring " Name of file to import? ") "r"));\+
(setq p1(getpoint "Pick pt for text "));\+
(setq x (car p1))+
(setq y(cadr p1))+
(setq z(caddr p1))+
(setq l(read-line g))+
(while l +
 (setq p1(list x y))+
 (command "text" P1 '0.3 '0 l)+
 (setq l(read-line g))+
 (setq y(- y 0.375))+
)
[Node Place]^c^c^P(setq x(getvar "pdmode"))(setq y(getvar "pdzsize"))+
(setvar "pdmode" 67)(setvar "pdsize" 0.25)+
(setq p1(getpoint "Place your node!"));\+
(command "layer" "m" "n" "c" "5" "n" "s" "n" "" +
"POINT" p1 "DTEXT" p1 "0.3" "0.0")
[Node Type]^c^c^P(setq x(getvar "pdmode"))(setq y(getvar "pdzsize"))+
(setvar "pdmode" 67)(setvar "pdsize")+
(setq l(getstring "Input string/number "));\+
(setq p1(getpoint "Place your node! "));\+
(command "layer" "m" "n" "c" "5" "n" "s" "n" "" "POINT" p1)+
(setq e(entmake(list (cons 0 "TEXT")(cons 1 l)(cons 10 p1)+
(cons 40 h))))^P
[Reset var]^c^c^P(setvar "pdmode" x)(setvar "pdsize" y)+
(command "layer" "s" "3" "")
[~--]
[Garden Path]^c^c^P(terpri)(setvar "orthomode" 0)+
(setq sp(getpoint "Start point: p1?"));\+
(setq ep(getpoint "End point?"));\+
(setq w(*(getdist ps "Half width of path ?")2));\+
(setq r(getdist ps "Radius of tiles ?"));\+
(setq s(getdist ps "Space between tiles ?"));\+
(setq d(+(* r 2.0)s))+
(setq an(angle sp ep))+
(setq anp(+ an (/ pi 2)))+
(setq anm(- an (/ pi 2)))+
(setq l(distance sp ep))+
(command "PLINE" sp "w" "0.05" "" +
(setq p(polar sp anm (/ w 2.0)))+
(setq p(polar p an l))+
(setq p(polar p anp w))+
(setq p(polar p (- an  pi) l))+
"c")+
(defun st(x)+
 (while (< (distance p0 pj)(-(/ w 2.0)r))+
   (command "circle" pj r)(setq pj (polar pj x d))+
 )+
)+
(defun drw (x y)+
 (setq p0 (polar sp an x))+
 (setq pj0 (polar p0 anp y))+
 (setq pj pj0)(st anp)(setq pj pj0)(st ann)+
)+
(setq dx (/ d 2.0))(setq dy 0)+
(while (<= dx (- l r))+
 (drw dx dy)+
 (setq dx(+ dx (/ d 2.0)))+
 (if (= dy 0) (setq dy (*(/ d 2.0) (expt 3.0 0.5))) (setq dy 0))+
)

[Export.text]^c^c^P(defun xprt()+
(terpri)(prompt "All text will be exported on horizontal lines")+
(command "zoom" "e" "" ".9x")+
(setq g(open (getstring "Name of file to write to? ") "w"));\+
(setq p1(getpoint "Lower left corner of screen? "))+
(setq p2(getpoint "Upper right of screen? "))+
(setq xs(car p1))(setq xe(car p2))+
(setq y(cadr p2))(setq ye(cadr p1))+
 (while (>= y ye) (setq x xs)  (setq l " ")+
  (while (<= x xe) (setq e(entnext)) (setq fw 't)+
   (while (and e fw (= (cdr(assoc 0 (entget e))) "TEXT"))+
     (setq p1(cdr(assoc 10 (entget e))))+
      (if (and (<= y (caddr p1))+
               (>= x  (cadr p1)))+
          (progn +
           (setq l(strcat (strcat l (cdr(assoc 1 (entget e)))) " "))+
           (setq fw 'nil)+
          )+
      )+
      (setq e(entnext e))+
   )+
   (setq x(+ x 0.2))+
  )+
  (write-line l g)+
  (setq y(- y 0.2))+
 )+
)(xprt)
[Import.txt on Nodes]^c^c^P(terpri)+
(command "layer" "m" "2" "c" "2" "2" "s" "2" "")+
(setq g(open (getstring "Name of file to write on NODES? ") "r"))+
(setq e(entget(car(entsel "Pick data text on Nodes!"))));\+
(setq p1(cdr(assoc 10 e)))+
(setq h (cdr(assoc 40 e)))+
(setq d(* h 1.25))+
(setq l(read-line g))+
(while (/= l "eof") (if(= l '\)(setq fl l)(setq fl nil))+
 (setq p1 0)(if fl (setq ft 't)(setq ft 'nil))+
 (while fl (setq l(read-line g))(setq e(entnext))+
   (while ( and e ft (numberp (atoi l)))(setq f(entget e))+
    (while (and ft (= (cdr(assoc 0 f)) "text")+
                   (= (cdr(assoc 1 f)) l))+
      (setq p1(cdr(assoc 10 f)))(setq ftt 'nil)+
      (setq ft 'nil)(setq ee e)+
    )+
    (while (and ftt fl)(setq e (entnext ))+
      (while (and e ftt)+
        (while (and ftt (=(cdr(assoc 0 (entget e)))"node")+
                        (=(cdr(assoc 10(entget e)))p1))+
          (setq fl 'nil)(setq ftt 'nil)(setq y 0)+
        )+
        (setq e(entnext e))+
      )+
      (if ftt (progn +
                (setq e ee)(setq ft 't)+
              )+
              (progn +
                (setq fl 'nil)(setq ft 'nil)+
              )+
      )+
      (setq ftt 'nil)+
    )+
    (setq e(entnext e))+
   )+
   (setq fl 'nil)+
 )+
 (setq y (+ y d))+
 (command "text" (- p1 y) h l)(setq l(read-line g))+
)

***POP7
[Files]
[~--]
[Save]^c^cSave (getvar "dwgname");
[End]^c^cEnd;
[Quit]^c^c quit y;
[Purge All]^c^cEnd 2   purge a y;
[~--]
[Psout]^c^cpsout
[Psin]^c^cpsin
[Pcin]^c^cpcin
[DXF/DXB]$s=X $s=DXF
[Dxf File Setvar All]^c^c^P(defun fxd()+
(setq f(getstring "Entire name of DXF file ?"))+
(if f (open f "r")(command^c^c)):x(setq l(read-line f)):y(if(=(type l)+
string)(setq v(read-line f)(go y)))(if(= "eof"(or(assoc '-1 l)+
(assoc '-1 v)))(command ^c^c))(setvar l v)(go x))^P(fxd)
[FILES]^c^cFILES
[IGES]$s=X $s=IGES
[Xref]$s=X $s=xref xref
[Xbind]$s=X $s=xbind xbind
[Lisp file]^c^cREGEN ^P(load (getstring "Lisp file to load?"));\
[Script file]^c^cREGEN SCRIPT (getstring "Script file to load?");\regen
[C file]^c^c^P(xload (getstring ".H file to load?"));\
[~--]
[Fonts]^c^c$i=fonts1 $i=*

***POP8
[NICK]
[~--]
[SELECT e]^c^c^P(setq e(entget(car(entsel "select an entity!"))));\
[DEL ALL]^c^c^C^P(setq e(entnext))(while e(entdel e)(setq e(entnext e)))^P
[ (/ x y)]^c^c^P(/ (getreal "numerator? ") (getreal "denominator? "))
[ (* x y)]^c^c^P(* (getreal "number1? ") (getreal "number2? "))
[ (+ x y)]^c^c^P(+ (getreal "number1? ") (getreal "number2? "))
[ (^ x y)]^c^c^P(expt (getreal "number? ") (getreal "power? "))
[ (^ e x)]^c^c^P(exp (getreal "power? "))
[~--]
[Punch.scr]^c^c^P(command "script"  "c:\n\nic4\acad\punch.scr" )
[Pipe Display]^c^c^Player m 4 c 4 4 m 3 c 3 3  circle 0,0 2 layer m 1 c 1 1  +
line -2.5,0 2.5,0  line 0,2.5 0,-2.5  zoom -100,-100 100,100 +
change c -1,-1 1,1   Prop Lt center layer Lt center 1  block pipe +
0,0 c -3,-3 3,3  regen +
(defun b (p1) (command "insert" "*pipe" p1 1 0))+
(setq p1 (list    0.0000   50.0000))(b p1)+
(setq p1 (list   40.0000   30.0000))(b p1)+
(setq p1 (list   45.0000   21.7940))(b p1)+
(command "script" "c:\n\nic4\acad\pipe")+
zoom e +
(PRINT "NICK K. VAN VLIET (416) 921-4653")
[~--]
[Y=EXP X]^c^c^P(setq i 0 x 0 y 1 z 0 v 0 w 0)(while (< i 30)+
(command "line" (list v w) (list x y) (list v w) "c")+
(setq i(+ i 1) v x w y a 0.1 z y x(+ x a) y(exp x) ) )^P
[Hanoi 3]^c^c^P(command "txtscr")(defun hanoi (i)+
(defun han (n x y z)+
(if (> (- n 1) 0)(han (- n 1) x z y))+
(terpri)(princ "From ")(princ x)(princ " to ")(princ z)+
(if (> (- n 1) 0) (han (- n 1) y x z)))+
(han i 'Peg1 'Peg2 'peg3))^P+
(textscr)(hanoi 3)
[Hanoi ?]^c^c^P(textscr)(hanoi (getint "How many disks?"));\
[LionGoatGrain]^c^c^P(command "textscr")+
(defun gt(i)+
 (defun lgg(n x y z v w)+
  (terpri)(princ "Row to the right: ")(princ z)+
  (if (>(- n 1)0)+
   (progn +
    (princ " and row back: ")(princ w)+
    (lgg (- n 1) z x y w v)+
   )+
  )+
 )+
 (lgg i 'Lion 'Grain 'Goat 'Goat 'nothing)+
)(gt 4)
[Calendar]^c^c^P(defun cal(dy mn yr)+
(setq rs '( +
 (0  "M")(1  "A")(2  "B")(3  "C")(4  "K")(5  "F")(6  "G")+
 (7  "A")(8  "I")(9  "D")(10 "E")(11 "F")(12 "N")(13 "B")+
 (14 "C")(15 "D")(16 "L")(17 "G")(18 "A")(19 "B")(20 "J")+
 (21 "E")(22 "F")(23 "G")(24 "H")(25 "C")(26 "D")(27 "E")+
))+
(setq ys '( +
 (1  31 "JANUARY  ")(2  28 "FEBRUARY ")(3  31 "MARCH    ")+
 (4  30 "APRIL    ")(5  31 "MAY      ")(6  30 "JUNE     ")+
 (7  31 "JULY     ")(8  31 "AUGUST   ")(9  30 "SEPTEMBER")+
 (10 31 "OCTOBER  ")(11 30 "NOVEMBER ")(12 31 "DECEMBER ")+
))+
(setq ms(cddr(assoc mn ys)))+
(princ "\nCOPYRIGHTED 1981 NICK VAN VLIET 1964 phone: 416 921-4653")+
(princ "\n\n   ")(princ yr)(princ "    ")(princ  "  CALENDAR       ")+
(princ ms)(princ "  ")+
(princ "\n*-------------------------------------*")+
(princ "\n|  SUN  MON  TUE  WED  THU  FRI  SAT  |")+
(princ "\n|-------------------------------------|")+
(cond +
 ((= yr 1800) (setq yr 1902))+
 ((= yr 1900) (setq yr 1906))+
 ((< yr 1900) (setq yr (+ 12 yr)))+
 (t nil)+
)+
(setq ly (rem yr  4))+
(setq rm (rem yr 28))+
(setq  dm(cadr(assoc mn ys)))+
(setq  rl (cadr (assoc rm rs)))+
(if (= mn 2) (if (= ly 0) (setq dm (+ dm 1))))+
(cond +
 ((= mn 1) (setq g 0))+
 ((= mn 10)(setq g 0))+
 ((= mn 5) (setq g 1))+
 ((= mn 8) (setq g 2))+
 ((= mn 2) (setq g 3))+
 ((= mn 3) (setq g 3))+
 ((= mn 11)(setq g 3))+
 ((= mn 6) (setq g 4))+
 ((= mn 9) (setq g 5))+
 ((= mn 12)(setq g 5))+
 ((= mn 4) (setq g 6))+
 ((= mn 7) (setq g 6))+
 (t nil)+
)+
(if (= ly 0)+
 (cond +
  ((= mn 1)(setq g (- g 1)))+
  ((= mn 2)(setq g (- g 1)))+
  (t nil)+
))+
(cond +
 ((eq rl "A")(setq g (+ g 0)))+
 ((eq rl "N")(setq g (+ g 0)))+
 ((eq rl "B")(setq g (+ g 1)))+
 ((eq rl "H")(setq g (+ g 1)))+
 ((eq rl "C")(setq g (+ g 2)))+
 ((eq rl "I")(setq g (+ g 2)))+
 ((eq rl "D")(setq g (+ g 3)))+
 ((eq rl "J")(setq g (+ g 3)))+
 ((eq rl "E")(setq g (+ g 4)))+
 ((eq rl "K")(setq g (+ g 4)))+
 ((eq rl "F")(setq g (+ g 5)))+
 ((eq rl "L")(setq g (+ g 5)))+
 ((eq rl "G")(setq g (+ g 6)))+
 ((eq rl "M")(setq g (+ g 6)))+
 (t nil)+
)+
(setq g (+ g 7))(setq g (+ (rem g 7) 1))+
(setq n 1)(setq h 1)(setq i 1)(setq j 1)+
(while (< h 7)+
 (princ "\n|")+
 (while (and (= n 1)(= h 1)(/= g 1)(<= i g))+
   (princ "     ")+
   (setq i(+ i 1))+
 )+
 (while (< j 8)+
  (if (and(= n 1)(= h 1)) (setq j g))+
  (princ "  ")+
  (if (< n 10) (princ " "))+
  (if (= n dy)(princ ">")(princ " "))+
  (if (<= n dm)(princ n)(princ "  "))+
  (setq n (+ n 1))+
  (setq j(+ j 1))+
 )+
 (princ "  |")+
 (if (> n dm)(setq h 10))+
 (setq h(+ h 1))+
)+
(princ "\n*-------------------------------------*\n")+
(print "\n  Here is your date ! \n")+
)(cal 27 9 1995)+
(cal (getint " Day (1-31)? ");\+
 (getint " Month (1-12)? ");\+
 (getint " Year (>= 1800)? ");\+
)

***pop9
[Quick/sh]
[~--]
[quick]^c^cquick ^Z
[Cancel]^c^c
[Regen]^c^cregen regen
[Undo]^c^cu
[Sh]^c^csh qn regen
[~--]
[Layer 1]^c^clayer;m;1;c;1;;s;1;;
[Layer 3]^c^clayer;m;3;c;3;;s;3;;
[Layer 4]^c^clayer;m;4;c;4;;s;4;;
[Layer 6]^c^clayer;m;6;c;6;;s;6;;
[Layer ?]^c^c(setq z(getreal "Which layer #: "))(command "layer" "m" z "c" z "" s z "" "")regen
[Freeze]^c^c^Layer layer;f;*;;
[Thaw]^c^c^Layer layer;t;*;;
[~--]
[Setup]^c^c^P(command "limits" "0.0" (if (setq p1(getpoint "Max Limits? +
<10,8.5>")) p1 (setq p1 (list 10 8.5))) "snap" "0.0625" "grid" "0.0625" +
"zoom" "e")
[Area]^c^c$s=x $s=area area auto
[Perimeter]^c^c$s=x $s=perimeter perimeter auto
[Dist]^c^c$s=x $s=dist dist auto
[ID]^c^c$s=x $s=id id auto
[List]^c^clist
[~--]
[Pdmode]^c^cpdmode pdmode 64
[Pdsize]^c^cpdsize pdsize 10
[Font Romand]^c^c^P(command "style" "romand" "romand" "0.3" "" "" "" "" "")
[~--]
[Dwg Pref Name Ver]^c^c^P(terpri)(princ (getvar "date"))+
(terpri)(princ (getvar "dwgprefix"))+
(terpri)(princ (getvar "dwgname"))+
(terpri)(princ (getvar "acadprefix"))(terpri)(ver)
[Lsp Stk]^c^csh;set lispstack=5000^c^c$p1=*
[Lsp Hp]^c^csh;set lispheep=40000^c^c$p1=*
[Viewres]^c^c$s=X $s=viewres viewres y 20000

***POP10
[NEW 3D]
[EDGSURF]^c^cEDGESURF
[REVSURF]^c^cREVSURF
[RULSURF]^c^cRULESURF
[TABSURF]^c^cTABSURF
[-------]
[Surftb1]'SETVAR SURFTAB1
[Surftb2]'SETVAR SURFTAB2
[-------]
[3DFACE]$s=X $s=3DFACE ^c^c3DFACE
[3DMESH]^c^c3DMESH
[3DPOLY]$s=X $s=3DPOLY ^c^c3DPOLY
[------]
[  3D]^c^c^P(progn(setq m:err *error*)(princ));+
(defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"));+
(progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt +
"The file `3d.lsp' was not found in your search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.");+
(princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ));+
(T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
(menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P
[objects]^c^c^P(progn(setq m:err *error*)(princ));+
(defun m:l3d () (cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"));+
(progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
(load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn(terpri)(prompt ;+
"The file `3d.lsp' was not found in your search path directories. ")(terpri);+
(prompt "Check installation of the Support Files and try again.");+
(princ))))((not (null C:BOX)) (menucmd "S=X") (menucmd "S=3D2")(princ));+
(T(princ)))(setq *error* m:err m:err nil))(defun *error* (msg)(princ msg);+
(menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil)(princ))(m:l3d);^P

***icon
**icon_poly
[Set Spline Fit Variables]
[acad(pm-quad,Quadric Fit Polymesh)]'surftype 5
[acad(pm-cubic,Cubic Fit Polymesh)]'surftype 6
[acad(pm-bezr,Bezier Fit Polymesh)]'surftype 8
[acad(pl-quad,Quadric Fit Polyline)]'splinetype 5
[acad(pl-cubic,Cubic Fit Polyline)]'splinetype 6

**icon_3DObjects
[3D Objects]
[acad(box3d,3D Box)]^C^Cai_box
[acad(Pyramid)]^C^Cai_pyramid
[acad(Wedge)]^C^Cai_wedge
[acad(Dome)]^C^Cai_dome
[acad(Sphere)]^C^Cai_sphere
[acad(Cone)]^C^Cai_cone
[acad(Torus)]^C^Cai_torus
[acad(Dish)]^C^Cai_dish
[acad(Mesh)]^C^Cai_mesh

**icon_fonts1
[Select Text Font]
[acad(romans,Roman Simplex)]'_style romans romans
[acad(romanc,Roman Complex)]'_style romanc romanc
[acad(romand,Roman Duplex)]'_style romand romand
[acad(romant,Roman Triplex)]'_style romant romant
[acad(italicc,Italic Complex)]'_style italicc italicc
[acad(italict,Italic Triplex)]'_style italict italict
[acad(scripts,Script Simplex)]'_style scripts scripts
[acad(scriptc,Script Complex)]'_style scriptc scriptc
[acad(txt,Original TXT)]'_style txt txt

**icon_vporti
[Tiled Viewport Layout]
[acad(vport-1,Single)]^C^C(ai_tiledvp 1 nil)
[acad(vport-3v,Three: Vertical)]^C^C(ai_tiledvp 3 "V")
[acad(vport-3h,Three: Horizontal)vp3h]^C^C(ai_tiledvp 3 "H")
[acad(vport-4,Four:   Equal)]^C^C(ai_tiledvp 4 nil)
[acad(vport-2v,Two:   Vertical)]^C^C(ai_tiledvp 2 "V")
[acad(vport-3r,Three: Right)]^C^C(ai_tiledvp 3 "R")
[acad(vport-3l,Three: Left)]^C^C(ai_tiledvp 3 "L")
[acad(vport-4l,Four:  Left)]^C^C(ai_tiledvp 4 "L")
[acad(vport-2h,Two:   Horizontal)]^C^C(ai_tiledvp 2 "H")
[acad(vport-3a,Three: Above)]^C^C(ai_tiledvp 3 "A")
[acad(vport-3b,Three: Below)]^C^C(ai_tiledvp 3 "B")
[acad(vport-4r,Four:  Right)]^C^C(ai_tiledvp 4 "R")

***SCREEN
**S
[AutoCAD]^C^C$s=x $s=s ^P(ai_rootmenus) ^P
[*N*V*V*]$S=OSNAPB
[ASE]^C^C^P(ai_aseinit_chk) ^P
[BLOCKS]$S=X $S=BL
[DIM:]^C^C_DIM
[DISPLAY]$S=X $S=DS
[INQUIRY]$S=X $S=INQ
[MODEL]$S=X $S=SOLIDS
[MVIEW]$S=MVIEW
[RENDER]$S=X $S=RENDER
[SETTINGS]$S=X $S=SET
[SURFACES]$S=X $S=3D
[UTILITY]$S=X $S=UT
[SAVE:]^C^C_QSAVE
[PLOTTER]^C^CPLOT
[PRINTER]^C^CPRPLOT


**X 3
















[__LAST__]$S= $S=
[  DRAW  ]^C^C$S=X $S=DR
[Nick Mnu]^C^CREGEN ^P(command "menu" "c:\n\nic4\acad\nick")regen
[Nick  Mf]^C^CREGEN ^P(command "menu" "c:\f")regen
[PUNCHdwg]^C^CREGEN ^P(command "script" "c:\n\nic4\acad\punch")regen
[Autoload]^C^CREGEN ^P(command "script" "c:\auto")regen




**BL 3
[ATTDEF:]^C^C_ATTDEF
[BASE:]'_BASE
[BLOCK:]^C^C_BLOCK
[INSERT:]^C^C_INSERT
[MINSERT:]^C^C_MINSERT
[WBLOCK:]^C^C_WBLOCK

[XBIND:]^C^C_XBIND
[XREF:]^C^C_XREF

**DS 3
[ATTDISP:]'_ATTDISP
[DVIEW:]^C^C_DVIEW
[MVIEW:]^C^C$S=MVIEW _MVIEW
[PAN:]'_PAN
[PLAN:]^C^C_PLAN
[REDRALL:]'_REDRAWALL
[REDRAW:]'_REDRAW
[REGEN:]^C^C_REGEN
[REGNALL:]^C^C_REGENALL
[RGNAUTO:]$S=X $S=RGNAUTO '_REGENAUTO
[SHADE]$S=SHADE
[VIEW:]'_VIEW
[VIEWRES:]^C^C_VIEWRES
[VPOINT:]^C^C_VPOINT
[ZOOM:]'_ZOOM
**DR 3
[ARC]$S=ARC
[ATTDEF:]^C^C_ATTDEF
[BHATCH:]^C^CBHATCH
[CIRCLE]$S=CIRCLE
[DONUT:]^C^C_DONUT
[DTEXT:]^C^C_DTEXT
[ELLIPSE:]^C^C_ELLIPSE
[HATCH:]^C^C_HATCH
[INSERT:]^C^C_INSERT
[LINE:]^C^C_LINE
[MINSERT:]^C^C_MINSERT
[OFFSET:]^C^C_OFFSET

[next]$S=X $S=DR2
**DR2 3
[PLINE:]^C^C_PLINE
[POINT:]^C^C_POINT
[POLYGON:]^C^C_POLYGON
[SHAPE:]^C^C_SHAPE
[SKETCH:]^C^C_SKETCH
[SOLID:]^C^C_SOLID
[TEXT:]^C^C_TEXT
[TRACE:]^C^C_TRACE
[3DFACE:]^C^C_3DFACE

[3D Surfs]$S=X $S=3D
[MODELER]$S=X $S=SOLIDS

[previous]$S=X $S=DR
**ED 3
[ARRAY:]^C^C_ARRAY
[ATTEDIT:]^C^C_ATTEDIT
[BREAK:]$S=X $S=BREAK0 ^C^C_BREAK
[CHAMFER:]^C^C_CHAMFER
[CHANGE:]^C^C_CHANGE
[CHPROP:]^C^C_CHPROP
[COPY:]^C^C_COPY
[DDATTE:]^C^C_DDATTE
[DDEDIT:]^C^C_DDEDIT
[DDMODFY:]^C^CDDMODIFY
[DIVIDE:]^C^C_DIVIDE
[ERASE:]^C^C_ERASE
[EXPLODE:]^C^C_EXPLODE
[next]$S=X $S=ED2
**ED2 3
[EXTEND:]^C^C_EXTEND
[FILLET:]^C^C_FILLET
[MEASURE:]^C^C_MEASURE
[MIRROR:]^C^C_MIRROR
[MOVE:]^C^C_MOVE
[OFFSET:]^C^C_OFFSET
[PEDIT:]^C^C^Pai_peditm ^P
[ROTATE:]^C^C_ROTATE
[SCALE:]^C^C_SCALE
[SELECT:]^C^C_SELECT
[STRETCH:]^C^C_STRETCH C
[TRIM:]^C^C_TRIM
[UNDO:]^C^C_UNDO
[previous]$S=X $S=ED
**PLOT 3

[PLOTTER]^C^C_PLOT
[PRINTER]^C^C_PRPLOT
[PSOUT:]^C^C_PSOUT











[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED

**BLOCK 3
[BLOCK:]^C^C_BLOCK
?
[*]* $S=
[=]= $S=
[Select]$S=OSELECT1 \$S=
[Objects]$S=OSELECT1 \$S=




[Yes]_YES
[OOPS]^C^C_OOPS



[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED





**INSERT 3
[INSERT:]^C^C_INSERT
[File...]~
?
*
[corner]_CORNER
[xyz]_XYZ
[drag]_DRAG

[Scale]_SCALE
[Xscale]_XSCALE
[Yscale]_YSCALE
[Zscale]_ZSCALE
[Rotate]_ROTATE

[Blk Name]'_INSNAME
[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED





**WBLOCK 3
[WBLOCK:]^C^C_WBLOCK

=
*
[blank];


[Select]$S=OSELECT1 \$S=
[Objects]$S=OSELECT1 \$S=


[Blk Name]'_INSNAME



[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED

**DIM 3
[DIM:]^C^C_DIM
[Aligned]_ALIGNED
[Angular]_ANGULAR
[Diameter]_DIAMETER
[Horizntl]_HORIZONTAL
[Leader]_LEADER
[Ordinate]$S=X $S=DIMORD _ORDINATE
[Radius]_RADIUS
[Rotated]_ROTATED
[Vertical]_VERTICAL
[Edit]$S=X $S=DIMED
[Dim Styl]$S=X $S=DIMSTY
[Dim Vars]$S=X $S=VAR1
[next]$S=X $S=DIM2
[Exit]EXIT;$S=X $S=S
[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED





**DIM1 3
[DIM:]^C^C_DIM
[Aligned]_ALIGNED
[Angular]_ANGULAR
[Diameter]_DIAMETER
[Horizntl]_HORIZONTAL
[Leader]_LEADER
[Update]_UPDATE
[Ordinate]$S=X $S=DIMORD _ordinate
[Radius]_RADIUS
[Rotated]_ROTATED
[Vertical]_VERTICAL
[Edit]$S=X $S=DIMED
[Dim Styl]$S=X $S=DIMSTY
[Dim Vars]$S=X $S=VAR1
[next]$S=X $S=DIM2
[Exit]EXIT;$S=X $S=S
[__LAST__]$S=
[  DRAW  ]^C^C$S=X $S=DR
[  EDIT  ]^C^C$S=X $S=ED





**DIM2 3
[DIM:]^C^C_DIM


[Baseline]_BASELINE
[Continue]_CONTINUE

[Center]_CENTER


[Status]_STATUS




[previous]$S=DIM
**DIMORD 3
[DIM:]^C^C_DIM


[X datum]_XDATUM
[Y datum]_YDATUM









[Dim Menu]$S=DIM
**VAR1 3
[dimalt]$S=X $S=OF _DIMALT \
[dimaltd]_DIMALTD \
[dimaltf]_DIMALTF \
[dimapost]_DIMAPOST \
[dimaso]$S=X $S=OF _DIMASO \
[dimasz]_DIMASZ \
[--------]
[dimblk]_DIMBLK \
[dimblk1]_DIMBLK1 \
[dimblk2]_DIMBLK2 \
[--------]
[dimcen]_DIMCEN \
[dimclrd]_DIMCLRD \
[dimclre]_DIMCLRE \
[dimclrt]_DIMCLRT \

[next]$S=X $S=VAR2
[Dim Menu]$S=DIM


**VAR2 3
[dimdle]_DIMDLE \
[dimdli]_DIMDLI \
[dimexe]_DIMEXE \
[dimexo]_DIMEXO \
[dimgap]_DIMGAP \
[dimlfac]_DIMLFAC \
[dimlim]$S=X $S=OF _DIMLIM \
[dimpost]_DIMPOST \
[dimrnd]_DIMRND \
[dimsah]$S=X $S=OF _DIMSAH \
[dimscale]_DIMSCALE \
[dimse1]$S=X $S=OF _DIMSE1 \
[dimse2]$S=X $S=OF _DIMSE2 \


[previous]$S=X $S=VAR1
[next]$S=X $S=VAR3
[Dim Menu]$S=DIM


**VAR3 3
[dimsho]$S=X $S=OF _DIMSHO \
[dimsoxd]$S=X $S=OF _DIMSOXD \
[dimtad]$S=X $S=OF _DIMTAD \
[dimtfac]_DIMTFAC \
[dimtih]$S=X $S=OF _DIMTIH \
[dimtix]$S=X $S=OF _DIMTIX \
[dimtm]DIMTM \
[dimtofl]$S=X $S=OF _DIMTOFL \
[dimtoh]$S=X $S=OF _DIMTOH \
[dimtol]$S=X $S=OF _DIMTOL \
[dimtp]_DIMTP \
[dimtsz]_DIMTSZ \
[dimtvp]_DIMTVP \
[dimtxt]_DIMTXT \
[dimzin]_DIMZIN \
;