删除填充

OWEN7

   怎么写一个仅删除填充的代码， 用来删除柱子的填充，。。。。比如命令为 EH， 框选，填充 即可被删除， 注意要支持 SOLID填充。

hehoubin

(defun c:epat (/ ss)
     (setvar "cmdecho" 0) ;指令执行过程不响应
      (while (setq ss (ssget":s"  '((0 . "HATCH"))))
     (princ (strcat "\n-->共删除了" (itoa (sslength ss)) "个填充。"))  
     (command "_.ERASE" ss ""))
    (princ)
   )

ZZXXQQ

(defun c:epat (/ ss)
(setvar "cmdecho" 0) ;指令执行过程不响应
(while (setq ss (ssget":s"  '((0 . "HATCH,SOLID"))))
  (command "_.ERASE" ss ""))
  (princ (strcat "\n-->共删除了" (itoa (sslength ss)) "个填充。")
)  
(princ)
)