;Erase anonymous groups
;CAD Studio, 2013 - www.cadstudio.cz
;
(defun C:DelGrpA ( / grp grpd)
 (setq grpd (dictsearch (namedobjdict) "ACAD_GROUP"))
 (foreach grp grpd
       (if (= (car grp) 3)
          (if (= 42 (ascii (cdr grp)))(progn
           (entdel (cdadr (member grp grpd)))
		   (princ (strcat (cdr grp) " deleted. "))
          ))
       )
  )
  (princ)
)