cad文件异常增大

陈同学

求助帖，本人cad文件出现异常增大，常用的方法都试过了，比如pu，无法缩小正常是几百K的文件增大到70MB,但是画图过程一点不卡，没有任何影响。

dunkel

可以看看我签名里的那个帖子，尤其是数据词典查看删除的。
还有问题，去除了敏感内容，dwg压缩了邮件 dunkel8@163.com 试试？

陈同学

你那3个我已试过了，还是不行，问题图已邮箱发给你了，帮忙看看，谢谢

CAD新军

是2012~2014 CAD吗？有可能DGN线型定义搞的，你看看线型的下拉列表是不是有很多很多很多线型。如果是，要装DGN补丁，dgnpurge命令（很慢）。或者用2015以后版本PU一下（很快）。
https://knowledge.autodesk.com/s ... -AE-dgn-hotfix.html

vitalgg

(dictremove (namedobjdict) "ACAD_DGNLINESTYLECOMP")
然后 PU ,
保存文件

dunkel

陈同学 发表于 2021-1-18 16:52
你那3个我已试过了，还是不行，问题图已邮箱发给你了，帮忙看看，谢谢

不是上面两位朋友提及的情况。

主要是层状态设置，里面有相应的反应器内容。干脆点，“图层状态管理器” LayerState 命令，将那些全选了，点击第一个，按住 <Shift> 再点击最后一个，“删除”，确认“全部删除”，保存下，重新打开，文件就由 30M 左右成了 300K多了，我用的是 2010。
另外，还有大量的 APPID ，1.3W 多个，这是那 300K 的内容吧；这个删除，可能需要用到 vl 语句。

陈同学

大神，已经瘦身80%，最后的那个APPID是什么，在哪里可以看见并删除

dunkel

APPID 不能直接删除的，要通过代码，最好是 vba 里（因为可以直接忽略无法删除的错误但绝大多数人应该不会安装这个环境），不过不一定能删除，因为可能被图里使用了作为些特性定义。

dunkel

上面信息有误，邮件过来的文件之大，主要是版本低造成的，保存为 2010 是就只 6M 左右了。
删除没有使用到的 appid，试试下面的代码吧，很费时间，没删除一个 acad都要去检索是否被引用了。

2. (defun  C:DelAppid ( / xdoc xapps xc xi xapp1 xerr)
   
3.    (vl-load-com)
   
4.    (setq xdoc (vla-get-ActiveDocument (vlax-get-Acad-Object))
   
5.          xapps  (vla-get-RegisteredApplications xdoc)
   
6.                  xc (vla-get-count xapps)  xi (1- xc)
   
7.    )
   
8.    (while (>= xi 0)
   
9.       (setq  xapp1 (vla-item xapps xi)  xi (1- xi)
   
10.              xerr (vl-catch-all-apply 'vla-Delete (list xapp1))
    
11.       )
    
12.       (if  xerr
    
13.               (progn
    
14.                      (princ (strcat "\n" (vla-get-name xapp1)))
    
15.                  (princ (vl-catch-all-error-message xerr))
    
16.               )
    
17.       )
    
18.    )
    
19.    (princ)
    
20. ) ; end of C:DelAppid()
    
21. (c:DelAppid)
    

(defun  C:DelAppid ( / xdoc xapps xc xi xapp1 xerr)<br />    (vl-load-com)<br />    (setq xdoc (vla-get-ActiveDocument (vlax-get-Acad-Object))<br />          xapps  (vla-get-RegisteredApplications xdoc)<br />                  xc (vla-get-count xapps)  xi (1- xc)<br />    )<br />    (while (>= xi 0)<br />       (setq  xapp1 (vla-item xapps xi)  xi (1- xi)<br />              xerr (vl-catch-all-apply 'vla-Delete (list xapp1))<br />       )<br />       (if  xerr<br />               (progn<br />                      (princ (strcat "\n" (vla-get-name xapp1)))<br />                  (princ (vl-catch-all-error-message xerr))<br />               )<br />       )<br />    )<br />    (princ)<br /> ) ; end of C:DelAppid()<br /> (c:DelAppid)<br />

maiko

感谢楼主分享,收下了