Delete all solid hatches

lucas3

2. (defun c:delsolhat ( / d )
   
3.     (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument (vlax-get-acad-object))))
   
4.         (if (= :vlax-false (vla-get-isxref b))
   
5.             (vlax-for o b
   
6.                 (if (and (= "AcDbHatch" (vla-get-objectname o))
   
7.                          (= "SOLID" (strcase (vla-get-patternname o)))
   
8.                          (vlax-write-enabled-p o)
   
9.                     )
   
10.                     (vla-delete o)
    
11.                 )
    
12.             )
    
13.         )
    
14.     )
    
15.     (vla-regen d acallviewports)
    
16.     (princ)
    
17. )
    
18. (vl-load-com) (princ)

(defun c:delsolhat ( / d )<br />     (vlax-for b (vla-get-blocks (setq d (vla-get-activedocument (vlax-get-acad-object))))<br />         (if (= :vlax-false (vla-get-isxref b))<br />             (vlax-for o b<br />                 (if (and (= "AcDbHatch" (vla-get-objectname o))<br />                          (= "SOLID" (strcase (vla-get-patternname o)))<br />                          (vlax-write-enabled-p o)<br />                     )<br />                     (vla-delete o)<br />                 )<br />             )<br />         )<br />     )<br />     (vla-regen d acallviewports)<br />     (princ)<br /> )<br /> (vl-load-com) (princ)

newer

用这么长吗

(command ".erase" (ssget "x" '((0 . "hatch")(2 . "SOLID"))) "")