a LISP for rename layers and change their colour

[Anonymous]

Hi everybody,

I need to create a lisp to rename layers, colours and linetype without creating a new command (no defun). For now i reached this stage  and it works:

(setq old_name "OLD" new_name "NEW")
(command "-rename" "layer" old_name new_name)

I need help to write a script to change their colours and linetypes by layer. It needs to be a single lisp file.

Somebody has experience with that?

Thank you

[ВeekeeCZ]

You should test the existence of the layer.

Are the variables necessary?

(if (tblsearch "LAYER" "MyOldLayer") (command "_.-RENAME" "_LAyer" "MyOldLayer" "NewName"))
(if (tblsearch "LAYER" "MyAnyLayer") (command "_.-LAYER" "_Color" 2 "MyAnyLayer" ""))

[Anonymous]

It works!!!Thank you BeekeeCZ for your help!!

[stevor]

Do the linetype and color changes apply to all layer renames?

IE, does every rename include the color and linetype changes?