如何彻底进行CAD图纸清理瘦身

图纸有时候非常大,尤其是画完图的时候,ctrl+s的那一刻,打开属性,那内存,简直了。根据多年绘图经验,最好用的图纸瘦身方法是如下代码:

(dictremove (namedobjdict)”ACAD_DGNLINESTYLECOMP”)

这个方法应该很多人在用。

方法是:复制这个代码行到命令行,回车,然后再进行pu操作。

鉴于每次使用都需要复制粘贴,于是,想到了用lisp,将这行代码与其他操作整合起来。

另一种常用的清理图纸的方式是,pu+audit,即pu清理,然后核查图纸。

于是,将两个整合起来,创建了如下小程序。如此,便可以一键到位了。

(defun c:ql()

(dictremove (namedobjdict)"ACAD_DGNLINESTYLECOMP")

 (command "-purge" "a" "*" "n" "audit" "y")

  (princ "图纸瘦身完成")

)

小伙伴们,可以将上述代码,复制到一个空白的记事本文件中,然后保存退出。将记事本的文件名改为ql.lsp。这边完成了创建。

8126bbbae92b7350a2308cc14708bf66

下次需要清理图纸的时候,只要加载一下这个,命令行输入ql,便可一键搞定。

0dcb9402ed10eab417ca5a2802d6f52e

© 版权声明
THE END
喜欢就支持一下吧
点赞13 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片

    暂无评论内容