20 lines
524 B
Common Lisp
20 lines
524 B
Common Lisp
;;;MODE1.LSP
|
|
(setvar "modemacro"
|
|
(strcat
|
|
"L:$(substr,$(getvar,clayer),1,8)"
|
|
"$(substr, ,1,$(-,8,$(strlen,$(getvar,clayer)))) "
|
|
"<.."
|
|
"$(if,$(eq,$(getvar,dwgname),UNNAMED),"
|
|
"UNNAMED,"
|
|
"$(substr,$(getvar,dwgname),"
|
|
"$(-,$(strlen,$(getvar,dwgprefix)),7),"
|
|
"$(strlen,$(getvar,dwgname))"
|
|
")"
|
|
")"
|
|
">"
|
|
"$(if,$(getvar,orthomode), O, )"
|
|
"$(if,$(getvar,snapmode), S, )"
|
|
"$(if,$(getvar,tabmode), T, )"
|
|
"$(if,$(and,$(=,$(getvar,tilemode),0),$(=,$(getvar,cvport),1)), P)"
|
|
)
|
|
) |