Selecting all touching lines, polylines or blocks

Hi I want to make a lisp that asks me to pick one or more starting polylines and then it will automatically select all lines poly-lines or blocks that touch with that one or the next in the selection that belong to some specific layers.

I was thinking turning off the layers that I don't want and then use fast select with fsmode on.

Thing is that when I run fast select it doesn't give me the same results every time.

While selecting the same initial polyline it misses from the selection every time some different objects.

Final part will be to make a sum of an attribute of all the blocks that it has selected.

Any ideas on the approach for this?

any sample codes?

Thanx in advance

You should build a list from vertexes of said polyline and use it as argument for SSGET function called with Fence argument; apply an appropriate filter.

(ssget "_F" listOfVertexes '((0 . "*LINE,INSERT"))

My Chain Selection program may get you halfway there.