(defun c:ColortoLayer (/ ActDoc LayCol LayClr tmpLay)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq LayCol (vla-get-Layers ActDoc))
(vlax-for Layout (vla-get-Layouts ActDoc)
(vlax-for Obj (vla-get-Block Layout)
(setq LayClr (vla-get-Color Obj))
(if (vl-catch-all-error-p (vl-catch-all-apply 'vla-Item (list LayCol (itoa
LayClr))))
(progn
(setq tmpLay (vla-Add LayCol (itoa LayClr)))
(vla-put-Color tmpLay LayClr)
)
)
(vla-put-Layer Obj (itoa LayClr))
(vla-put-Color Obj 256)
)
)
(princ)
)