Hi! I need a lisp for chnaging the name AND color of some of my layers.
I have this one that works for changing the name of the layers but I need to add the option of setting a color for each layer:
( defun c:FIXMYLAYERS ( / ss_newlayer change_en )
( setq layerlist ( list
( cons "Original layer name 1" "New layer name 1" )
( cons "Original layer name 2" "New layer name 2" )
( cons "Original layer name 3" "New layer name 3" )
);list
);sq
( foreach item layerlist
( if ( and ( tblsearch "Layer" ( car item ) )
( not ( tblsearch "Layer" ( cdr item ) )) );a
( command "-Rename" "LAYER" ( car item ) ( cdr item ) )
);i
);fe
( setq ss_newlayer ( ssget "X" ))
( while ( setq change_en ( ssname ss_newlayer 0 ))
( setq ss_newlayer ( ssdel change_en ss_newlayer ))
( if ( assoc ( cdr ( assoc 8 ( entget change_en ))) layerlist )
( entmod ( subst ( cons 8 ( cdr ( assoc ( cdr ( assoc 8 ( entget change_en ))) layerlist ))) ( assoc 8 ( entget change_en )) ( entget change_en ) ))
);i
);w
( princ "\nFinished:" )(princ ))
Does anyone have any ideas about how to add the option of asigning a specific color to each layer?