neue Folder LAYOUT MENU und MODULE dazu

MENU/DINSETUP.LSP

@@ -0,0 +1,37 @@
+;-----------------------------------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)
+