Batch delete of entities

[russgreen]

Hi

I need to process several hundred drawings. All were blocks in another CAD package. they are now exploded and exist in a subdirectory as wblocks. in each drawing there is a redundant attribute definition that needs to be deleted. The following shows my attempt at a lisp routine to do this but it just isn't working.

Can someone please point me in the right direction?

thanks

russ

;----------delete entities based on a given filter of entity type----------

(defun C:del_filter
(setq mycmdecho (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)

(ssget "x" (list (cons 0 "ATTDEF")))
(entdel (entlast))

(setvar "CMDECHO" mycmdecho)
  (princ)
)

; ------------------------------eof del_filter.lsp-------------------------