Continue to Site

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

  • Congratulations GregLocock on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Macros Who would like to share some

Status
Not open for further replies.

shadow

Computer
Mar 1, 2001
321
Here i am at work onece again creating little tools to help myself and others and i had one major thought maybe someone else could use them too so here we are im going to place them in this format and it would be nice if anyone would like to share too to do the same

Acad Ver (the one you are using and you know the macro works in)
Name of button/Help
Maco Syntax


1 Acad 2000/ADT 2
Flip / Uses mirror to create a mirror object and delet the existing one
^C^C_mirror;\;\\y;

2 Acad 2000/ADT 2
Double ESC / Emulates Pressing ESC key twice
^C^C_graphscr;_redraw

3 Acad 2000/ADT 2
Boundary Area / gives the area of a enclosed object only
^C^C-boundary;a;i;y;;\;area;o;1;erase;last;;cal;(getvar (area))/144;

4 Acad 2000/ADT 2
MBUTTONPAN / Toggles MBUTTONPAN on and off
MBUTTONPAN $m=$(-,1,$(getvar,MBUTTONPAN))

ill post more here as i build em but if anyone finds anything wrong with these or has a suggestion let me know and ill see what i can do

if everyone helps everybody the world will be a better place
 
Replies continue below

Recommended for you

As I promised Some more macros for everyone

5 Acad 2000/ADT 2
change to current layer
^C^Cselect;\_change;P;;p;la;(getvar "clayer");;

6 ACAD 2000/ADT 2
Offset & change to current layer
^C^Coffset;6";\\;_change;L;;p;la;(getvar"CLAYER");;
Note: In the above macro where the 6" is that is the offset distance if you dont want a preset offset then just replace those characters with a
7 ACAD 2000/ADT 2
Erase all Remove Window
^C^CErase all Remove Window
if everyone helps everybody the world will be a better place
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor