Lisp to delete all blocks of various name
I have not tested this at all, but suggest you try the following:
(defun c:del4q () (sssetfirst nil (ssget "_x" '((2 . "pq-*"))))(command "_.erase" "") (sssetfirst nil (ssget "_x" '((2 . "RefQ*"))))(command "_.erase" "") (princ) )
Adding the "" at the end of each command function acts the same a pressing the ENTER key, closing the command. That should result in the objects selected in the first sssetfirst function being erased, and result in there being no active command when the second line runs. The command line feedback you posted shows the second erase command being fed to the first erase command, causing an error and resulting in no erasures.
Accepted solution
Ok, I did test it and it was not working well for me, either. Using sssetfirst and then using the command function to operate on the selected objects is not what I would normally do in an AutoLISP routine. The following code should erase all of the blocks in your file whose block names start with either pq- or RefQ.
(defun c:del4q (/ ss1) (setq ss1 (ssget "_X" '((-4 . "<OR") (2 . "pq-*") (2 . "RefQ*") (-4 . "OR>") ) ;_ End filter list. ) ;_ End ssget. ) ;_ End setq. (command "_.erase" ss1 "") (princ) ) ;_ End c:del4q.
Accepted solution
The "_X" mode of the ssget function selects all of the objects in the database, unless you add a filter list, in which case only objects whose properties match those given in the filter list are selected. A filter list is an association list, in the same format as the data returned by the entget function. Each item is a dotted pair, with the first element being the DXF group code for the property and the second item being the value. The 2 DXF group code is the same for all objects, and is a "name". For Block References, it is the Block name.
You can find links to the DXF group codes associated with various graphical objects here,
The -4 DXF group code does not actually occur on an object, but is used to allow relational tests or logical grouping of filter tests in the ssget function. The Help pages to which those links will take you will explain their use far better than I can. In this particular example, I used the OR logical grouping of filter tests to allow one ssget function to gather all block references whose names start with either of two strings. If you had the need, additional (2 . "xxx*") items could be placed between the two -4 groups to get block references starting with other initial strings [where xxx represents the initial characters in the block reference names you want to get].
For some reason, scripts always give me a challenge. I never seem to get the syntax right. Have you tried adding a blank line between the (LOAD "DBLKS") and DBLKS lines? Not sure if that will work, but I have had occasions where calling the command immediately after the load did not work because the load did not execute immediately.
