由于微點目前并不能有效地處理AutoCAD的LSP腳本病毒，為了解決這個問題，我寫了以下的代碼，以作臨時之解決辦法。

聲明：代碼僅是從文件名做出判斷是否刪除，判斷的依據(jù)依然很低級，同時其他考慮亦未能周全，所以使用過程難免會出現(xiàn)很多問題。使用前應(yīng)有必要的備份準(zhǔn)備。因使用本代碼出現(xiàn)的后果，我就不負(fù)責(zé)了。

使用辦法：將代碼保存為acad2006.lsp（以AutoCAD2006為例），文件存放在“C:Documents and Settings[用戶名]Application DataAutodeskAutoCAD 2006R16.2chsSupport”。如果安裝了cad的Express tools功能，就將代碼加入到文件“C:Program FilesAutoCAD 2006Expressacetauto.lsp”之中，以避免因病毒文件名同名造成不能正常運行的問題。

其他說明：對于已經(jīng)中毒的系統(tǒng)，使用前須先將病毒修改過的CAD文件復(fù)原。如：刪除support目錄下的acad.lsp、acaddoc.lsp、acad.rx、acadapp.lsp等文件，修復(fù)acad.mnl等菜單文件。至于圖形文件目錄里的病毒文件則可不用管，運行該代碼后就自動刪除了。

特別說明：如果CAD出現(xiàn)VBS系統(tǒng)加載失敗，命令行字符不能正確顯示，部分命令不能正常運行，請將acad.mnl文件用原安裝程序里的文件覆蓋即可恢復(fù)正常。

源代碼如下：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Created by scien.Feng
(setq dwgpath (getvar "dwgprefix"))
(setq xacad (vl-directory-files dwgpath "acad*.*" ))
(setq lenxacad (vl-list-length xacad))
(if (> lenxacad 0)
(progn
    (setq n 0)(setq n 0)(setq n 0)
    (while (> lenxacad n)
         (setq numlist (nth n xacad))
         (setq numlsp (strcat dwgpath numlist))
         (setq ext (vl-filename-extension   numlsp))
         (setq lspext (strcase ext))
         (if (not (wcmatch lspext ".FMP"))
            (progn
            (alert "即將刪除病毒文件！")
            (vl-file-delete   numlsp)
            (princ "n已刪除病毒文件:")(princ numlsp)
            )
         )
         (setq n (1+ n))
    )(terpri)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;