Schoenenberger_Systeme_GmbH/dxfmakros
3
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

zentrale Skripts SSG_LOAD zum Laden aller LSP Librarys

Browse Source
This commit is contained in:
Yuelin Wang
2026-05-08 12:02:41 +02:00
parent 1e93a94474
commit f91e098555
3 changed files with 10 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/KreiselInsert.lsp
+1 -1
View File
@@ -26,7 +26,7 @@
) )
;; block-pfad neu setzen ;; block-pfad neu setzen
(setq block-pfad (get-block-path)) (setq *block-path* (getenv "DXFM_BLOCKS"))
(princ (strcat "\n✅ Block-Pfad: " block-pfad)) (princ (strcat "\n✅ Block-Pfad: " block-pfad))
;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte) ;; Basispunkt: Linker Kreis, linkester Tangentenpunkt (links Mitte)
Lisp/ssg_load.lsp
+4
View File
@@ -23,6 +23,10 @@
(load (strcat base-path "ssg_core.lsp") "ssg_core.lsp nicht gefunden") (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_dialog.lsp") "ssg_dialog.lsp nicht gefunden")
(load (strcat base-path "ssg_layer.lsp") "ssg_layer.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") (prompt "\nSSG-Bibliotheken geladen: ssg_core, ssg_dialog, ssg_layer")
(princ) (princ)
) )
bin/on_start.lsp
+5 -38
View File
@@ -35,47 +35,14 @@
(setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad)) (setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad))
) )
;; Dummy-Befehle laden ;; Library laden
(if (findfile (strcat lisp-pfad "/SSG_LIB_Commands.lsp")) (if (findfile (strcat lisp-pfad "/ssg_load.lsp"))
(if (ssg-lib-safe-load (strcat lisp-pfad "/SSG_LIB_Commands.lsp")) (if (ssg-lib-safe-load (strcat lisp-pfad "/ssg_load.lsp"))
(princ "\n[SSG_LIB] SSG_LIB_Commands.lsp geladen.") (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 ;; Menue laden
(if menu-pfad (if menu-pfad
(progn (progn