Delete a Block

[Broydhouse]

I am working on a drawing that i have had sent over and it has some
blocks that are empty. I can't rember how to delete the whole block.

[NBC]

if you know the name of the block, use QSELECT, and use Block as your Object Type, in Properties choose Name, in Operator choose Equals, in Value insert the name of your block.
once happy with all that, press ok, then once they have all been selected, press Delete key

[asos2000]

is there a way to select all empty blocks at one time?

[lpseifert]

Maybe this will work for you.


; Delete Null Objects
;; DelNul.lsp
;; Deletes nul lines of Text, Mtext & Blocks.
;; Modified by JL Thomas 12/02/97

(Defun C:DelNul ( / TXT BLK NB NAMES)
(if(setq TXT (ssget "X" '((-4 . "<and")(-4 . "<or")
(0 . "MTEXT")(0 . "TEXT")
(-4 . "or>")(-4 . "<or")
(1 . "")(1 . " ")(1 . " ")(1 . " ")
(1 . "{}")(1 . "{ }")(1 . "{ }")(1 . "{ }")
(1 . "{}\P")(1 . "{ }\P")(1 . "{ }\P")(1 . "{ }\P")
(-4 . "or>")(-4 . "and>"))))
(progn
(command"_erase"TXT"")
(princ(strcat"\n "(itoa(sslength TXT))" nul text strings deleted. "))
)
(princ"\n No nul text strings found. "))

(setq BLK(tblnext"BLOCK"T)NAMES nil)
(while BLK
(if(=(cdr(assoc 0(entget(cdr(assoc -2 BLK)))))"ENDBLK")
(progn
(if(setq NB(ssget "X" (list(assoc 2 BLK))))
(command"_erase"NB"")
)
(setq NAMES(cons(cdr(assoc 2 BLK))NAMES))
)
)
(setq BLK(tblnext"BLOCK"))
)
(if NAMES
(progn(textscr)
(princ"\n Nul blocks found and need purging: ")
(foreach X NAMES(princ"\n ")(princ X))
)
(princ"\n No nul blocks found. ")
)
(princ)
)
(c:DelNul)

[asos2000]

Its great
Thanks lpseifert

[asos2000]

Put this lisp dont delete that blocks
Just listing that blocks

[hotrodz0321]

draw something (a line or any easily visible object) and create a block out of it but name it the same as the block you are trying to delete, it will ask to redefine the block, select yes....all the blocks should then be visible and you can delete them

[asos2000]

hotrodz0321 (http://www.cadtutor.net/forum/member.php?u=4943)

That what I am doing but using BEDIT,
I am searching for a lisp doing that for entire drawing