Bingo !!!!
Your lisp routine was the ticket.
The layers filters were the cause, all 20,000 of them. (Yes 20,000) Apparently layer filters follow a copyclipped entity to the new dwg. I guess that's how there became so many. I never would have found them.
Here's the breakdown: Drawing started...
I have a dwg that is 2 mb in size and should really only be about .5 mb. It was sent to me from a client. I purged completed, tried to wblock it, ran a qtext check and it is still 2 mb. I then did a little test: opened up a new empty dwg and saved-it was 25kb. Then copyclipped one line (yes...