【DICTS】删字典瘦身文件_v1.1

kucha007

一个经典程序，用于清理字典，减少文件大小。网上有很多教程，就不展开说了。

说一下改了那些：
1-首先是汉化，然后把网上的两步合并成一步，程序里面直接就PU了
2-只把可以计数和数量大于0的字典列出，免得太多无用信息，输出的排版也做了优化
3-提示选择要删除的字典时，回车默认就是最大的那个，改完之后基本上无脑空格/回车就行了
4-如果输入超出字典列表之外的值，就会提示重新输入
5-删除字典以后还会重置比例列表、清理注册程序和清理全部对象，清理完只要保存文件就好了。

1. (dictremove (namedobjdict) (nth (1- Pos) *DictsLst*));删除指定的字典
   
2. (command "_.-scalelistedit" "_R" "_Y" "_E");重置视口比例
   
3. (command "_.-PUrge" "_R" "*" "_N");删除注册程序
   
4. (vla-PurgeAll *DOC*);清理全部
   

(dictremove (namedobjdict) (nth (1- Pos) *DictsLst*));删除指定的字典<br /> (command "_.-scalelistedit" "_R" "_Y" "_E");重置视口比例<br /> (command "_.-PUrge" "_R" "*" "_N");删除注册程序<br /> (vla-PurgeAll *DOC*);清理全部<br />

一个有意思的函数：

1. ;用特殊符号补齐字符串,强制满足位数，Flag为T时补在前面
   
2. (defun K:AddDel4STR (Del Flag STR Len)
   
3.   (repeat (- Len (strlen STR))
   
4.     (if Flag
   
5.         (setq STR (strcat Del STR))
   
6.         (setq STR (strcat STR Del))
   
7.     )
   
8.   )
   
9.   STR
   
10. )
    

;用特殊符号补齐字符串,强制满足位数，Flag为T时补在前面<br /> (defun K:AddDel4STR (Del Flag STR Len) <br />   (repeat (- Len (strlen STR)) <br />     (if Flag<br />         (setq STR (strcat Del STR))<br />         (setq STR (strcat STR Del))<br />     )<br />   )<br />   STR<br /> )<br />

ludaweb

前段时间我也弄过一个，是带对话框面板的，可多选，写完了丢一边，也没用过。看到这个突然想起来了。

目前工作环境遇到大部分文件下面这行命令就够用了：
(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")

ZJKUSO

ludaweb 发表于 2023-6-14 11:19
前段时间我也弄过一个，是带对话框面板的，可多选，写完了丢一边，也没用过。看到这个突然想起来了。

目 ...

试试看，有些图纸卡顿需要清理

戏男

多谢楼主，对我太有用了，我的CAD档太大，用了这个就变小了

a55756lw

谢谢楼主。支持下

kucha007

戏男 发表于 2023-6-12 08:23
多谢楼主，对我太有用了，我的CAD档太大，用了这个就变小了

经典程序改写，很高兴帮到你

czb203

大佬最近高产啊，感谢热心分享

Noangler

谢谢分享，请问一下这字典是什么呀

MZ_li

不会对原图纸有任何改动吗？无损瘦身吗？

MZ_li

越删越大怎么回事？
原文件600K，用完620K

kucha007

MZ_li 发表于 2023-6-14 13:24
越删越大怎么回事？
原文件600K，用完620K

600k你删啥啊……