need a lisp to split objects to layers

Hi, I need a lisp routine to split all objects in a selection set (all
are 3d Solids), each to a seperate layer.

1) need to get selection set
2) object 1 -> layer 1
3) object 2 -> layer 2
4) etc

I have a drawing with over 1200 solids in it and somehow managed to
merge all layers. I can rename the layers easy enough. but there are
too many object to do by hand

 

So you want to make a drawing with over 1200 layers?
Really?

 

No, don't want one, but I need one. I is for a large entertainment
center with shelves, drawers, cabinets, etc. and my employer uses a
add-in to generate cut lists based on one object a layer

 

hello
if your problem isn't solved tell me
i've written the same lisp
+989126049289
Amir