CAD文件很大,删掉很多东西后还是很大
发布网友
发布时间：2022-04-22 22:07
共5个回答
热心网友
时间：2023-07-10 06:30
1、可以将保存的版本提高一点
2、可以直接缩小
.在图纸界面输入-W命令，空格键会出现一下界面
输入要保存的文件名，空格键，出现一下界面
.按*号键，回车键，注意不是空格了。好了，就可以看到CAD变小了一半
热心网友
时间：2023-07-10 06:30
用清理，pu 命令
用W命令，把你看到的图框选中，抠出来另存，这样一般就会小很多，因为很多隐藏，冻结的图层都不跟着带出来了。
热心网友
时间：2023-07-10 06:31
用这个后，再保存会瘦身的。
热心网友
时间：2023-07-10 06:31
有个lisp程序就行。程序如下：
(defun C:dicts ( / xdoc xdicts xi xc xii xlst xname xnl xhl myGetCount)
(defun myGetCount ( xd xn / xitem errobj)
(setq xitem (vla-item xd xn) errobj (vl-catch-all-apply 'vla-get-count (list xitem)))
(if (vl-catch-all-error-p errobj)
"#n/a"
(itoa errobj)
)
) ; end of myerr()
(vl-load-com)
(textscr)
(command "Undo" "c" "n")
(setq xdoc (vla-get-ActiveDocument (vlax-get-Acad-Object))
xdicts (vla-get-dictionaries xdoc)
xdictlist (entget (namedobjdict))
xi 0 xc (length xdictlist) xii 0 xnl nil xhl nil
)
(while (< xi xc) ; for each element in xdictlist, the dictionary list
(if (= (car (setq xlst (nth xi xdictlist))) 3)
(progn
(setq xii (1+ xii) xi (1+ xi))
(princ (strcat (itoa xii) ". \"" (setq xname (cdr xlst)) "\" " (myGetCount xdicts xname) "\n"))
(setq xnl (cons xname xnl) xhl (cons (cdr (nth xi xdictlist)) xhl))
) ; end of progn(it's a dictionary item)
) ; end of if(it's a dictionary item)
(setq xi (1+ xi))
) ; end of while(each element in dictionary list)
(princ (strcat "\nActiveDocument.Dictionaries.Count=" (itoa (vla-get-count xdicts)) "\n"))
(initget 6) ; no zero or negative value allowed
(setq xnl (reverse xnl) xhl (reverse xhl) xi (getint "\nWhich one to REMOVE by index above? <Exit>: "))
(if (and xi (<= xi xii)) (entdel (nth (1- xi) xhl)))
(command "Undo" "a")
(princ)
) ; end of (C:dicts)
(C:dicts)
(princ "\nYou can type command of DICTS to go again.")
(princ)
复制以上语句，保存到记事本，然后改记事本后缀为 .lsp，保存。可以看到，变成CAD安装目录里的常用的图标了。
然后打开CAD文件，输入AP命令，找到这个文件，然后点加载，然后点关闭。
这时候CAD会弹出来一个CAD文本对话框。
大概是这样的
命令: 1. "ACAD_CIP_PREVIOUS_PRODUCT_INFO" #n/a
2. "ACAD_COLOR" 0
3. "ACAD_DETAILVIEWSTYLE" 1
4. "ACAD_GROUP" 0
5. "ACAD_LAYOUT" 353445
6. "ACAD_MATERIAL" 3
7. "ACAD_MLEADERSTYLE" 1
8. "ACAD_MLINESTYLE" 1
9. "ACAD_PLOTSETTINGS" 0
10. "ACAD_PLOTSTYLENAME" 2
11. "ACAD_SCALELIST" 33
12. "ACAD_SECTIONVIEWSTYLE" 1
13. "ACAD_TABLESTYLE" 1
14. "ACAD_VISUALSTYLE" 25
15. "AcDbVariableDictionary" 7
16. "ASE_INDEX_DICTIONARY" 1
17. "TCH_DBCONFIG" #n/a
18. "TWT_GROUPIDCONFIG" #n/a
每一行末尾都有个数字，找到数字很大的那一行，我的是5，一般都是在前几行。然后输入行号，回车，然后关闭对话框。
这时候CAD文件就会变小一部分。然后可以再输入PU命令，可以看到有一大堆东西可以清理掉了。清理完之后保存，你会发现CAD图纸神奇的从十几M，几十M，甚至上百M变成几M甚至几百K。
又发现新的办法了，更简单。
直接命令行输入(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
软后PU清理一下。搞定。
热心网友
时间：2023-07-10 06:32
