Well, this is what I ended up with and it appears to be working fine. I just ran it on 123 dwgs and it appears to have done the trick to all 123.
-insert
done
7.4,5.4
line
-100000,-100000
@1000<45
-block
done
yes
0,0
last
zoom
extents
erase
-102000,-102000
-10000,-10000
zoom
extents
-purge
all
no
Revdate
save
Perhaps it may help someone else that has the same problem.
Thanks for all of the replies