如何在CAD中批量删除图案填充

Question

如题所述

Answer 1

autoCAD的【快速选择】功能，快速选择填充，然后命令【E】删除对象。
利用autolisp功能，快速的删除填充，速度快。
(defun C:tes ( / &c8 &k1 &kw1)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (null vlax-dump-object) (vl-load-com) )
(if (and
(setq &c8 (entsel "\n请选择参考图层或默认所有图层"))
(setq &c8 (vla-get-layer (vlax-ename->vla-object (car &c8))))
)
(setq &kw1 (ssget (list '(0 . "HATCH") (cons 8 &c8))))
(setq &kw1 (ssget (list '(0 . "HATCH"))))
)
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(entdel &k1)
)
(prin1)
);复制到记事本，以【.lsp】为后缀命名，打开autoCAD，autolisp加载，命令【TES】就批量删除填充

Answer 2

把图层删除了吧