Menüeintrag und Dummy Commandos unter SSG_LIB_Commands.lsp dazu
This commit is contained in:
@@ -0,0 +1,280 @@
|
||||
;; ============================================================
|
||||
;; SSG_LIB - Dummy-Befehlsdefinitionen fuer Menue SSG_LIB
|
||||
;; Jeder Befehl gibt eine Meldung aus und kann spaeter
|
||||
;; durch echte Funktionalitaet ersetzt werden.
|
||||
;; ============================================================
|
||||
|
||||
;; --- ILS / Kreisel-Module ---
|
||||
(defun c:ILS_Kreisel ()
|
||||
(princ "\n[DUMMY] ILS_Kreisel aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_Eckrad ()
|
||||
(princ "\n[DUMMY] ILS_Eckrad aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- ILS / Zusatzmodul ---
|
||||
(defun c:ILS_BTMT_Beladung ()
|
||||
(princ "\n[DUMMY] ILS_BTMT_Beladung aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_BTMT_Entladung ()
|
||||
(princ "\n[DUMMY] ILS_BTMT_Entladung aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- ILS / Foerderer ---
|
||||
(defun c:ILS_ETF_Etagenfoerderer ()
|
||||
(princ "\n[DUMMY] ILS_ETF_Etagenfoerderer aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_TEF_Strecke ()
|
||||
(princ "\n[DUMMY] ILS_TEF_Strecke aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; FOERDERANLAGE ist bereits in VarioFoerderer.lsp definiert
|
||||
|
||||
;; Kurven angetrieben Aussen
|
||||
(defun c:ILS_K90LA ()
|
||||
(princ "\n[DUMMY] 90 Kurve links angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K90RA ()
|
||||
(princ "\n[DUMMY] 90 Kurve rechts angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K60LA ()
|
||||
(princ "\n[DUMMY] 60 Kurve links angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K60RA ()
|
||||
(princ "\n[DUMMY] 60 Kurve rechts angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K30LA ()
|
||||
(princ "\n[DUMMY] 30 Kurve links angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K30RA ()
|
||||
(princ "\n[DUMMY] 30 Kurve rechts angetrieben Aussen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; Kurven angetrieben Innen
|
||||
(defun c:ILS_K90LI ()
|
||||
(princ "\n[DUMMY] 90 Kurve links angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K90RI ()
|
||||
(princ "\n[DUMMY] 90 Kurve rechts angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K60LI ()
|
||||
(princ "\n[DUMMY] 60 Kurve links angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K60RI ()
|
||||
(princ "\n[DUMMY] 60 Kurve rechts angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K30LI ()
|
||||
(princ "\n[DUMMY] 30 Kurve links angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_K30RI ()
|
||||
(princ "\n[DUMMY] 30 Kurve rechts angetrieben Innen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- ILS / Gefaellestrecke ---
|
||||
(defun c:ILS_Gefaellestrecke ()
|
||||
(princ "\n[DUMMY] ILS_Gefaellestrecke aufgerufen")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK90L ()
|
||||
(princ "\n[DUMMY] 90 Kurve links Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK90R ()
|
||||
(princ "\n[DUMMY] 90 Kurve rechts Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK60L ()
|
||||
(princ "\n[DUMMY] 60 Kurve links Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK60R ()
|
||||
(princ "\n[DUMMY] 60 Kurve rechts Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK30L ()
|
||||
(princ "\n[DUMMY] 30 Kurve links Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:ILS_GK30R ()
|
||||
(princ "\n[DUMMY] 30 Kurve rechts Gefaellestrecke")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Boegen ---
|
||||
(defun c:OMNI_APB_630_90 ()
|
||||
(princ "\n[DUMMY] APB 110 R 630/90 800/800 (821104033)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_APB_550_675 ()
|
||||
(princ "\n[DUMMY] APB 110 R 550/67.5 432 (821104027)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_APB_630_45 ()
|
||||
(princ "\n[DUMMY] APB 110 R 630/45 400 (821104031)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_APB_550_225 ()
|
||||
(princ "\n[DUMMY] APB 110 R 550/22.5 84 (821104025)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_APB_650_180 ()
|
||||
(princ "\n[DUMMY] APB 110 R 650/180 L=150 (821104043)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Aluprofil Gerade ---
|
||||
(defun c:OMNI_AP110 ()
|
||||
(princ "\n[DUMMY] AP 110 Aluprofil Gerade")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Weiche 90 Grad ---
|
||||
(defun c:OMNI_W90_Einfach ()
|
||||
(princ "\n[DUMMY] Einfach 90 700/700 links M (834372027)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_W90_Doppel ()
|
||||
(princ "\n[DUMMY] Doppel 90 700/700 M (834372109)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_W90_Dreiwege ()
|
||||
(princ "\n[DUMMY] Dreiwege 90 700/700 M (834372209)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Weiche 45 Grad ---
|
||||
(defun c:OMNI_W45_Einfach ()
|
||||
(princ "\n[DUMMY] Einfach 45 350/700 links M (834372001)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_W45_Doppel ()
|
||||
(princ "\n[DUMMY] Doppel 45 350/700 M (834372100)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_W45_Dreiwege ()
|
||||
(princ "\n[DUMMY] Dreiwege 45 350/700 M (834372200)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Weichen Parallel ---
|
||||
(defun c:OMNI_WP_Einfach ()
|
||||
(princ "\n[DUMMY] Einfach Parallel 200/750 links M (834372047)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_WP_Doppel ()
|
||||
(princ "\n[DUMMY] Doppel Parallel 200/750 M (834372115)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_WP_Dreiwege ()
|
||||
(princ "\n[DUMMY] Dreiwege Parallel 200/750 M (834372215)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Weichenkoerper ---
|
||||
(defun c:OMNI_WK_Einfach ()
|
||||
(princ "\n[DUMMY] Weichenkoerper Einfach 22.5 links M (834342011)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_WK_Doppel ()
|
||||
(princ "\n[DUMMY] Weichenkoerper Doppel 22.5 M (834342100)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_WK_Dreiwege ()
|
||||
(princ "\n[DUMMY] Weichenkoerper Dreiwege 22.5 M (834342200)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / Weichenkombinationen ---
|
||||
(defun c:OMNI_WKomb_Delta ()
|
||||
(princ "\n[DUMMY] Delta 1400/700 M (834372400)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_WKomb_Star ()
|
||||
(princ "\n[DUMMY] Star 1400/1400 M (834372420)")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / TEF Elemente ---
|
||||
(defun c:OMNI_TEF_UmlenkR ()
|
||||
(princ "\n[DUMMY] Umlenkspannst. rechts fuer TEF links")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_TEF_UmlenkL ()
|
||||
(princ "\n[DUMMY] Umlenkspannst. links fuer TEF rechts")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_TEF_AntriebL ()
|
||||
(princ "\n[DUMMY] Antriebst. links fuer TEF links")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_TEF_AntriebR ()
|
||||
(princ "\n[DUMMY] Antriebst. rechts fuer TEF rechts")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(defun c:OMNI_TEF_Gerade ()
|
||||
(princ "\n[DUMMY] TEF Gerade")
|
||||
(princ)
|
||||
)
|
||||
|
||||
;; --- Omniflo / KettenFoerderer ---
|
||||
(defun c:OMNI_KettenFoerderer ()
|
||||
(princ "\n[DUMMY] KettenFoerderer")
|
||||
(princ)
|
||||
)
|
||||
|
||||
(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.")
|
||||
(princ)
|
||||
@@ -0,0 +1,73 @@
|
||||
***MENUGROUP=SSG_LIB
|
||||
|
||||
***POP1
|
||||
[SSG_LIB]
|
||||
[->ILS]
|
||||
[->Kreisel-Module]
|
||||
[Kreisel]^C^CILS_Kreisel
|
||||
[<-Eckrad]^C^CILS_Eckrad
|
||||
[->Zusatzmodul]
|
||||
[BTMT-Beladung]^C^CILS_BTMT_Beladung
|
||||
[<-BTMT-Entladung]^C^CILS_BTMT_Entladung
|
||||
[->Foerderer]
|
||||
[ETF Etagenfoerderer]^C^CILS_ETF_Etagenfoerderer
|
||||
[Durch TEF angetriebene Strecke]^C^CILS_TEF_Strecke
|
||||
[VarioFoerderer]^C^CFOERDERANLAGE
|
||||
[--]
|
||||
[90 Kurve links angetrieben Aussen]^C^CILS_K90LA
|
||||
[90 Kurve rechts angetrieben Aussen]^C^CILS_K90RA
|
||||
[60 Kurve links angetrieben Aussen]^C^CILS_K60LA
|
||||
[60 Kurve rechts angetrieben Aussen]^C^CILS_K60RA
|
||||
[30 Kurve links angetrieben Aussen]^C^CILS_K30LA
|
||||
[30 Kurve rechts angetrieben Aussen]^C^CILS_K30RA
|
||||
[--]
|
||||
[90 Kurve links angetrieben Innen]^C^CILS_K90LI
|
||||
[90 Kurve rechts angetrieben Innen]^C^CILS_K90RI
|
||||
[60 Kurve links angetrieben Innen]^C^CILS_K60LI
|
||||
[60 Kurve rechts angetrieben Innen]^C^CILS_K60RI
|
||||
[30 Kurve links angetrieben Innen]^C^CILS_K30LI
|
||||
[<-30 Kurve rechts angetrieben Innen]^C^CILS_K30RI
|
||||
[->Gefaellestrecke]
|
||||
[Gefaellestrecke]^C^CILS_Gefaellestrecke
|
||||
[--]
|
||||
[90 Kurve links Gefaellestrecke]^C^CILS_GK90L
|
||||
[90 Kurve rechts Gefaellestrecke]^C^CILS_GK90R
|
||||
[60 Kurve links Gefaellestrecke]^C^CILS_GK60L
|
||||
[60 Kurve rechts Gefaellestrecke]^C^CILS_GK60R
|
||||
[30 Kurve links Gefaellestrecke]^C^CILS_GK30L
|
||||
[<-30 Kurve rechts Gefaellestrecke]^C^CILS_GK30R
|
||||
[->Omniflo]
|
||||
[->Boegen]
|
||||
[APB 110 R 630/90 800/800 (821104033)]^C^COMNI_APB_630_90
|
||||
[APB 110 R 550/67.5 432 (821104027)]^C^COMNI_APB_550_675
|
||||
[APB 110 R 630/45 400 (821104031)]^C^COMNI_APB_630_45
|
||||
[APB 110 R 550/22.5 84 (821104025)]^C^COMNI_APB_550_225
|
||||
[<-APB 110 R 650/180 L=150 (821104043)]^C^COMNI_APB_650_180
|
||||
[->Aluprofil Gerade]
|
||||
[<-AP 110]^C^COMNI_AP110
|
||||
[->Weiche 90 Grad]
|
||||
[Einfach 90 700/700 links M (834372027)]^C^COMNI_W90_Einfach
|
||||
[Doppel 90 700/700 M (834372109)]^C^COMNI_W90_Doppel
|
||||
[<-Dreiwege 90 700/700 M (834372209)]^C^COMNI_W90_Dreiwege
|
||||
[->Weiche 45 Grad]
|
||||
[Einfach 45 350/700 links M (834372001)]^C^COMNI_W45_Einfach
|
||||
[Doppel 45 350/700 M (834372100)]^C^COMNI_W45_Doppel
|
||||
[<-Dreiwege 45 350/700 M (834372200)]^C^COMNI_W45_Dreiwege
|
||||
[->Weichen Parallel]
|
||||
[Einfach Parallel 200/750 links M (834372047)]^C^COMNI_WP_Einfach
|
||||
[Doppel Parallel 200/750 M (834372115)]^C^COMNI_WP_Doppel
|
||||
[<-Dreiwege Parallel 200/750 M (834372215)]^C^COMNI_WP_Dreiwege
|
||||
[->Weichenkoerper]
|
||||
[Weichenkoerper Einfach 22.5 links M (834342011)]^C^COMNI_WK_Einfach
|
||||
[Weichenkoerper Doppel 22.5 M (834342100)]^C^COMNI_WK_Doppel
|
||||
[<-Weichenkoerper Dreiwege 22.5 M (834342200)]^C^COMNI_WK_Dreiwege
|
||||
[->Weichenkombinationen]
|
||||
[Delta 1400/700 M (834372400)]^C^COMNI_WKomb_Delta
|
||||
[<-Star 1400/1400 M (834372420)]^C^COMNI_WKomb_Star
|
||||
[->TEF Elemente]
|
||||
[Umlenkspannst. rechts fuer TEF links]^C^COMNI_TEF_UmlenkR
|
||||
[Umlenkspannst. links fuer TEF rechts]^C^COMNI_TEF_UmlenkL
|
||||
[Antriebst. links fuer TEF links]^C^COMNI_TEF_AntriebL
|
||||
[Antriebst. rechts fuer TEF rechts]^C^COMNI_TEF_AntriebR
|
||||
[<-TEF Gerade]^C^COMNI_TEF_Gerade
|
||||
[<-KettenFoerderer]^C^COMNI_KettenFoerderer
|
||||
Reference in New Issue
Block a user