明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 514|回复: 12

DWG图纸清理lsp

[复制链接]
发表于 2024-7-6 19:20 | 显示全部楼层 |阅读模式
本帖最后由 失眠怪兽 于 2024-7-6 20:02 编辑

清理项目块/组/线型/材料/多重引线样式/形状/多线样式/表格样式/视觉样式减少文件大小

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 2明经币 +2 金钱 +5 收起 理由
bssurvey + 1 赞一个!
tigcat + 1 + 5 很给力!

查看全部评分

发表于 2024-7-9 15:28 | 显示全部楼层
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸
  2. (defun c:cca ()
  3. (setvar "cmdecho" 0)
  4. (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
  5. (command "-scalelistedit" "reset" "y" "e")
  6. (command "_purge" "all" "" "n")
  7. (command "audit" "y")
  8. (setvar "cmdecho" 1)
  9. (princ)
  10. )


用我这个吧,包治百病!
回复 支持 2 反对 0

使用道具 举报

发表于 2024-7-7 08:38 | 显示全部楼层
就是PU清理啊

  1. (defun CAD_START_PURGE ()
  2.   (princ "\n为保证图形质量,自动执行清理修复程序...")
  3.   (setvar "cmdecho" 0)  ; 禁用命令回显
  4.   (setvar "AUDITCTL" 0) ; 禁用审计报告详情
  5.   (princ "\n清理程序不会清理图层、字体、标注样式,如需清理请手动清理")
  6.   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP") ; 移除DGN线型组件字典
  7.   (setvar "LAYEREVALCTL" 0) ; 禁用图层评估
  8.   (setvar "LAYERNOTIFY" 0)  ; 禁用图层通知
  9.   ; 清理项目列表(块/组/线型/材料/多重引线样式/形状/多线样式/表格样式/视觉样式)
  10.   (setq pur_lst (list "B" "G" "LT" "MA" "MU" "SH" "M" "T" "V" ))
  11.   ; 执行清理命令
  12.   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)
  13.   (vl-cmdf "-purge" "Z") ; 清理零长度几何图形
  14.   (vl-cmdf "-purge" "E") ; 清理空文字对象
  15.   (vl-cmdf "-purge" "R" "*" "n") ; 清理注册应用程序
  16.   ; 再次执行清理命令确保彻底清理
  17.   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)
  18.   (vl-cmdf "-purge" "Z")
  19.   (vl-cmdf "-purge" "E")
  20.   (vl-cmdf "-purge" "R" "*" "n")
  21.   ; 第三次执行清理命令确保彻底清理
  22.   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)
  23.   (vl-cmdf "-purge" "Z")
  24.   (vl-cmdf "-purge" "E")
  25.   (vl-cmdf "-purge" "R" "*" "n")
  26.   ; 执行审计修复命令
  27.   (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-true)
  28.   ; 执行比例列表编辑命令,删除所有比例列表项
  29.   (vl-cmdf "-scalelistedit" "d" "*" "e")
  30.   ; 恢复变量设置
  31.   (setvar "ANNOALLVISIBLE" 0)
  32.   (setvar "cmdecho" 1) ; 恢复命令回显
  33.   (princ "\n清理完成\n") ; 打印清理完成信息
  34.   (princ)
  35. )
发表于 2024-7-6 21:31 | 显示全部楼层
和系统自带的PU有啥不一样啊
发表于 2024-7-6 21:52 | 显示全部楼层
貌似有缺陷
发表于 2024-7-6 22:50 来自手机 | 显示全部楼层
听见天晴 发表于 2024-7-6 21:31
和系统自带的PU有啥不一样啊

PU清理不彻底
发表于 2024-7-7 01:10 | 显示全部楼层

和系统自带的PU有啥不一样啊
发表于 2024-7-7 08:22 | 显示全部楼层
CAD2020  错误: 输入的字符串有缺陷
发表于 2024-7-7 08:36 | 显示全部楼层
能不开图批量清理后保存吗?
发表于 2024-7-7 11:30 | 显示全部楼层

从代码来看,话说为什么要PU清理那么多次?这个意义是有什么意义?
发表于 2024-7-7 11:45 | 显示全部楼层

这个清理的更彻底吗我看程序里PU了几次 。。。有啥不一样吗?还是就是那些文字 标注样式没有清理,那些一般不怎么站空间吧?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-7-13 04:47 , Processed in 0.930732 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表