Assign random true colors to layers

[Anonymous]

Hello,

Here's the deal;

I have more than 3000 text each on a different layer, I'd like to assign to each layer a different color excluding black and white, is this possible?

thanks

[dbhunia · Accepted solution]

Try this.....

(defun c:lac ( / n la )
(vl-load-com)
(setvar 'cmdecho 0)
(setq n 1)
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
	(if (= n 255)(setq n 1))
	(setq la (vla-get-name layer))
	(vl-catch-all-apply 'vl-cmdf (list "_.LAYER" "_Color" n la ""))
	(setq n (+ n 1))
)
(setvar 'cmdecho 1)
(princ)
)