Autocad lisp change property to by layer

It does require the situation you describe. Thank you.Ī little more than a simple change of a thing or two, but quickly, this one way of doing it seems to work, in very limited testing. I have tried to to use this existing LISP code to reverse everything to ByLayer instef of by color but I could not figure out what value i have to change and into what. No selection should be required for this action. In this scenario, all objects within one layer have the same color. Kent, Is it possible to show code for the following: Within each layer, check object's color and assign that color to object's layer. (cdr (assoc 62 (tblsearch 'layer' (vla-get-Layer obj)))) (if (not (assoc 62 (entget (setq ent (ssname ss 0))))) color = Bylayer (prompt ' To change objects' Bylayer colors to their Layers' colors as overrides,') = Selected Entity Colors to their Layer's Color There's probably something out there that will do what you're asking, but rather than search for it, it's probably easier just to modify my second routine there - here's one way : Yes, that's what the note says immediately following the code in my first post on that thread.

If the selected objects have True color, then they are kept the same (their color never change).If the selected objects have Bylayer color, then they will be changed to their true color.Using this lisp, if an object that has already a true color is clicked then its color will be changed to the color of the current layer (attached)!

Autocad lisp change property to by layer