Hey guys. @benzson11 don´t use "_A" in (setq selectionset (ssget "_A" '((0 . "3DSOLID,*SURFACE,CIRCLE")))) use "x" (setq selectionset (ssget "x" '((0 . "3DSOLID,*SURFACE,CIRCLE"))))
"All" or "al" is used in (command ".erase" "all" "") for example. In the ssget function to select everything "x" is used. I changed the purge command too.
I changed your file, test if that's how you wanted it.
Sorry my english from google translator. Because I don't speak English.
QB-BENZSON - new.LSP