I ran the copy block lisp and I've now got it down to 3 layers.
Weird thing is i copied the drawing and deleted everything, inserted each block in turn and purged the drawing each time, and that layers always disappeared, but when they are all together I can't purge these 3.
Looks like i'll have to live with them, as I can't think of anyway to find out what is referencing these layers.
I wish autocad would come up with a way to show all the blocks and their properties, layers etc in a comprehensive list.
***edit***
I've got it down to one layer now.
Some how the architcet has managed to create blocks that begin with a *, i.e. *17, I didn't think this was possible?
But I was clicking around the drawing and found one, used the copyblock lispp and had to delete the *17 block, AutoCAD won't let me use replaceblock on a block with a * in the title, and got rid of two layers.
One to go.