TheSwamp
CAD Forums => CAD General => Topic started by: hudster on February 05, 2004, 07:09:37 AM
-
I thought I'd post a few of my macro button commands here in the hope they might be useful to someone.
Also If anyone else has any macro commands set up could they post them here in case I might also find them useful.
Cheers
Andy :evil:
Isolate Layer, Similar to express tools layeriso cammand, except layers are frozen not turned off
^C^CAI_MOLC;\-LAYER;F;*;;
UN-FREEZE ALL LAYERS
^C^C-LAYER;T;*;;
Set fillet Radius to zero and then resume fillet command
^C^C_fillet;r;0;fillet;
Rotate Selected Attributes to zero degrees (note this macro runs till escape is pressed)
*^C^C-attedit;Y;;;;\;a;0;;
Lock selected Viewport
^C^CMVIEW;LOCK;ON;;
Unlock selected viewport
^C^Cmview;lock;off;;
Zoom last Viewport to 1:50
^C^C_.MSPACE;Z;S;1/50XP;_.PSPACE;;
Zoom Last Viewport to 1:100
^C^C_.MSPACE;Z;S;1/100XP;_.PSPACE;;
Zoom last viewport to 1:200
^C^C_.MSPACE;Z;S;1/200XP;_.PSPACE;;
-
Variation on draw order. Deleates an object and reinserts it in the same place
^C^C_select;_auto;\_copy;_p;;0,0;@;_erase;_p;;
Rotates the current UCS by 90° changes to plan and gives the option to zoom window
^C^C_ucs _z 90 plan c z
select dim command and changes the layer to A0DIM and creates that layer if not present.
^C^C_-layer M A0DIM c 2 A0DIM _dimlinear -layer
Switches to A0DIM when using dim continue
^C^C_-layer s A0DIM _dimcontinue
-
This one allows you to select a point from the mid point of two selected points
Use it with a command to draw a line or insert a block etc. at the mid point
_non;'cal (cur + cur)/2;
-
Rather than plot the drawing and realise youve forgot to turn off your layer that your viewports are on ,this macro can be used.
^C^C-layer;off;myviewportlayername;;_PLOT;LAYER;on;myviewportlayername;;
-
Or just keep your viewports on a non plotting layer.
-
Restore ucs to plan
^C^C-view;top;
Change to right elevation view, rotate dwg -90 deg
^C^Cdview;;tw;-90;;_ucs;w;_ucs;z;90;
Change to left elevation view, rotate dwg 90 deg
^C^Cdview;;tw;90;;_ucs;w;_ucs;z;270;
Change to rear elevation view, rotate dwg 180 deg
^C^Cdview;;tw;180;;_ucs;w;_ucs;z;180;
Select the dim to continue from
^C^C_dimcontinue;S;
Fillet until Escape
^C^C_Multiple;_Fillet;
-
Allows user to change Mtext editor to windows Notepad. Then returns to Mtext editor.
^C^Cmtexted;c:/where/notepad/is.exe;ddedit;\;mtexted;internal;;
Opens properties with Design Center. You can put layers or blocks and so on........
^C^C_adcnavigate;H:/dwg/with/stuff.dwg/Blocks^M;;
-
Turns a line and any additional lines into a Pline with the width of .xxx.
^C^C_pedit;\yes width .xxx;join
Purges all of drawing
^C^C-purge all no
-
Allows user to change Mtext editor to windows Notepad. Then returns to Mtext editor.
^C^Cmtexted;c:/where/notepad/is.exe;ddedit;\;mtexted;internal;
this works better if you add and extra ; at the end.
It wasn't returning to the command prompt with one ;
^C^Cmtexted;c:/where/notepad/is.exe;ddedit;\;mtexted;internal;;
-
This works for me on 2004, also added an extra ';' to the end.
^C^Cmtexted;notepad.exe;ddedit;\;mtexted;internal;;;
-
Hudster,
For some reason it stops me and I have to press enter for it to take Internal..... They way I had works for me, maybe cause I have LT? I put an extra ; for you FULL BLOWN CAD people.... :wink:
-
You're trying to change mtext editor to notepad? Heh. You make it out too hard. OPTIONS->Files->Text Editor, Dictionary, and Font File Names->Text Editor Application->c:\windows\notepad.exe
-
Maybe some you can help me tweak this.......
I am at times having to copy something from mtext and pasting it into a attribute (multiple times) and vice versa. This is what I got...
^C^C_DDEDIT;\;_ATTEDIT;\_DDEDIT;\;_ATTEDIT;\
-
Where does it fail? My guess would be during the first attedit.
-
It dosent.... I was wondering if anybody could make improvements.....
Is there anyway to make it continue and stop when I press escape?
I like it cause I hate having to guess if some text is ddedit or attedit. This way it dosent matter.....
-
That worked for me although if you want it to keep running put a * at the start so you have the command as
*^C^C_DDEDIT;\;_ATTEDIT;
-
sweet.... learn something new everyday.
-
Vertical I loved your Mtext editor macro su much I made a button image for it.
(http://theswamp.org/lilly.pond/Hudster/notepad.bmp)
available here http://theswamp.org/lilly.pond/Hudster/notepad.bmp
-
How about this?
*^C^C_Craig;reply;Jokes;
:lol: :lol: :lol:
-
Here's a macro command to open the windows calculator
^C^C_START;C:/I386/CALC.EXE;
This is the default location for windows calculator under Xp, I Don't know if it's the same for all versions.
-
How about this?
*^C^C_Craig;reply;Jokes;
:lol: :lol: :lol:
Hey! :? :shock: :? :( :oops: :cry:
-
Oh craig.... I enjoy them! :D
How do you get so many?
Hudster, On mine it dosent recognize _Start....?
-
mite be a just full cad thingy then.
-
here's a couple of mine. question though about the last two. what do i add to have the layer switch back to the previous after it hatches?
sets layer to 0 then performs block command:
^C^C(command "-layer" "n" "0" "c" "WHITE" "0" ) ;setvar clayer "0";b
sets layer to 0-by others then performs hatch command:
^C^C(command "-layer" "n" "0-BY OTHERS" "c" "9" "0-BY OTHERS" ) ;setvar clayer "0-BY OTHERS";hpname;stipple;hpscale;1;bhatch
sets layer to 0-hatch then performs hatch command:
^C^C(command "-layer" "n" "0-HATCH" "c" "9" "0-HATCH" ) ;setvar clayer "0-HATCH";hpname;STEEL;hpscale;1;hpang;0;bhatch
-
anybody know if i could add something to qleader to turn the capslock on. that would be great!
-
mite be a just full cad thingy then.
Awww shucks...... theres got to be a way :?
-
(command "-layer" "n" "0-HATCH" "c" "9" "0-HATCH" );(setq var (getvar 'clayer));setvar clayer "0-HATCH";hpname;STEEL;hpscale;1;hpang;0;bhatch;/;(setvar 'clayer var);
Not sure about that part between bhatch and the reset, though.
-
daron not working, here's the results i get:
Command: (command "-layer" "n" "0-HATCH" "c" "9" "0-HATCH" )
-layer
Current layer: "ALUMINUM"
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
n
Enter name list for new layer(s): 0-HATCH
Layer "0-HATCH" already exists.
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
c
Enter color name or number (1-255): 9
Enter name list of layer(s) for color 9 <ALUMINUM>: 0-HATCH Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
nil
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
(setq var (getvar 'clayer))
"ALUMINUM"
Invalid option keyword.
Enter an option
[?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]:
-
Don't create a new layer called "o-hatch". If you want to make sure it exists, use make not new.
-
Rotate Selected Attributes to zero degrees (note this macro runs till escape is pressed)
*^C^C-attedit;Y;;;;\;a;0;;
try this......
*^C^C-ate;YES;;;;\;ANGLE 0;POSITION;\;
you may have to add a ; at the end if you have full version of cad.....
Allows you to rotate the attribute and then position it.....
-
here's a few more:
sets point style so i can see the nodes when object is divided then divides:
^C^Cpdmode;35;pdsize;3;divide
sets the units the way i want then performs offset:
^C^C-units;5;32;1;2;0.00;N;(graphscr);OFFSET;1/32
-
I have the some express tools for LT if anybody wants them.......
Download them here...
LT express tools (http://theswamp.org/lilly.pond/VerticalMojo/LTXpress.zip)
The help text doc. tells you how to install them... enjoy!
-
8) For which LT version ?
-
Yeh that would make Kate's day. :)
-
The LT express tools were made for LT 2004. But, they seem to be compatible with LT 2000 also.
-
They are Macro buttons! They work great on LT2000. Comes with button images and appears next to your help pull down! :shock:
-
I've got them, actually -- been waiting for some free time to tweak them so I can give them to everybody else in the office -- I'd be a hero. :-)
-
and maybe you could keep your little secrets to yourself and look oh so much faster than everyone else! :)
-
anybody know if i could add something to qleader to turn the capslock on. that would be great!
I found this VBA routine for Automatic Caps Lock:
http://www.vbdesign.net/cadpages/files/display.php?page=clocker
-
and maybe you could keep your little secrets to yourself and look oh so much faster than everyone else! :)
HA! :lol:
-
anybody know if i could add something to qleader to turn the capslock on. that would be great!
I found this VBA routine for Automatic Caps Lock:
http://www.vbdesign.net/cadpages/files/display.php?page=clocker
Unfortunately no VBA in LT
-
anybody know if i could add something to qleader to turn the capslock on. that would be great!
I found this VBA routine for Automatic Caps Lock:
http://www.vbdesign.net/cadpages/files/display.php?page=clocker
Theres a AutoCAPS feature in the MTEXT editor,youd just select and CAPS would always be selected while in CAD.But where is it in CAD 2K4?I know theres a right click,but wheres the old AutoCAPS!
-
Hey Mojo, wanna be a guinea pig for me??
If so, download this (http://www.theswamp.org/lilly.pond/KEB/WhatDWG.exe) and let me know if it works.
Anyone else want to see if it works try it and let me know.
It should grab the name of the AutoCAD drawing currently open AND if it works in LT, then we have a perfect way to implement customization programs in LT. If not, then I'll need to look at something else.
-
this is what I get....
You do not have an appropriate license to use this functionality.
-
I've downloaded the auto caps lock, but as I have absolutely no experience of VB I don't have a clue how to get this to work, if someone could give me a run through i's be most grateful.
-
I've downloaded the auto caps lock, but as I have absolutely no experience of VB I don't have a clue how to get this to work, if someone could give me a run through i's be most grateful.
Se7en sent me the clocker.dvb. I've updated it to work with a few more things than mtext. I'll load it on the site and link to it in a few. The things I should warn you about are this. vba does not have an event handler for escape if I remember correctly. Also, this program doesn't have a handler for a person hitting caps lock and leaving it on after hitting ok. In both cases the keyboard will be reversed in how it types cases. It can be frustrating, but all you have to do is double click on a piece of text and hit okay. Problem solved. Now that I've stated a disclaimer, I'll go put it up. BRB
Okay, here (http://theswamp.org/swamp.files/Daron/Clocker.dvb) it is. If you want to save it from Mozilla, right click the link and hit "save link target as...".
-
hey daron the clocker works great for me on dtext and mtext but when i do leaders it doesn't. i triggered it to work once i think by doing some junk mtext before a leader but now it's not doing anything. what's the trick to getting it to work with leaders?
-
Haven't used leaders. Let me have a look to update that portion and I'll see.
-
It's pretty good, doesn't work with attriubutes either.
If it did that it would be fantastic.
<ost of the guys in my company are using it already.
-
Does anybody know the Macro command to open a application in windows?
-
It's updated to work with leaders. Redownload it.
-
hmmm not working on my end daron :cry:
-
Dan, what do you use to invoke leaders?
Hudster, what do you use to invoke attribute edits.
Here are the calls it currently looks for. I have an EditSingleAttribute lisp that I need to update it for.
CommandName = "MTEXT" Or CommandName = "DTEXT" Or _
CommandName = "ATTEDIT" Or CommandName = "TEXT" Or _
CommandName = "DDEDIT" Or CommandName = "MTEDIT" Or _
CommandName = "EATTEDIT" Or CommandName = "DDEDIT" Or _
CommandName = "FIND" Or CommandName = "LEADER"
Note: double-clicks work for calls on anything that receive dclicks like eattedit.
BTW, nobody in my office likes it, because of the escape and caps-lock bugs. Would be nice if this were written in c++. Then those events could be fixed.
-
i use qleader daron.
-
It works when I edit the attribute, but not when I first insert the block from a pull down menu.
Oh, and I use double click to edit blocks.
Still all in all a great wee util.
-
the macro command to open an application in Autocad is _START.
this one opens the calculator
^C^C_start;C:/I386/calc.exe; :o
-
i use qleader daron.
Well, type vbaman, make sure it's loaded there, then hit the ide button and add a commandname="QLEADER". See if that helps.
-
ok daron thanks for bearing with my vba ignorance. i got it goin preesh...
-
If you got it going, you must not be that ignorant.
-
I added the qleader and insert commands and now both work.
This is now truly a superb little app. 10 out of 10.
-
true true i have a couple brain cells left :wink:
-
I'm trying to tweak this button so that when it positions the attribute the insertion point is true. For some reason my insertion point is not in the place I want it and when I pick a position it's not exactly where I want it placed..... Any Ideas? :?
Thanks in advance...
Allows the user to rotate the attribute then position it.
*^C^C-ate;YES;;;;\;ANGLE 0;POSITION;\;
-
I tried this and it seems to go where I want it to go.
It looks like it moves slightly when I move the attribute to an intersection point, but when I draw a line from the insertion point of the attribute it's line is from the intersection point I moved it to. :? (I hope that made sense).
-
Some of these may have already been posted...well I know they were a few months ago...I haven't been in here for a while. :oops:
1. Page Setups
Create a drawing called PageSetups.dwg and in it, go to File > Page Setup...
Add a page setup for each print job you could possibly have. For example,
A-Mono-Landscape
B-Mono-Landscape
D-Mono-Landscape
B-Colour-PDF-Landscape
...and so on...
Save PageSetups.dwg in your AutoCAD/Support directory and try the macro below.
It makes printing and plotting in AutoCAD 2k and later a snap!
^C^C.-PSETUPIN "PageSetups.dwg" "*"
2. Insert Block with Dialog Box
Opens a file dialog box for you to select a block to insert. (The reason for this is to give you a preview...it almost acts as a slide library that way)
^C^C(setq BlockName(getfiled "Select drawing file" "C:/DRAWINGS/" "DWG" 0))(command "-INSERT" BlockName)
3. Windows Explorer
To open Windows Explorer in the folder containing the current drawing open in AutoCAD:
^C^C(COMMAND ".BROWSER" (GETVAR "DWGPREFIX"))
4. Change Text Width
CHtext.lsp must be loaded for this macro to function properly.
^C^CCHT;\\;W;\;
5. Delete Nul Entities and Purge Them
Deletes Nul Entities - Such as empty text strings and empty blocks - Once deleted, blocks must be purged from drawing. W:\Menus\LSP\Delnul.lsp must be apploaded for this function to work.
^C^CDELNUL;PURGE;
6. (a)Open ACAD.PGP & (b)Reinitialize it
(a) Opens acad.pgp in Notepad so you can add or change more of your key-ins.
^C^C^P(command"notepad"(findfile"acad.pgp")) ^P
(b) After you make a change to the acad.pgp file, it must be reinitialized for the changes to take place.
^C^C_RE-INIT 16
7. Global Attribute Edit
The standard AutoCAD attedit command with a bit of it done for you…
^C^Cattedit;N;;;;;\\;
-
can someone give me some help with how to modify my stretch to have ortho turned on before beggining:
$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_stretch,^C^C_stretch)
thanks
-
8) just add orthomode;1; to the begining of the code, to set ortho ON
-
That is in your own menu file, right?
-
mmm no should i add any buttons i customize to my menu. hmmm that a dumb question. i know i should but i'm trying to build a menu for everyone in my office and not sure if they'd use some of my macros. i guess i should add it to mine so if my job goes south i can easily take all my tools with me. i'll give it a try tomorrow thanks guys
-
Whats the Macro command for the Osnap toggle? I know snap is ^b.......
Thanks
-
ctrl+f
-
Thanks Daron! :)
-
ctrl+a controls group selectability, if you're interested.
-
Not if some weasealy wrascal changed it to select all!! I now have a button with pickstyle as a macro.
-
8) Actually Daron,,that is ok for Acad2000 but for Acad2002 onwards it is
CTRL+SHIFT+A to toggle groups on/off
-
Worked on my 2004.
-
I'll have to check that on 2k2 and 2k4 .. I'll report back later..
-
on my LT2000 ctrl A is undo!
-
Okay? It worked yesterday. Today, this is the result.
_ai_selall Selecting objects...done. This is after drawing a line.
-
Undo in most windows based programs is ctrl + z
-
VM, try that ctrl+A thing after drawing a line. If it draws a line, maybe it's one of those keys that just does the previously issued commands.
-
In A2k CTRL+A = Group Toggle
-
Yes, but LT is Undo?
-
Okay wait.... I guess my Short keys have been altered.... My CTRL "Z" is unassigned. I tried it on a different computer and CTRL "A" was Select all and CTRL "Z" was undo......
-
I set my undo to CTRL Z and took it off CTRL A and it defaults to toggle groups.......
-
I hate it when people modify the standard shortcuts....
-
:x bloody autodesk :x
-
I may have asked its question before but I'll try again since there are more people here now..... :keb:
I am trying to get this button to open up the design center and list all the layers of a particular drawing. Catch is, I need them to default to the "List" view...... wondering if anybody could help me out...
Thank ya,
oh yeah this is what I got so far......
^C^C_adcnavigate;H:/Blocks/layers.dwg/layers;^M;;
Using LT2000 NO LISP!
ITS FRIDAY! :sot:
-
Don't know if this one's in there, but as with most other programs in Windows, CTRL+Tab will cycle through all files open in a program. So, if you have a few drawings open in AutoCAD, or a few documents in Word, etc....
Many of you probably already knew this one...
-
Don't know if this one is in there but I always hated when I went to etransmit a drawing it asked me "do you want to save changes?".....simple but brought the stress level way down :D
qsave;^C^C_etransmit
-
What is the command for the "up arrow"? I want it to apply the last input from the user..... Is that possible?
-
.zoom;extents;^C^C.MOVE;ALL;;(GETVAR "VIEWCTR");0,0,0;BASE;0,0,0;.zoom;extents;
Made this one for my xrefed details so their insertion point is centered.
-
What is the command for the "up arrow"? I want it to apply the last input from the user..... Is that possible?
I kinda thought it was the system variable lastprompt but now I'm not sure.
-
Yeah my LT dosent read that command..... :?
-
The up arrow is supposed to page up through the information entered at the command line. I don't know what holds that information, but lastprompt does not.
-
this is kind of related but i customized some of my keyboard keys. example i made control up arrow be nearest and control down key perpendicular. well ever since then my control c and control v don't work as copy and paste. i've gone back and changed them but it has no effect. how do i get it back???
-
CTRL + V and CTRL + C are windows commands so you will have to set "Windows standard accelerator keys" in the options dialog under the "user preferences" tab
-
ah thanks keith
-
no problem
-
Anybody know of a macro that would load up a MNS file in menuload?????
~ :D
-
unfortunately not in LT ... I still can't believe there is no MENU command in LT
-
What about a lisp to load a pulldown menu at startup and place it? I found this one and modified it to the name of my menu but can't get it to work.
; Place the menu to the left of the last pulldown already loaded
(defun Aqua_PlaceMenu (/ CNT)
(setq CNT 1)
(while (< CNT 24)
(if (menucmd (strcat "P" (itoa CNT) ".1=?"))
(setq CNT (1+ CNT))
(progn
(if (> CNT 2)
(setq CNT (1- CNT))
(setq CNT 2)
)
(menucmd (strcat "p" (itoa CNT) "=+AQUA.pop1"))
(setq CNT 25)
)
)
)
)
(if (not (menucmd "AQUA.ID_AQUA_NEW=?"))
(progn (command "menuload" "AQUA")
(Aqua_PlaceMenu)
)
)
(prompt (strcat "Aqua Menu is now loaded.\n"))
(princ)
-
there is no lisp in LT ....
-
Actually there is a way to load an mns file with a macro..........
^C^Cmenuload;C:/YOUR/FILE/NAME.MNS
be sure two have the foward slash like this:
/
if it is like this:
\
it will wait for user input.......
-
there is no lisp in LT ....
yep.....just wondering why this lisp doesn't work
:D
-
Geeze..... I LOVE this thread....
What can I put in a macro that will select a point without putting in numeric location?
Example: when it asks "select base point".......
I want it to select the base point that the block already contains.....
Any clue?
-
Are you using LT?, you might try this ...
osmode 64;copy;\\@
You can also use select to pick an object and lastpoint to retrieve the point but there is no good way of moving that to the command that I know of.
osmode 64;select;\\$(getvar, lastpoint)
-
Use this to set my text/dim layer current when I use my custom MTEXT button.
^C^C-LAYER;S;SML_TEXT;;MTEXT
Use this to set my text/dim layer current when I use my custom QLEADER button.
^C^C-LAYER;S;SML_TEXT;;QLEADER
-
found this one to toggle between model space and paper space using a button
(setvar "tilemode" (- 1 (getvar "tilemode")))
I though it was kinda neat
-
My two favorites:
(startapp "C:/windows/explorer.exe" (getvar "DWGPREFIX"))
Opens Explorer in the directory of the drawing you're working on
(startapp "C:/Program Files/Mozilla Firefox/firefox.exe" "http://www.theswamp.org/")
This one, I think, doesn't need any explanation. 8)