topic Re: Lisp to change Layer color without going to layer manager in Visual LISP, AutoLISP and General Customization Forum

Lisp to change Layer color without going to layer manager

aclima01 — Tue, 12 Dec 2017 16:20:50 GMT

Hello

I guess it doesn't exist, made a quick search and found no lisp performing this.

It would be a great help to have a lisp to change the layer color of a selected object without going to Layer manager (editing multiple layers would be even better)

Thank you in advance

André

Re: Lisp to change Layer color without going to layer manager

pendean — Tue, 12 Dec 2017 16:48:13 GMT

If this is to conform to your "standards" how about using CHECKSTANDARDS command/features more fully.

Re: Lisp to change Layer color without going to layer manager

Patchy — Tue, 12 Dec 2017 16:56:29 GMT

XCC

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/pick-object-change-layer-properties/td-p/1416072

Re: Lisp to change Layer color without going to layer manager

aclima01 — Tue, 12 Dec 2017 17:16:15 GMT

Its nice.

Unfortunately it does not working with all objects/colors or more than one layer.

Re: Lisp to change Layer color without going to layer manager

Kent1Cooper — Tue, 12 Dec 2017 19:21:30 GMT

@aclima01 wrote:

.... it does not working with all objects/colors or more than one layer.

Elaborate on that.... It won't change the color of an object that has an override color assigned, if you use this to change the color of its Layer [nor if you change the Layer's color by any other means]. Do you mean something different by its "not working with all objects"? It does work on more than one Layer in that you pick an object and it asks for a color for its Layer, and you can go on and pick other objects and set colors to their Layers, as long as you want to keep going. Are you talking about setting the same color to more than one Layer at one shot? Or something else?

Re: Lisp to change Layer color without going to layer manager

aclima01 — Wed, 13 Dec 2017 09:57:42 GMT

It seems to me lisp is not working with layers using true colors. I've tried a few and those layers colors are not being changed.

Re: Lisp to change Layer color without going to layer manager

ВeekeeCZ — Wed, 13 Dec 2017 11:39:32 GMT

This should work for both index and Truecolor. Code does not support a bookcolor - it fails if you select that from the color dialog.

(defun c:LayColor ( / ss clr col i lst lay)
  (if (setq ss (ssget "_:L"))
    (progn
      (setq lst ","
            ccl (getvar 'CECOLOR))
      (repeat (setq i (sslength ss))
        (setq lay (strcat (cdr (assoc 8 (entget (ssname ss (setq i (1- i)))))) ","))
        (if (not (vl-string-search (strcat "," lay) lst))
          (setq lst (strcat lst lay))))
      (setq lst (vl-string-trim "," lst))
      (initdia)
      (command "_.COLOR")
      (setq col (getvar 'CECOLOR))
      (setvar 'CECOLOR ccl)
      (command "_.LAYER" "_Color")
      (if (wcmatch col "RGB:*")
        (command "_T" (substr col 5))
        (command col))
      (command lst "")))
  (princ)
)

Re: Lisp to change Layer color without going to layer manager

aclima01 — Wed, 13 Dec 2017 12:23:58 GMT

Perfect!!

Thank you 🙂