From aac7d7c1bbc3e153c816bce6263f7e8b095c15ff Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Thu, 7 May 2026 15:45:26 +0200 Subject: [PATCH] =?UTF-8?q?Men=C3=BCeintrag=20und=20Dummy=20Commandos=20un?= =?UTF-8?q?ter=20SSG=5FLIB=5FCommands.lsp=20dazu?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Lisp/SSG_LIB_Commands.lsp | 280 ++++++++++++++++++++++++++++++++++++++ menu/SSG_LIB.mnu | 73 ++++++++++ 2 files changed, 353 insertions(+) create mode 100644 Lisp/SSG_LIB_Commands.lsp create mode 100644 menu/SSG_LIB.mnu diff --git a/Lisp/SSG_LIB_Commands.lsp b/Lisp/SSG_LIB_Commands.lsp new file mode 100644 index 0000000..ba7861e --- /dev/null +++ b/Lisp/SSG_LIB_Commands.lsp @@ -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) diff --git a/menu/SSG_LIB.mnu b/menu/SSG_LIB.mnu new file mode 100644 index 0000000..d737331 --- /dev/null +++ b/menu/SSG_LIB.mnu @@ -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