DWG图纸清理lsp

失眠怪兽

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

小毛草

2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸
   
3. (defun c:cca ()
   
4. (setvar "cmdecho" 0)
   
5. (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
   
6. (command "-scalelistedit" "reset" "y" "e")
   
7. (command "_purge" "all" "" "n")
   
8. (command "audit" "y")
   
9. (setvar "cmdecho" 1)
   
10. (princ)
    
11. )

;;;;;;;;;;;;;;;;;;;;;;;;;;;清理图纸<br /> (defun c:cca ()<br /> (setvar "cmdecho" 0)<br /> (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")<br /> (command "-scalelistedit" "reset" "y" "e")<br /> (command "_purge" "all" "" "n")<br /> (command "audit" "y")<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )

用我这个吧，包治百病！

MZ_li

就是PU清理啊

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

(defun CAD_START_PURGE ()<br />   (princ "\n为保证图形质量，自动执行清理修复程序...")<br />   (setvar "cmdecho" 0)  ; 禁用命令回显<br />   (setvar "AUDITCTL" 0) ; 禁用审计报告详情<br />   (princ "\n清理程序不会清理图层、字体、标注样式，如需清理请手动清理")<br />   (dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP") ; 移除DGN线型组件字典<br />   (setvar "LAYEREVALCTL" 0) ; 禁用图层评估<br />   (setvar "LAYERNOTIFY" 0)  ; 禁用图层通知<br />   ; 清理项目列表（块/组/线型/材料/多重引线样式/形状/多线样式/表格样式/视觉样式）<br />   (setq pur_lst (list "B" "G" "LT" "MA" "MU" "SH" "M" "T" "V" ))<br />   ; 执行清理命令<br />   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)<br />   (vl-cmdf "-purge" "Z") ; 清理零长度几何图形<br />   (vl-cmdf "-purge" "E") ; 清理空文字对象<br />   (vl-cmdf "-purge" "R" "*" "n") ; 清理注册应用程序<br />   ; 再次执行清理命令确保彻底清理<br />   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)<br />   (vl-cmdf "-purge" "Z")<br />   (vl-cmdf "-purge" "E")<br />   (vl-cmdf "-purge" "R" "*" "n")<br />   ; 第三次执行清理命令确保彻底清理<br />   (mapcar '(lambda(p) (vl-cmdf "_.-purge" (strcat "_" p)  "*" "_N")) pur_lst)<br />   (vl-cmdf "-purge" "Z")<br />   (vl-cmdf "-purge" "E")<br />   (vl-cmdf "-purge" "R" "*" "n")<br />   ; 执行审计修复命令<br />   (vla-AuditInfo (vla-get-ActiveDocument (vlax-get-acad-object)) :vlax-true)<br />   ; 执行比例列表编辑命令，删除所有比例列表项<br />   (vl-cmdf "-scalelistedit" "d" "*" "e")<br />   ; 恢复变量设置<br />   (setvar "ANNOALLVISIBLE" 0)<br />   (setvar "cmdecho" 1) ; 恢复命令回显<br />   (princ "\n清理完成\n") ; 打印清理完成信息<br />   (princ)<br /> )<br />

听见天晴

和系统自带的PU有啥不一样啊

F海市蜃楼

貌似有缺陷

自贡黄明儒

听见天晴 发表于 2024-7-6 21:31
和系统自带的PU有啥不一样啊

PU清理不彻底

xiewp123

和系统自带的PU有啥不一样啊

wangsr

CAD2020  错误: 输入的字符串有缺陷

MZ_li

能不开图批量清理后保存吗？

weimeng555

MZ_li 发表于 2024-7-7 08:38
就是PU清理啊

从代码来看，话说为什么要PU清理那么多次？这个意义是有什么意义？

听见天晴

自贡黄明儒 发表于 2024-7-6 22:50
PU清理不彻底

这个清理的更彻底吗我看程序里PU了几次 。。。有啥不一样吗？还是就是那些文字 标注样式没有清理，那些一般不怎么站空间吧？