两行lisp代码快速高效清理CAD图纸大小

周站长 图文教程24921字数 525阅读1分45秒阅读模式
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。这边完成了插件创建。

两行lisp代码快速高效清理CAD图纸大小

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

两行lisp代码快速高效清理CAD图纸大小 两行lisp代码快速高效清理CAD图纸大小 两行lisp代码快速高效清理CAD图纸大小

你日常工作中,还有哪些经常用到的命令组合。还有什么是你想要整合和优化的命令呢?

(完)

CAD自学网公众号
微信扫一扫关注我,每天分享各种免费设计干货小技巧。
weinxin
我的微信
育设学堂服务号
微信扫一扫关注我,各种设计实战全套视频教程在线学。
weinxin
我的公众号
育设学堂建筑学院
周站长
  • 本文由 发表于 2023年4月25日 10:01:05
  • 转载请务必保留本文链接:https://www.cadzxw.com/53483.html
  • lisp
  • 清理图纸大小
育设学堂CAD课程
评论  2  访客  1  作者  1
    • c270865209
      c270865209 0

      站长,这串代码,不让复制啊

    匿名

    发表评论

    匿名网友

    :?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

    确定