@ibfmm wrote:
... LISPs for AutoCAD - but I'm looking for some to change the current layer (after executing a command) to a specific one and then swicht back to the current.
....
I believe the Architectural overlay program has this capability built in, but I'm not sure whether other overlay programs do.
Another approach would be to not change the current Layer before drawing something, but so that you don't have to change the current Layer back afterwards, instead change the something to the desired Layer after drawing it. In simplest terms:
(command "_.undefine" "INSERT")
(defun C:INSERT ()
(command "_.layer" "_new" "BLOCK" ""); in case it doesn't exist yet; does not make it current
(command "_.insert")
(while (> (getvar 'cmdactive) 0) (command pause))
(command "_.chprop" "_last" "" "_layer" "BLOCK" "")
); defun
Or, you could take advantage of a peculiarity I discovered some time ago -- if you give an object a Layer using (subst) & (entmod), if the Layer doesn't yet exist, it will create the Layer in the process [using default color 7 and continuous linetype], so you don't even need to account for the possibility that it's not in the drawing yet:
(command "_.undefine" "INSERT")
(defun C:INSERT ()
(command "_.insert")
(while (> (getvar 'cmdactive) 0) (command pause))
(entmod (subst (cons 8 "BLOCK") (assoc 8 (setq edata (entget (entlast)))) edata))
); defun
However, those approaches have at least one drawback that I can think of in the TEXT command. You can make more than one Text object in a single command, by picking new insertion points along the way. Those approaches would put only the last one on the designated Layer. But a more sophisticated routine could account for that [mark the last object in the drawing before starting, and change the Layer of everything newer than that when done].
Welcome to these Forums, by the way!
As an aside, I do wonder whether this is an advisable thing to do. I certainly do not want all Blocks always inserted on the same Layer. I want [in my case in architectural drawings] furniture Blocks on a furniture Layer, and plumbing-fixture Blocks on a plumbing-fixtures Layer, and so on. Nor do I always want all Text objects always on the same Layer -- one for Room Names, one for Drawing Titles, one for....
No, FLAY loads automatically and it also automatically loads the FLAY.TAB file (the first one in AutoCAD search path). So you can use FLAY fully transparently.
Vladimir Michl, www.cadstudio.cz www.cadforum.cz
TCIRCLE is technically not a command but a LISP function (C:TCIRCLE). While it is possible to process also LISP functions in the FLay reactor, I am afraid it would slow down invoking of all LISP functions.
Vladimir Michl, www.cadstudio.cz www.cadforum.cz
New FLay version 2.1 (see www.cadstudio.cz/freeware) now supports also LISP-based commands. But you will need to enable the LISP-reactor manually, by setting:
(setq FL:LISPREACTOR T)
as it slightly slows down any LISP function invoked in your AutoCAD session (see readme in FLAY.TXT).
Vladimir Michl, www.cadstudio.cz www.cadforum.cz
@mbracciahubbard wrote:
... i'd love if i could use a custom "1" command and have that do a line that's on layer "text" and custom "2" command and have that do a line that's on layer "beam".
This is pretty basic AutoLisp command-definition stuff. In very simplest terms:
(defun C:1 ()
(setvar 'clayer "text")
(command "_.line")
)
(defun C:2 ()
(setvar 'clayer "beam")
(command "_.line")
)
They can be enhanced, such as to ensure the Layer exists in the drawing, and/or if you want, to save the current Layer first and return you to that afterwards [you may not want that, if you're often likely to want to draw more on the Layer in question than just one Line command's worth].
Type a product name
May we collect and use your data?
Learn more about the Third Party Services we use and our Privacy Statement. May we collect and use your data to tailor your experience?
Explore the benefits of a customized experience by managing your privacy settings for this site or visit our Privacy Statement to learn more about your options.
