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

luckroots

有一张奇怪的图纸，在AUTO2000的平台上通过复制或剪贴板传播，但不会自行传播，感染后

图纸文件变大，同时新增加的图元又变成了传播元；

在AUTO2006的剪贴板上可以过滤掉无用的坏信息，但是象天河这样的CAD软件绘出来的明细表

信息经过剪贴板后掉失。

从转出来的dxf格式看出，好像是从小鬼子那里传出来的。可恶！

供大家研究，请切忌传播。好在在高版本上不传播。

请版主、高手帮忙解决，能否写个软件把已经感染的图纸清理干净。

谢谢！MY EMAIL: UCKROOTS@163.COM">LUCKROOTS@163.COM

20060226

ad1q

cad病毒确实让人头疼

天龙八部

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

l19811102

这个是因为里面有大量无用的“图层过滤器”，在06版可以全部一次性删掉。可以看看打开图层管理是不是特别的慢？

图层过滤器每次复制图元（哪怕是只有一个）到另外一张图的时候，都会全部带过去，结果是越积越多。

下面这个代码可以删除所有图层过滤器。

 语法:
(LayerFiltersDelete)

  说明:

在当时图形中删除所有图层过滤器

  函数内容:

(defun LayerFiltersDelete  ()
(vl-Load-Com)
(vl-Catch-All-Apply
  '(lambda ()
    (vla-Remove (vla-GetExtensionDictionary
                 (vla-Get-Layers
                   (vla-Get-ActiveDocument
                   (vlax-Get-Acad-Object))))
                "ACAD_LAYERFILTERS")))
(princ "\n所有图层过滤器已经被删除。")
(princ)
)

njcknfy

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

luckydog20

好象有专杀看看吧

yepingting

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

董堃

管用