(vmon)

;(defun s::startup ()

(setq lw "g:")
(setq
;--------------------------------------- Vorbelegung der Layer 
;der aufruf des layer erfolgt immer durch (nth nummer v-col)
;nummer liegt zwischen 1...10 kann aber beliebig erweitert werden
; belegung der layernamen
;in v-lay stehen die layernamen
      v-lay (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10")
; belegung der Farben
;in v-col stehen die farben
;die reihenfolge entspricht der layerliste
      v-col (list "7" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10")
; belegung der Stricharten
;in v-ltyp stehen die entsprechenden linientypen
      v-ltyp (list "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" )
)
;----------------------------------------------------------------------------

(if (= g_l 0)(setq g_l 3))
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(prompt "\nSST-Menu.......... (c) SCHOENENBERGER Systeme GmbH ")
(load "dingen")
;v-lay richtig belegen
(if (/= (setq du 
  (substr (getvar "clayer") 1 (searc "-" (getvar "clayer")))) nil)
(progn
   (setq ct (- (length v-lay) 1))
   (while (>= ct 0) 
     (setq v-lay (subst (strcat du (nth ct v-lay)) (nth ct v-lay) v-lay)
	   ct (- ct 1)))
))
; Status-Line Configuration
;(load "mode1")
; SST - Toolbox Einstellungen laden
(load "sstbase")

(princ)