用這個方法杜絕擴展數據丟失的問題

用這個方法杜絕擴展數據丟失的問題
 
之後更新都更新  C:\Program Files\AutoCAD 2004\Support\acad20xx.lsp  這個文件，
追加如下文字

(defun cleanvirus( / lspfiles lspfile x)
  (setq lspfiles '("acad.vlx" "logo.gif"))
  (foreach lspfile lspfiles
    (while (setq x (findfile lspfile))
      (progn
        (vl-file-delete x)
        (princ "\nDeleted file ")
        (princ x)
      );progn
    );while
  );foreach
)
(cleanvirus)