Lisp for selecting hatches based on scale

So I should be able to erase the red above since it seems to be included in the ssget for the hatch.?

Correct , I modified my earlier post due to a mistake of the variable name . please modify your codes accordingly

Okay, got it corrected with the new code. Why does it select and delete the hatches upon closure of the appload dialog box instead of just loading the routine.

Okay, got it corrected with the new code. Why does it select and delete the hatches upon closure of the appload dialog box instead of just loading the routine.

Because you have an extra bracket before the if function that ends the routine and leaves the rest of the codes to work outside the program

Because you have an extra bracket before the if function that ends the routine and leaves the rest of the codes to work outside the program

(Defun C:ArchWipe (/ sset)
(command "-LAYER" "U" "*" "")
(Command "-Layer" "On" "*" "")
(Command "-Layer" "Thaw" "*" "On" "*" "")
(command "-layer" "U" "*" "T" "*" "set" "0" "")

 (vlax-for Layout (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
   (if	(/= (vla-get-Name Layout) "Model")
     (vla-Delete Layout)
   )
 )
[color="red"])[/color]
(if (setq sset (ssget "_X" '((0 . "HATCH"))))
 (command "_.erase" sset "")
 )
(command "-xref" "D" "*" "")
(command "-purge" "all" "*" "n")
)

Sweet!!!! I removed that bracket up there like you said and everything seems to work the way I would expect it to. Excellent work! I offer you one hundred imaginary beers! Cheers!

Same to you ttray33y! You were the first to jump on it. I appreciate the help.

Sweet!!!! I removed that bracket up there like you said and everything seems to work the way I would expect it to. Excellent work! I offer you one hundred imaginary beers! Cheers!
 
 you are welcome , all credit goes to ttray33y .
 
Cheers 

.. a ttray33y approach was slightly modified by me (added option to operate with Scale of user selected hatch)

Select Hatch by Scale - HS.lsp