CAD中autolisp代碼的解決辦法

CAD中了一段LISP代碼后在每次CAD啟動(dòng)時(shí)都顯示一個(gè)小窗口顯示“程序和作者QQ：252545152…”這樣的相關(guān)提示，雖然不影響程序使用，但是感覺很不爽啊，所以要去除這段代碼的影響就得刪除它。

這是一個(gè)專門針對(duì)CAD的lisp程序，不是傳統(tǒng)意義上的病毒，因此，用諾頓、金山毒霸等是不能殺除的。它的作用機(jī)制是這樣的：某臺(tái)機(jī)器上沒有這個(gè)病毒程序，在通過網(wǎng)上鄰居拷貝別人的圖紙時(shí)，大家經(jīng)常會(huì)把整個(gè)目錄拷貝過來(lái)，如果拷貝的這個(gè)目錄中包含有acad.lsp和acadapp.lsp，你的機(jī)器就被復(fù)制了這個(gè)病毒，但是這時(shí)還沒有起作用。而當(dāng)你用CAD打開這個(gè)文件時(shí)，CAD會(huì)自動(dòng)加載該目錄下的acad.lsp，這個(gè)LISP程序會(huì)檢測(cè)你的CAD支持support目錄下是否有這兩個(gè)文件，如果沒有，它會(huì)自動(dòng)在那里創(chuàng)建他們的副本。這里就厲害了，以至于后CAD圖紙的地方最終都會(huì)產(chǎn)生這樣一些文件。

以后，在你打開別的圖紙時(shí)，它會(huì)在判斷你要打開的圖紙目錄下有沒有這兩個(gè)文件，如果沒有，它又在該目錄下創(chuàng)建這兩個(gè)文件的副本。就這樣，你的機(jī)器上的dwg文件目錄中逐步都有了這個(gè)程序。隨著別人按照目錄拷貝你的dwg文件，他們也感染上了。

如果單獨(dú)拷貝CAD圖紙，就是單純的*.dwg文件是安全的，本身圖紙是不包含進(jìn)這段代碼的。

通過進(jìn)入CAD文件夾，分別查到acad.fas,acad.lsp和acadapp.lsp,acad.mnl,acad.chw,lcm.fas后刪除；
到C:Documents and Settings(你的用戶名)Application DataAutodeskAutoCAD 2004R16.0chsSupport下(AutoCAD的版本不同2004和16有可能不同)搜索acad.fas,acad.lsp和acadapp.lsp,acad.mnl,acad.chw,lcm.fas后刪除；
全盤搜索acad.fas,acad.lsp后刪除。

另外在執(zhí)行目錄查找acad.fas與lcm.fas時(shí)必須進(jìn)入單個(gè)的目錄下手動(dòng)查找刪除，在CAD安裝目錄下單純查找是無(wú)法找到這樣的文件的，

不想進(jìn)去目錄查找可以直接輸入下面的字符到CAD命令行里面回車執(zhí)行：
(while (or (setq a (findfile “acad.fas”)) (setq a (findfile “lcm.fas”))) (vl-file-delete a))

前幾天在同事機(jī)子上拷貝圖紙，連同文件夾一起拷貝過來(lái)的，于是也感染了這段代碼，就是通過以上在命令行輸入上面這段代碼解決的，查找目錄手工刪除就比較繁瑣，還不一定查殺干凈。