Change all block element to Layer 0 without changing color, linetype

Dear All,

Please find the attached. I have too many blocks with specific layers inside.

Could you help me to develope lisp can change all to layer 0 but keep color and linetype as it is.

I will use this as a part of script to change multiple block.

Thanks