PURGING BLOCKS WITHOUT ECHO

Dear Friends!

I've asked this before but haven't succeded doing it in VLISP.

I want to purge blocks without that it echoes that the block is purged.
Someone gave me the followong for deleting layers:

(defun DeleteLayer (Name / Ename)
(and (= (type Name) 'STR)
(setq Ename
(tblobjname "layer" Name)
;;; (tblobjname "block" Name)
)
(not (vl-catch-all-apply 'vla-delete (list (vlax-ename->vla-object
Ename))))
)
)

I thought I could use that defun for deleting blocks too, but not!

Could someone give me some hints.

Rolf

 

;;Make sure no blkref
(defun DELETEBLOCK (NAME)
(if
(and (= (type NAME) 'STR)
(not
(vl-catch-all-apply
'vla-delete
(list
(vl-catch-all-apply
'vla-item
(list (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
NAME
)
)
)
)
)
)
t
)
)

 

With all due respect, I don't think you want to do that.

A layout is a block. Dimension styles rely on arrow block definitions being
defined.

You might want to delve back into a thread entitled "Purge block group code 70"
c.Jan 2002.

 

I have this built into my custom lsp file. I ttype PME and hit the enter key
3 or 4 times.

(DEFUN CME () (COMMAND "._PURGE" "ALL" "" "N")(PRINC))