删除cad中所有图案填充方法

最新推荐文章于 2021-02-01 09:44:33 发布

gsydfly

最新推荐文章于 2021-02-01 09:44:33 发布

阅读量4.4k

点赞数

文章标签： cad 填充

本文链接：https://blog.csdn.net/gsydfly/article/details/40655519

版权

本文介绍了一个在CAD中批量删除所有图案填充的LISP函数。通过遍历图纸中的块定义，检查并删除非外部参照块中的AcDbHatch对象，实现高效清理填充图案。

摘要由CSDN通过智能技术生成

(vl-load-com)

(defun c:erase-hatch (/ adoc)

(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(vlax-for blk_def (vla-get-blocks adoc)
    (if (equal (vla-get-isxref blk_def) :vlax-false)
      (vlax-for ent blk_def
        (if (= (vla-get-objectname ent) "AcDbHatch")
          (vl-catch-all-apply
            (function
              (lambda ()
                (vla-erase ent)
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of if
        ) ;_ end of vlax-for
      ) ;_ end of if
    ) ;_ end of vlax-for
(vla-endundomark adoc)
(princ)
) ;_ end of defun