37 lines
943 B
Common Lisp
37 lines
943 B
Common Lisp
;-----------------------------------grundeinstellung
|
|
(defun dinsetup ()
|
|
(prompt "\nSST-Menu-Grundeinstellung")
|
|
;layer anlegen
|
|
(s::startup)
|
|
(setq cnt (- (length v-lay) 1))
|
|
(command "REGENAUTO" "AUS"
|
|
;problem linientyp continuous und ausgezogen
|
|
"EINFšGE" (strcat pfad "acad") "0,0" "" "" ""
|
|
"LAYER")
|
|
(while (>= cnt 0)
|
|
(command
|
|
"MACH" (nth cnt v-lay) "FARBE" (nth cnt v-col) ""
|
|
"LTYP" (nth cnt v-ltyp) "")
|
|
(setq cnt (- cnt 1))
|
|
); while klammer
|
|
(command "MACH" "klin" "FARBE" "1" ""
|
|
"MACH" "info" "FARBE" "2" ""
|
|
"MACH" "rahm2" "FARBE" "1" ""
|
|
"MACH" "rahm3" "FARBE" "2" ""
|
|
"MACH" "rahm5" "FARBE" "7" ""
|
|
"SETZ" (nth 0 v-lay) "" "REFERENZ" "EIN")
|
|
;variablen belegen
|
|
(setvar "flatland" 0)
|
|
(setvar "mirrtext" 0)
|
|
(setvar "osmode" 0)
|
|
(setvar "attdia" 1)
|
|
(setq g_si 15.0)
|
|
;genius definitionen
|
|
(setq g_f 1.0 g_g 1.0 g_l 3)
|
|
(command "MENš" (strcat pfad "haupt"))
|
|
(setvar "dimscale" 1.0)
|
|
(setvar "dimlfac" 1.0)
|
|
(princ)
|
|
)
|
|
(princ)
|
|
|