topic Re: Select by color and then change to layer in Visual LISP, AutoLISP and General Customization Forum

Select by color and then change to layer

renanemeyer — Mon, 06 Feb 2023 16:58:03 GMT

Hello everyone on the forum. I've been reading several posts like this one:

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/object-selection-with-color/td-p/8503973

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/select-all-layers-of-a-particular-color-and-send-to-back/td-p/9534694

In case I'm having trouble creating something similar. I would like a command that would select everything I have in color 7 and set it on the layer "LAY-W".
Does anyone know how to proceed with the modification for this?

Re: Select by color and then change to layer

Kent1Cooper — Mon, 06 Feb 2023 17:44:19 GMT

Do you mean only things with color 7 assigned as a property override, or including things whose color is ByLayer but which are on Layers whose color is 7?

And do you mean all such things in the drawing, or only from among a User selection?

Re: Select by color and then change to layer

renanemeyer — Mon, 06 Feb 2023 18:15:30 GMT

@Kent1CooperThanks for the answer!!

Yes, only things with color 7 assigned as a property override and it would be all such things in the drawing, not needing to do the selection of what would change.
In this case, would you know how it could be modified?

Re: Select by color and then change to layer

paullimapa — Mon, 06 Feb 2023 18:47:51 GMT

would you share the code you have so far?

Re: Select by color and then change to layer

Kent1Cooper — Mon, 06 Feb 2023 19:01:54 GMT

@renanemeyer wrote:

.... only things with color 7 assigned as a property override and it would be all such things in the drawing....

Follow-up question: Would they ever be in multiple different spaces? If they're always only in Model space, it's rather simple to make something find all of them and collectively change their Layer with a CHPROP command. But that won't do it if some are in different Paper space layouts, etc., in which case it can be done, but takes a different approach.

Re: Select by color and then change to layer

renanemeyer — Mon, 06 Feb 2023 19:25:02 GMT

@Kent1Cooper in this case it would only be for only in the Model space. An idea you commented I think it would work then.
In this case, I create a ss1 variable filtering these elements by color and apply "command "chprop" ss1 "" "LAY-W" ?
I'm visualizing this mentally, but I can't make a code that works in this case

Re: Select by color and then change to layer

Kent1Cooper — Mon, 06 Feb 2023 19:33:58 GMT

@renanemeyer wrote:

.... I create a ss1 variable filtering these elements by color and apply "command "chprop" ss1 "" "LAY-W" ? ....

Yes. But you need to call for the "_layer" option [i.e. which Property you want to change] before giving it the Layer name. [Do it manually, and note the exact sequence of prompts and required inputs.] And remember that the CHPROP will need an extra "" {Enter} at the end to tell it you're done [you could go on to change other Properties within the same command, so you need to let it know].

Try writing it, and if you can't make it work, show us what you came up with.

Re: Select by color and then change to layer

renanemeyer — Tue, 07 Feb 2023 19:11:10 GMT

@Kent1Cooper Thank you for the tips! Its was accurate @paullimapa thank you for your availability, I only managed to write now
I managed to do the lisp again now and it worked!! Below is the script:

(defun c:LAYW ( / c d e l ) (if (setq e (car (entsel))) (progn (setq c (cond ( (cdr (assoc 62 (entget e))) ) ( (abs (cdr (assoc 62 (tblsearch "LAYER" (cdr (assoc 8 (entget e))))))) ) ) ) (while (setq d (tblnext "LAYER" (null d))) (if (= c (abs (cdr (assoc 62 d)))) (setq l (cons "," (cons (cdr (assoc 2 d)) l))) ) ) (sssetfirst nil (ssget "_X" (if l (list (cons -4 "<OR") (cons 62 c) (cons -4 "<AND") (cons 62 256) (cons 8 (apply 'strcat (cdr l))) (cons -4 "AND>") (cons -4 "OR>") ) (list (cons 62 c)) ) ) ) ) ) (command "_.chprop" (ssget ) "" "LA" "LAY-W" "") (princ) )

Re: Select by color and then change to layer

Kent1Cooper — Tue, 07 Feb 2023 19:42:56 GMT

That looks like it contradicts Message 3, in that it gets both things with the color as a property override and those of ByLayer color on Layers with that color. Am I misunderstanding?

[And by the way, that's not a Script. That word has a specific, and although related, different meaning in AutoCAD.]

Re: Select by color and then change to layer

renanemeyer — Wed, 08 Feb 2023 11:22:59 GMT

That's right @Kent1Cooper, its getting both. I read this idea on the forum and get it for this case.

By the way, sorry for misreferencing the script.