;-----------------------------------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)