ronjonp,Glad to help :) .. I updated the code above to purge the block def as well. Give it a go!
You are the man! Thank you very much, it worked. I really appreciate all your help you have given me past and present. Take care!
ronjonp,Try using the command purge and see if it works. If not then all blocks did not get deleted.
I tried your previous code post and it still deletes the block "squad" but when I open the drawing after, nothing has been purged. I'm sorry.
_.open *file* (load "DeleteBlocksV1-1.lsp" nil) (LM:deleteblocks:acdoc '("squad")) _.qsave _.close
(defun c:delsquad ( )
(LM:odbx '(lambda ( doc ) (LM:deleteblocks doc '("squad"))) nil t)
(princ)
)
Thank you very much for chiming in but I'm not competent enough to implement your advice, lol. Thank you though for replying. I appreciate it.