Lisp to change colour from Bylayer to actual colour

Does anyone have a lisp that when an entity is selected it will take the bylayer colour and assign that colour directly to the entity without it being bylayer?

Quickly written:

(defun c:test ( / a b c d e f )
 (while (setq a (tblnext "LAYER" (null a)))
   (setq b (cons (cons (cdr (assoc 2 a)) (abs (cdr (assoc 62 a)))) b))
 )
 (if (setq c (ssget "_:L"))
   (repeat (setq d (sslength c))
     (setq e (entget (ssname c (setq d (1- d))))
           f (cons 62 (cdr (assoc (cdr (assoc 8 e)) b)))
     )
     (entmod (if (assoc 62 e) (subst f (assoc 62 e) e) (append e (list f))))
   )
 )
 (princ)
)

Perfect. Thanks LeeMac.

You're welcome woodman

hi Lee.

Can you develop your lisp more? Ex: when click object, display number color on box without change bylayer.

Thank you so much.