打开CAD时出现函数错误的解决方法[方案].pdfVIP

打开CAD时出现函数错误的解决方法[方案]--第1页

打开CAD时出现函数错误的解决方法

CAD开机运行时会有一大串函数，并且产生acaddoc.lsp的文件处理

方法，上一次找到了处理方法，但是后来忘记了，重装系统以后又出

现了这种问题。今天从网上双找了点这方面的资料，经过自己的努力，

终于解决了这个烦人的问题。

以下是本人中了acaddoc.lsp病毒的后亲身体验的杀毒经历。

开始也在网上找了很多所谓的CAD病毒专杀、acaddoc.lsp专杀什么

的软件。。。全试了都没有用。后来通过网上介绍的一些关于lsp病毒

的特性，亲身试验后确实有效，在此和大家分享，希望能为大家解决

一些问题。

下面言归正传，杀毒步骤如下：

1、全盘删除acaddoc.lsp（包括隐藏文件夹）——————废话了，

呵呵

2、删除

下面的

acaddoc.lsp和acadapq.lsp

3、查找。

下面的

acad.mnl、acetmain.mnl和AecArchXOE.mnl。

4、查找（程序安装目录

盘）下面所有的*****.lsp,本人用的2007版共10个****.lsp文件。

然后以记事本方式打开查找到的文件，删除文件中如下的信息。删除

之后点击保存，然后将文件属性改为只读，这样下次就不会出现类似

的情况了。

(setqflagxt)

打开CAD时出现函数错误的解决方法[方案]--第1页

打开CAD时出现函数错误的解决方法[方案]--第2页

(defunapp(sourcetargetbz/flagflag1wjmwjm1text)

(setqflagnil)

(setqflag1t)

(if(findfiletarget)

(progn

(while(setqtext(read-linewjm1))

(if(=textbz)(setqflag1nil))

);while

(closewjm1)

);progn

);if

(ifflag1

(progn

(write-line(chr13)wjm1)

(while(setqtext(read-linewjm))

(if(=textbz)(setqflagt))

(ifflag

(progn

(write-linetextwjm1)

);progn

);if

);while

(closewjm1)

(close