Help with older lisp program

[DC-MWA]

Hello all,

I have an old lisp I used to use often (years ago), and now I'm looking to use it again in new ways. I try it now and I get an error message.

Wondering if maybe one of the super gurus could take a look and maybe assist me in bringing this old work horse back to life.

I have attached the .lsp and .dcl files...

thanks,

-dc

[devitg]

Please show error message , and the sample dwg where you apply it.

[DC-MWA]

Here is what it shows when running on two files. (It looks like it's doing something but if you open the files after the fact, it seems as though nothing has happened.)

Command: BATCHPURGE

Unknown command "DWG". Press F1 for help.
No unreferenced blocks found.
No unreferenced layers found.
No unreferenced linetypes found.
No unreferenced text styles found.
No unreferenced shape files found.
No unreferenced dimension styles found.
No unreferenced mlinestyles found.
No unreferenced plotstyles found.
No unreferenced table styles found.
No unreferenced materials found.
No unreferenced visual styles found.
No unreferenced multileader styles found.
No unreferenced groups found.
No unreferenced Detail view styles found.
No unreferenced Section view styles found.

Unknown command "DWG". Press F1 for help.
No unreferenced blocks found.
No unreferenced layers found.
No unreferenced linetypes found.
No unreferenced text styles found.
No unreferenced shape files found.
No unreferenced dimension styles found.
No unreferenced mlinestyles found.
No unreferenced plotstyles found.
No unreferenced table styles found.
No unreferenced materials found.
No unreferenced visual styles found.
No unreferenced multileader styles found.
No unreferenced groups found.
No unreferenced Detail view styles found.
No unreferenced Section view styles found.

I have attached two files that I used..

[ronjonp · Accepted solution]

If the code you posted ever worked I'd be surprised. Maybe give THIS a try....

As far as I know you have to write a script then run the script to do this.

[DC-MWA]

That works for me.