From b776f5a77a4688ee81ef24310e847f483ad9102a Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Thu, 7 May 2026 16:13:58 +0200
Subject: [PATCH] aus Lisp Folder on_start.lsp entfernt und in bin verschoben

---
 Lisp/on_start.lsp | 74 -----------------------------------------------
 1 file changed, 74 deletions(-)
 delete mode 100644 Lisp/on_start.lsp

diff --git a/Lisp/on_start.lsp b/Lisp/on_start.lsp
deleted file mode 100644
index d6577e7..0000000
--- a/Lisp/on_start.lsp
+++ /dev/null
@@ -1,74 +0,0 @@
-;; ============================================================
-;; on_start.lsp - SSG_LIB Startup fuer BricsCAD
-;; Wird beim Start von BricsCAD automatisch ausgefuehrt
-;; ============================================================
-
-(defun ssg-lib-startup ( / lisp-pfad menu-pfad)
-
-  ;; Pfade aus Umgebungsvariablen lesen
-  (setq lisp-pfad (getenv "DXFM_LISP"))
-  (setq menu-pfad (getenv "DXFMAKRO"))
-
-  (if (null lisp-pfad)
-    (progn
-      (princ "\n[SSG_LIB] FEHLER: DXFM_LISP nicht gesetzt!")
-      (princ "\n[SSG_LIB] Bitte zuerst bin\\setenv.bat ausfuehren.")
-    )
-    (progn
-      (princ "\n[SSG_LIB] Lade SSG_LIB Umgebung...")
-
-      ;; LISP-Pfad zum BricsCAD-Suchpfad hinzufuegen
-      (setq curr-srch (getvar "SRCHPATH"))
-      (if (not (vl-string-search lisp-pfad curr-srch))
-        (setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad))
-      )
-
-      ;; Dummy-Befehle laden
-      (if (findfile (strcat lisp-pfad "/SSG_LIB_Commands.lsp"))
-        (progn
-          (load (strcat lisp-pfad "/SSG_LIB_Commands.lsp"))
-          (princ "\n[SSG_LIB] SSG_LIB_Commands.lsp geladen.")
-        )
-        (princ "\n[SSG_LIB] WARNUNG: SSG_LIB_Commands.lsp nicht gefunden!")
-      )
-
-      ;; VarioFoerderer laden
-      (if (findfile (strcat lisp-pfad "/VarioFoerderer.lsp"))
-        (progn
-          (load (strcat lisp-pfad "/VarioFoerderer.lsp"))
-          (princ "\n[SSG_LIB] VarioFoerderer.lsp geladen.")
-        )
-        (princ "\n[SSG_LIB] WARNUNG: VarioFoerderer.lsp nicht gefunden!")
-      )
-
-      ;; ILSModulInsert laden
-      (if (findfile (strcat lisp-pfad "/ILSModulInsert.lsp"))
-        (progn
-          (load (strcat lisp-pfad "/ILSModulInsert.lsp"))
-          (princ "\n[SSG_LIB] ILSModulInsert.lsp geladen.")
-        )
-        (princ "\n[SSG_LIB] WARNUNG: ILSModulInsert.lsp nicht gefunden!")
-      )
-
-      ;; Menue laden
-      (if menu-pfad
-        (progn
-          (setq menu-datei (strcat menu-pfad "/menu/SSG_LIB.mnu"))
-          (if (findfile menu-datei)
-            (progn
-              (command "_.MENULOAD" menu-datei)
-              (princ "\n[SSG_LIB] Menue SSG_LIB.mnu geladen.")
-            )
-            (princ (strcat "\n[SSG_LIB] WARNUNG: " menu-datei " nicht gefunden!"))
-          )
-        )
-      )
-
-      (princ "\n[SSG_LIB] Startup abgeschlossen.")
-    )
-  )
-  (princ)
-)
-
-;; Startup ausfuehren
-(ssg-lib-startup)