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
bin/on_start.lsp
+5 -38
View File
@@ -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