From dc74ebc22e30ab1c4e287f30d144fbd5274b3cdf Mon Sep 17 00:00:00 2001
From: Michael Stangl <m.stangl@schoenenberger.de>
Date: Thu, 7 May 2026 16:13:27 +0200
Subject: [PATCH] starupt.scr in bin dazu

---
 bin/on_start.lsp | 74 ++++++++++++++++++++++++++++++++++++++++++++++++
 bin/startup.scr  |  1 +
 2 files changed, 75 insertions(+)
 create mode 100644 bin/on_start.lsp
 create mode 100644 bin/startup.scr

diff --git a/bin/on_start.lsp b/bin/on_start.lsp
new file mode 100644
index 0000000..d6577e7
--- /dev/null
+++ b/bin/on_start.lsp
@@ -0,0 +1,74 @@
+;; ============================================================
+;; 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)
diff --git a/bin/startup.scr b/bin/startup.scr
new file mode 100644
index 0000000..cabec08
--- /dev/null
+++ b/bin/startup.scr
@@ -0,0 +1 @@
+(load (strcat (getenv "DXFM_LISP") "/on_start.lsp"))