用这个方法杜绝扩展数据丢失的问题

用这个方法杜绝扩展数据丢失的问题
 
以后更新都更新  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)