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

Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.Image may be NSFW.
Clik here to view.

Image may be NSFW.
Clik here to view.