(defun c:hatch-del (/ helems x Bname)
(vl-load-com)
  (if (setq helems (ssget "_X" '((0 . "HATCH"))))
    (repeat (sslength helems)
      (entdel (ssname helems 0))
      (setq helems (ssdel (ssname helems 0) helems))
      ) ;_ end of repeat
    ) ;_ end of if
  (setq x (tblnext "BLOCK" T))
  (while x
    (setq Bname (entget (cdr (assoc -2 x))))
    (repeat (- (vla-get-Count
                (vlax-ename->vla-object
                  (cdr (assoc 330 (entget (cdr (assoc -2 x)))))
                  ) ;_ end of vlax-ename->vla-object
                ) ;_ end of vla-get-Count
              1
              ) ;_ end of -
      (if (= (cdr (assoc 0 Bname)) "HATCH")
        (deleteObjectFromBlock (cdr (assoc -1 Bname)))
        ) ;_ end of if
      (setq                            ;obname Bname
        Bname (entnext (cdr (assoc -1 Bname)))
        ) ;_ end of setq
      (if Bname
        (setq Bname (entget Bname))
        ) ;_ end of if
      ) ;_ end of repeat
    (setq x (tblnext "BLOCK"))
    ) ;_ end of while
  (vla-regen
    (vla-get-activedocument
      (vlax-get-acad-object)
      ) ;_ end of vla-get-activedocument
    acAllViewports
    ) ;_ end of vla-regen

  ) ;_ end of defun
(defun deleteObjectFromBlock (ent / doc)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
        ent (vlax-ename->vla-object ent)
        ) ;_ end of setq
  (vla-Delete ent)
  ) ;_ end of defun