diff --git a/Lisp/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp index ca159bd..6aa2017 100644 --- a/Lisp/KreiselInsert.lsp +++ b/Lisp/KreiselInsert.lsp @@ -26,7 +26,7 @@ ) ;; block-pfad neu setzen -(setq block-pfad (get-block-path)) +(setq *block-path* (getenv "DXFM_BLOCKS")) (princ (strcat "\n✅ Block-Pfad: " block-pfad)) ;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte) diff --git a/Lisp/ssg_load.lsp b/Lisp/ssg_load.lsp index 9a27c24..02c7843 100644 --- a/Lisp/ssg_load.lsp +++ b/Lisp/ssg_load.lsp @@ -23,6 +23,10 @@ (load (strcat base-path "ssg_core.lsp") "ssg_core.lsp nicht gefunden") (load (strcat base-path "ssg_dialog.lsp") "ssg_dialog.lsp nicht gefunden") (load (strcat base-path "ssg_layer.lsp") "ssg_layer.lsp nicht gefunden") + (load (strcat base-path "KreiselInsert.lsp") "KreiselInsert.lsp nicht gefunden") + (load (strcat base-path "VarioFoerderer.lsp") "VarioFoerderer.lsp nicht gefunden") + (load (strcat base-path "tests.lsp") "tests.lsp nicht gefunden") + (load (strcat base-path "SSG_LIB_Commands.lsp") "SSG_LIB_Commands.lsp nicht gefunden") (prompt "\nSSG-Bibliotheken geladen: ssg_core, ssg_dialog, ssg_layer") (princ) ) diff --git a/bin/on_start.lsp b/bin/on_start.lsp index 71c3f78..7c11a0b 100644 --- a/bin/on_start.lsp +++ b/bin/on_start.lsp @@ -35,47 +35,14 @@ (setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad)) ) - ;; Dummy-Befehle laden - (if (findfile (strcat lisp-pfad "/SSG_LIB_Commands.lsp")) - (if (ssg-lib-safe-load (strcat lisp-pfad "/SSG_LIB_Commands.lsp")) - (princ "\n[SSG_LIB] SSG_LIB_Commands.lsp geladen.") + ;; Library laden + (if (findfile (strcat lisp-pfad "/ssg_load.lsp")) + (if (ssg-lib-safe-load (strcat lisp-pfad "/ssg_load.lsp")) + (princ "\n[SSG_LIB] ssg_load.lsp geladen.") ) - (princ "\n[SSG_LIB] WARNUNG: SSG_LIB_Commands.lsp nicht gefunden!") + (princ "\n[SSG_LIB] WARNUNG: ssg_load.lsp nicht gefunden!") ) - ;; VarioFoerderer laden - (if (findfile (strcat lisp-pfad "/VarioFoerderer.lsp")) - (if (ssg-lib-safe-load (strcat lisp-pfad "/VarioFoerderer.lsp")) - (princ "\n[SSG_LIB] VarioFoerderer.lsp geladen.") - ) - (princ "\n[SSG_LIB] WARNUNG: VarioFoerderer.lsp nicht gefunden!") - ) - - ;; KreiselInsert laden - (if (findfile (strcat lisp-pfad "/KreiselInsert.lsp")) - (if (ssg-lib-safe-load (strcat lisp-pfad "/KreiselInsert.lsp")) - (princ "\n[SSG_LIB] KreiselInsert.lsp geladen.") - ) - (princ "\n[SSG_LIB] WARNUNG: KreiselInsert.lsp nicht gefunden!") - ) - ;; Tests laden - (if (findfile (strcat lisp-pfad "/tests.lsp")) - (if (ssg-lib-safe-load (strcat lisp-pfad "/tests.lsp")) - (princ "\n[SSG_LIB] tests.lsp geladen.") - ) - (princ "\n[SSG_LIB] WARNUNG: tests.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 (progn