AutoCad :: Display Layer List Of Layers Through Given Area?

I have a string of 3d solids (cubes if you will) lined up in a row. I have a 3D Polyline starting below each one cube. (each polyline is a different layer name). As the line enters the cube, it then turns left in the center... and goes through the other cubes to its left till it reaches the end. So the left most cube has each line going through it, and the right most cube has only one 3dpolyline. I am looking for a way to create some kind of tangible data I can display, export or extract of what layers are going through cube one if I select it. Same for cube 2, 3, ect...

I have dummied down the example due to having 44 cubes, and not all in a single row, or this question would be an easier answer.

So is there a command, or a lisp routine I can create or manipulate to give layer names that float through a 3D Solid?