Topic: Deleting a Hatch or Solids in a block using LISP

[AVCAD]

Maybe someone here can help me out with this...

I am so tired of having to go through drawings and qselect and blockedit objects that have hatches that are on layer 0 and cant be deleted or easily changed to a different layer so I can change the color to have it print "lighter"

SO...I am trying to create this LISP routine to basically just select all Hatches, Solids and Wipeouts in the drawings and delete them, which works but I need to do this to blocks as well which is where I am running into the problem.

Code: [Select]

(defun c:shf ()
(wo)
  (ht)
    (sd)
  (delbht)
(princ "\nAll Hatches, Wipeout & Solids have been deleted!")
(princ)
  )

(defun wo (/)
   (Setq wo (ssget "_x" '((0 . "WIPEOUT"))))
(command "_.erase" wo "")
)

(defun ht (/)
   (Setq ht (ssget "_x" '((0 . "HATCH"))))
(command "_.erase" ht "")
)

(defun sd (/)
   (Setq sd (ssget "_x" '((0 . "SOLID"))))
(command "_.erase" sd "")
)

(defun delbht ()
   (setq Block1 (tblnext "BLOCK" T))
   (setq Bname1 (cdr (assoc -2 Block1)))
(Fixh Bname1)
    (princ)
);defun
;;-----------------------
(defun Fixh ()
  (Setq ht2 (ssget "_x" '((0 . "HATCH"))))
(command "_.erase" ht2 "")
(princ)
);defun
Any help would be greatly appreciated

[kpblc]

As example to erase wipeout on all file: http://autolisp.ru/wp-content/uploads/2013/11/erase-wipeout.lsp

[Tharwat]

Try this UNTESTED routine .

Code - Auto/Visual Lisp: [Select]

1. (defun c:Test (/ doc)
2.   (vlax-for bks (vla-get-blocks (setq
3.                       doc (vla-get-ActiveDocument (vlax-get-acad-object))
4.                     )
5.                   )
6.     (if (and (eq :vlax-false (vla-get-islayout bks))
7.              (eq :vlax-false (vla-get-isXref bks))
8.         )
9.       (vlax-for obj bks
10.         (if (and (wcmatch (vla-get-objectname obj)
11.                           "AcDbSolid,AcDbHatch,AcDbWipeout"
12.                  )
13.                  (vlax-write-enabled-p obj)
14.             )
15.           (vla-delete obj)
16.         )
17.       )
18.     )
19.   )
20.   (vla-regen doc AcAllViewports)
21.   (princ)
22. )(vl-load-com)
23.  
24.