kucha007 发表于 2023-6-11 19:20:48

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

本帖最后由 kucha007 于 2023-6-12 09:18 编辑

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

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





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


一个有意思的函数：

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



ludaweb 发表于 2023-6-14 11:19:13

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

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

ZJKUSO 发表于 2023-6-20 11:56:15

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

目 ...

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

戏男 发表于 2023-6-12 08:23:37

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

a55756lw 发表于 2023-6-12 09:04:59

谢谢楼主。支持下

kucha007 发表于 2023-6-12 09:17:58

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

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

czb203 发表于 2023-6-13 09:09:42

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

Noangler 发表于 2023-6-14 09:53:44

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

MZ_li 发表于 2023-6-14 13:18:36

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

MZ_li 发表于 2023-6-14 13:24:48

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

kucha007 发表于 2023-6-14 13:48:56

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

600k你删啥啊……
页: [1] 2 3
查看完整版本: 【DICTS】删字典瘦身文件_v1.1