aus Lisp Folder on_start.lsp entfernt und in bin verschoben

2026-05-07 16:13:58 +02:00
parent dc74ebc22e
commit b776f5a77a
1 changed files with 0 additions and 74 deletions
@@ -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)