luckroots 发表于 2007-2-26 11:59:00

[求助]一张怪图，请版主、高手帮忙解决

本帖最后由 作者 于 2007-2-26 15:09:34 编辑 <br /><br /> <p>有一张奇怪的图纸，在AUTO2000的平台上通过复制或剪贴板传播，但不会自行传播，感染后</p><p>图纸文件变大，同时新增加的图元又变成了传播元；</p><p>在AUTO2006的剪贴板上可以过滤掉无用的坏信息，但是象天河这样的CAD软件绘出来的明细表</p><p>信息经过剪贴板后掉失。</p><p>从转出来的dxf格式看出，好像是从小鬼子那里传出来的。可恶！</p><p>供大家研究，请切忌传播。好在在高版本上不传播。</p><p>请版主、高手帮忙解决，能否写个软件把已经感染的图纸清理干净。</p><p>谢谢！MY EMAIL: <a href="mailto:LUCKROOTS@163.COM">LUCKROOTS@163.COM</a></p><p>20060226</p>

ad1q 发表于 2007-3-1 23:37:00

cad病毒确实让人头疼

天龙八部 发表于 2007-3-2 14:46:00

哈哈哈哈,中了CAD病毒了吧!把所有的不是程序目录里面的LISP都删光掉,

l19811102 发表于 2007-3-5 23:23:00

<p>这个是因为里面有大量无用的“图层过滤器”，在06版可以全部一次性删掉。可以看看打开图层管理是不是特别的慢？</p><p>图层过滤器每次复制图元（哪怕是只有一个）到另外一张图的时候，都会全部带过去，结果是越积越多。</p><p>下面这个代码可以删除所有图层过滤器。</p><p>&nbsp;语法:<br/>(LayerFiltersDelete)<br/><br/></p><div class="FunctionBox">&nbsp;&nbsp;说明:</div><p><br/>在当时图形中删除所有图层过滤器<br/><br/></p><div class="FunctionBox">&nbsp;&nbsp;函数内容:</div><p><br/>(defun LayerFiltersDelete&nbsp;&nbsp;()<br/>(vl-Load-Com)<br/>(vl-Catch-All-Apply<br/>&nbsp;&nbsp;'(lambda ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;(vla-Remove (vla-GetExtensionDictionary<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-Get-Layers<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-Get-ActiveDocument<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vlax-Get-Acad-Object))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"ACAD_LAYERFILTERS")))<br/>(princ "\n所有图层过滤器已经被删除。")<br/>(princ)<br/>)</p>

njcknfy 发表于 2007-4-29 09:50:00

我也遇到了同样的情况,使用四楼的代码试了一下,很管用

luckydog20 发表于 2007-4-30 14:18:00

好象有专杀看看吧

yepingting 发表于 2007-5-4 19:46:00

呵呵，这个倒没听说过，杀杀吧先

董堃 发表于 2008-5-5 21:32:00

管用
页: [1]
查看完整版本: [求助]一张怪图，请版主、高手帮忙解决