Autocad menu for drawing block diagrams, organization charts, etc.  This
can be added to the standard ACAD.MNU file at the end of the main menu
following "[UTILITY...." and adds the submenu "BLKDWG".  This submenu
is intended to allow easy selection of the following functions:

   SNAP turns on a .4 unit snap.

   RECTANG allows drawing a variable height/width rectangle but unlike
   the standard rectang function does not prompt for the rotation of the
   rectangle -- assumes zero rotation.

   ZOOM-A and ZOOM-W select zoom-all and zoom-window respectively.

   A-LINE draws a line with an arrow head pointing to the first point
   selected from the second point selected.

   TEXT-C, TEXT-L, and TEXT-A setup centered, left justified, or
   aligned text.

   The other functions work normally.

                                            T. C. Goldsmith
                                            Box 34949
                                            Bethesda, Md
                                            20817


[BLKDWG]$S=BKD





**BKD
[SNAP]SNAP .4;SNAP ON
[RECTANG]INSERT;RECTANG;DRAG \DRAG \;0
[LINE]^CLINE
Close
[ZOOM-A]ZOOM A
[ZOOM-W]ZOOM W
[PAN]^CPAN
[ERASE]ERASE

[A-LINE](setq AP(getpoint"select endpoint"));\+
(setq NP(getpoint"select begin point"));\+
LINE;!AP;!NP;;+
(setq LANG (angle AP NP));+
(setq A1 (+ LANG 0.5));+
(setq A2 (- LANG 0.5));+
(setq PT2 (polar AP A1 0.3));+
(setq PT3 (polar AP A2 0.3));+
SOLID;!AP;!PT2;!PT3;;;

[TEXT-L]^CTEXT;\;;
[TEXT-C]^CTEXT;C;\;
[TEXT-A]^CTEXT A;\;
[CANCEL]^C
[ROOTMENU]$S=S