From 2cdf9434e5ea9face34bc9c01d3f7449175ffe69 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Thu, 7 May 2026 17:36:26 +0200 Subject: [PATCH] Omniflo Dummy Routinen in eigene Datei getan --- Lisp/OmniModulInsert.lsp | 138 +++++++++++++++++++++++++++++++++++++ Lisp/SSG_LIB_Commands.lsp | 139 -------------------------------------- bin/on_start.lsp | 13 +++- 3 files changed, 150 insertions(+), 140 deletions(-) create mode 100644 Lisp/OmniModulInsert.lsp diff --git a/Lisp/OmniModulInsert.lsp b/Lisp/OmniModulInsert.lsp new file mode 100644 index 0000000..61b68a8 --- /dev/null +++ b/Lisp/OmniModulInsert.lsp @@ -0,0 +1,138 @@ +;; --- 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) +) diff --git a/Lisp/SSG_LIB_Commands.lsp b/Lisp/SSG_LIB_Commands.lsp index ba7861e..791c18e 100644 --- a/Lisp/SSG_LIB_Commands.lsp +++ b/Lisp/SSG_LIB_Commands.lsp @@ -137,144 +137,5 @@ (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/bin/on_start.lsp b/bin/on_start.lsp index 4761047..fbaa732 100644 --- a/bin/on_start.lsp +++ b/bin/on_start.lsp @@ -58,6 +58,15 @@ ) (princ "\n[SSG_LIB] WARNUNG: ILSModulInsert.lsp nicht gefunden!") ) + ;; OmnifloModulInsert laden + (if (findfile (strcat lisp-pfad "/OmnifloModulInsert.lsp")) + (if (ssg-lib-safe-load (strcat lisp-pfad "/OmnifloModulInsert.lsp")) + (princ "\n[SSG_LIB] OmnifloModulInsert.lsp geladen.") + ) + (princ "\n[SSG_LIB] WARNUNG: OmnifloModulInsert.lsp nicht gefunden!") + ) + + ;; Menue laden (if menu-pfad @@ -66,11 +75,13 @@ (if (findfile menu-datei) (progn (command "_.MENULOAD" menu-datei) - (princ "\n[SSG_LIB] Menue SSG_LIB.mnu geladen.") + (menucmd "P13=+SSG_LIB.POP1") + (princ "\n[SSG_LIB] Menue SSG_LIB geladen und eingebunden.") ) (princ (strcat "\n[SSG_LIB] WARNUNG: " menu-datei " nicht gefunden!")) ) ) + (princ "\n[SSG_LIB] WARNUNG: DXFMAKRO nicht gesetzt, Menue nicht geladen!") ) (princ "\n[SSG_LIB] Startup abgeschlossen.")