45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
(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)
|
|
|
|
|
|
|