topic Re: Lisp for color changing... in Visual LISP, AutoLISP and General Customization Forum

Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 15:32:38 GMT

I need a lisp that turns every layer in a drawing from one color to another. In my case it's blue to magenta, but I'd like to be able to customize it. So, if the code is hard to decipher, please point it out.

Thank you!

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 15:45:24 GMT

Try this:

(defun c:foo (/ old new) (setq old 5 new 6 ) (vlax-for l (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) (if (= old (vla-get-color l)) (vla-put-color l new) ) ) (princ) )

Re: Lisp for color changing...

Kent1Cooper — Mon, 24 Oct 2022 15:50:52 GMT

That is clearly "doable," but it's not clear to me exactly what you want to do. Is it to find all Layers that have blue color assigned to them, and change their color to magenta? And only those Layers? That is, does "every layer" in your description refer not to every layer in the drawing, but to every layer with a particular color assigned?

If that's the intent, it can be done pretty simply without any code. Open the Layer Manager and pick on the Color heading at the top of the color indicator column, to sort the Layers by color. That will put all those that are blue together, making it easy to select them together and change their color collectively. But it could certainly be automated, if you really need that.

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 17:15:41 GMT

Unknown command...

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 17:16:31 GMT

Yes, only layers that are blue- change to magenta.

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 17:17:42 GMT

@rob.aHH2T8 wrote:

Unknown command...

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 20:33:02 GMT

Added

(vl-load-com)

to the end of the file... to no avail.

Re: Lisp for color changing...

john.uhden — Mon, 24 Oct 2022 20:51:22 GMT

@rob.aHH2T8

Did you save the file and then load it?

Or did you copy the code into your command line?

Or did you enter the command as "C:foo?" If so, the command is just "FOO."

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 20:56:49 GMT

@rob.aHH2T8 wrote:

Added

(vl-load-com)

to the end of the file... to no avail.

How are you loading the code ? Perhaps read THIS if you're having problems.

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 21:34:35 GMT

I've loaded lisps before... (see attachment)

Re: Lisp for color changing...

paullimapa — Mon, 24 Oct 2022 21:34:52 GMT

further developing @ronjonp foo code try this:

; foo.lsp function changes every layer in a drawing from a selected color to another selected color (defun c:foo (/ ccol get_color lyrtbl new old) (vl-load-com) ; get_color presents color chart & returns color selected from AutoCAD's 255 color index (defun get_color (col) (acad_colordlg col nil) ; select from AutoCAD 255 color index chart color to change ) (setq lyrtbl (tblsearch"layer"(getvar"clayer")) ; get current layer ccol (abs(cdr(assoc 62 lyrtbl))) ; get current layer color ) (if (setq old (get_color ccol)) ; get old layer color (progn (if (setq new (get_color old)) ; get new layer color (progn (vlax-for l (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) ; loop through all layers (if (= old (vla-get-color l)) (vla-put-color l new) ; change all match colors ) ) (alert(strcat"All Layers with Color [" (itoa old) "] Successfully changed to Color: [" (itoa new) "]")) ) ; progn (princ"\nNo Color Selected.") ) ; if new color selected ) ; progn (princ"\nNo Color Selected.") ) ; if old color selected (princ) ) ; defun foo

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 21:37:28 GMT

@rob.aHH2T8 wrote:

I've loaded lisps before... (see attachment)

I'm not sure what's going on. It works as intended on my machine. 🤔

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 21:44:45 GMT

Does the "princ" part need to be at the end?

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 22:03:49 GMT

This one didn't work either.

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 22:08:35 GMT

@rob.aHH2T8 wrote:

Does the "princ" part need to be at the end?

The (princ) is a quiet end and has no impact on how the code runs. What errors are you seeing ? I see that @paullimapa posted some code too but "it does not work' is fairly vague.

Re: Lisp for color changing...

rob.aHH2T8 — Mon, 24 Oct 2022 23:21:49 GMT

Unknown command.

Re: Lisp for color changing...

Sea-Haven — Mon, 24 Oct 2022 23:27:17 GMT

Which is correct, I have

Full Autocad or CIV3D or Architecture

Autocad MAC

Bricscad

Another cad program

Re: Lisp for color changing...

paullimapa — Mon, 24 Oct 2022 23:31:51 GMT

the problem is you're not saving the contents of the code into a file that AutoCAD will load automatically.

From your captured image, it shows file name as: acad

But for AutoCAD to load the file automatically, it should be: acad.lsp

And this file needs to be in one of the AutoCAD support search path which is listed under OPTIONS>Files>Support File Search Path

So do this: open attached FOO.zip and then save FOO.lsp into one of the above folders.

Then at the AutoCAD command prompt enter:

(load"foo")

FOO

Re: Lisp for color changing...

ronjonp — Mon, 24 Oct 2022 23:32:05 GMT

@rob.aHH2T8 wrote:

Unknown command.

Try to copy and paste the code into the command line then call 'FOO'. You're missing a step somewhere me thinks.

Re: Lisp for color changing...

rob.aHH2T8 — Tue, 25 Oct 2022 15:33:48 GMT

The lisp above it works...