To convert all non-xref layers to color 10:
(command "_.layer" "_c" "10" "~*|*" "")
Of course, that alone will not guarantee that xref layers are also not color 10.
"RichardG" wrote in message news:41fe80b4$1_3@newsprd01...
> So far I have:
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> (defun construct_layer_list ( / temp-list temp )
> (setq temp-list nil)
> (setq temp (tblnext "layer" T))
> (while temp
> (if (not (wcmatch (cdr (assoc 2 temp)) "*|*"))
> (setq temp-list (cons (cdr (assoc 2 temp)) temp-list))
> )
> (setq temp (tblnext "layer"))
> )
> (if temp-list (acad_strlsort temp-list))
> )
> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> What i need is some hints to acomplish that part of the function which will
> take all of those layers that are not Xref layers and change the property
> value to a specific color lets say 10.
> Any help is appreciated thanks
> Richard
>