Lisp to delete all blocks of various name

[Anonymous]

My experience with lisp is finding code that sort of does what I want, editing and hoping for the best. Thru trial and error, research and a little luck I usually stumble on a workable solution. Today I'm stuck.

For construction drawings I need a number of entities in floor plan cad that client wants stripped from cad before passing it to them. I'm trying to delete all instances of a list of different blocks.

Code below works for single line selecting "pq-*" or "RefQ*" but with both lines nothing is deleted and error at bottom is returned. Hope this is a simple one, what am I missing?

(defun c:del4q ()
(sssetfirst nil (ssget "_x" '((2 . "pq-*"))))(command "_.erase")
(sssetfirst nil (ssget "_x" '((2 . "RefQ*"))))(command "_.erase")
(princ)
)

Command: DEL4Q
_.erase
Select objects: _.erase
*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle/SUbobject/Object

Thanks in advance.

[Lee.MalaspinaJMHCX]

I did an extensive search snd found a solution to this probem. Since nobody was interested in addressing the actual problem, I won't waste any time with the solution. Thanks a lot.

[Lee.MalaspinaJMHCX]

Yes, i tried various things that worked in other scripts. No luck with that.

[Lee.MalaspinaJMHCX]

I did some research and found a solution to my problem, which was running it on numerous files.Thanks to the few that actually tried to assist me with the actual problem and comprehended it.