Menu Macros

Macros (Toolbar Button Code)

Macros are small groups of commands and routines that can be run in regular AutoCAD as well as ACAD LT. Thes macros (the code in blue) can be found or typed into the macro area when editing or creating a toolbar button. This code is here as an example to show how macros are written. Please see the disclaimer at the bottom of the page.

Here are a few macros.

Macro 2a. Insert a block. (2004 -2000 series)
^C^C_-insert;storm.dwg;

Macro 2b. Insert a block. (R14/LT97/98)
^C^C_insert;storm.dwg;

Macro 3a. Insert a block at a set scale. (2004 - 2000 series)
^C^C_-insert;storm.dwg;\24;24;;

Macro 3b. Insert a block at a set scale. (R14/LT97/98)
^C^C_insert;\24;24;;

Macro 4a. Insert a block on a newly defined layer at a set scale.
(2004 - 2000 series)
^C^C_-layer;make;storm.dwg;color;5;;;-insert;;\24;24;;

Macro 4b. Insert a block on a newly defined layer at a set scale. (R14/LT97/98)
^C^C_-layer;make;storm;color;5;;;insert;storm.dwg;\24;24;;

Macro 5. Load and execute a LISP command. (Full versions only.)
^C^C(load "heal") heal;

Macro 6. Load and execute a LISP command and then plot.
(Full versions only.)
(This works well with the Date Stamp LISP routine.)
^C^C(load "dstamp") dstamp;plot;

Macro 7. Set the fillet radius to "0" prior to filleting the first lines.
(All versions.)
^C^C_fillet;r;0;

Macro 8. The following is an example of a somewhat complex macro. It executes the following list of commands.

Builds a layer
Sets the layer current
Sets the color
Inserts a block
Defines the block scale and rotation
Inserts a second block and places at the last point chosen
This was the insertion point of the previous block
Defines the block scale and rotation
Draws a polyline from the last point chosen
Sets the width of the polyline drawn
Inserts a third block and sets the Object Snap to end
Resets the polyline thickness to "0"

Releases 2004/2002/2000i/2000 2004LT/2002LT/2000iLT/2000LT

^C^C_-layer;make;TAGS;color;red;;;_-insert;c:/blocks/tag.dwg;\
96;96;;\_insert;c:/blocks/scale96.dwg;$m=$(getvar,lastpoint);
96;96;;_pline;$m=$(getvar,lastpoint);w;1;;\;_insert;c:/block/
tag2.dwg;end;\96;96;;\\plinewid;0;

Releases R14/LT97/98

^C^C_-layer;make;TAGS;color;red;;;_insert;c:/blocks/tag.dwg;\
96;96;;\_insert;c:/blocks/scale96.dwg;$m=$(getvar,lastpoint);
96;96;;_pline; $m=$(getvar,lastpoint);w;1;;\;_insert;c:/block/
tag2.dwg;end;\96;96;;\\plinewid;0;

CADTECH SEMINARS,LLC DISCLAIMS ANY AND ALL LIABILITY FOR ANY DAMAGES ARISING OUT OF THE USE OR OPERATION, OR INABILITY TO USE ANY SOFTWARE, CODE OR FILES AVAILABLE OR LINKED HERE. FURTHERMORE, BY DOWNLOADING ANY FILE OR CODE YOU AGREE TO HOLD CADTECH SEMINARS, LLC HARMLESS FROM SUCH CLAIMS. CADTECH SEMINARS,LLC MAKES NO WARRANTY, EITHER EXPRESSED OR IMPLIED, AS TO THE FITNESS OF THESE FILES FOR ANY PARTICULAR PURPOSE. ALL MATERIALS ARE TO BE CONSIDERED 'AS-IS', AND USE OF ANY FILES SHOULD BE CONSIDERED AS AT YOUR OWN RISK!

New LISP and Macros will be added to this page periodically.

If you have a neat tip, trick, LISP routine, or macro and would like us to consider adding it to our site with your name, please e-mail us @
support@CADtechSeminars.com