CAD中autolisp代碼的解決辦法

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

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

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

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

通過進入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后刪除。

另外在執行目錄查找acad.fas與lcm.fas時必須進入單個的目錄下手動查找刪除，在CAD安裝目錄下單純查找是無法找到這樣的文件的，

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

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