如何在CAD中批量删除图案填充
由于需要在某个图层中,将所有的图案填充删除,而手工逐个删除的话工作量大而且容易出错。所以,如题所问?请强人解答。...
由于需要在某个图层中,将所有的图案填充删除,而手工逐个删除的话工作量大而且容易出错。所以,如题所问?请强人解答。
展开
6个回答
推荐于2017-11-24 · 知道合伙人软件行家
关注
展开全部
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】就批量删除填充
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询