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

Ladefehler der Menü werden abgefangen, ohne den gesamten Sratup abzubrechen. Null Check üfr SRCHPATH

Browse Source
This commit is contained in:
Michael Stangl
2026-05-07 16:23:05 +02:00
parent 93bfbbb77b
commit d5856b5d9f
1 changed files with 17 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/on_start.lsp
+17 -8
View File
@@ -3,7 +3,19 @@
;; Wird beim Start von BricsCAD automatisch ausgefuehrt ;; Wird beim Start von BricsCAD automatisch ausgefuehrt
;; ============================================================ ;; ============================================================
(defun ssg-lib-startup ( / lisp-pfad menu-pfad) (defun ssg-lib-safe-load (datei / result)
(setq result (vl-catch-all-apply 'load (list datei)))
(if (vl-catch-all-error-p result)
(progn
(princ (strcat "\n[SSG_LIB] FEHLER beim Laden von " datei ":"))
(princ (strcat "\n " (vl-catch-all-error-message result)))
nil
)
t
)
)
(defun ssg-lib-startup ( / lisp-pfad menu-pfad curr-srch menu-datei)
;; Pfade aus Umgebungsvariablen lesen ;; Pfade aus Umgebungsvariablen lesen
(setq lisp-pfad (getenv "DXFM_LISP")) (setq lisp-pfad (getenv "DXFM_LISP"))
@@ -19,14 +31,13 @@
;; LISP-Pfad zum BricsCAD-Suchpfad hinzufuegen ;; LISP-Pfad zum BricsCAD-Suchpfad hinzufuegen
(setq curr-srch (getvar "SRCHPATH")) (setq curr-srch (getvar "SRCHPATH"))
(if (not (vl-string-search lisp-pfad curr-srch)) (if (and curr-srch (not (vl-string-search lisp-pfad curr-srch)))
(setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad)) (setvar "SRCHPATH" (strcat curr-srch ";" lisp-pfad))
) )
;; Dummy-Befehle laden ;; Dummy-Befehle laden
(if (findfile (strcat lisp-pfad "/SSG_LIB_Commands.lsp")) (if (findfile (strcat lisp-pfad "/SSG_LIB_Commands.lsp"))
(progn (if (ssg-lib-safe-load (strcat lisp-pfad "/SSG_LIB_Commands.lsp"))
(load (strcat lisp-pfad "/SSG_LIB_Commands.lsp"))
(princ "\n[SSG_LIB] SSG_LIB_Commands.lsp geladen.") (princ "\n[SSG_LIB] SSG_LIB_Commands.lsp geladen.")
) )
(princ "\n[SSG_LIB] WARNUNG: SSG_LIB_Commands.lsp nicht gefunden!") (princ "\n[SSG_LIB] WARNUNG: SSG_LIB_Commands.lsp nicht gefunden!")
@@ -34,8 +45,7 @@
;; VarioFoerderer laden ;; VarioFoerderer laden
(if (findfile (strcat lisp-pfad "/VarioFoerderer.lsp")) (if (findfile (strcat lisp-pfad "/VarioFoerderer.lsp"))
(progn (if (ssg-lib-safe-load (strcat lisp-pfad "/VarioFoerderer.lsp"))
(load (strcat lisp-pfad "/VarioFoerderer.lsp"))
(princ "\n[SSG_LIB] VarioFoerderer.lsp geladen.") (princ "\n[SSG_LIB] VarioFoerderer.lsp geladen.")
) )
(princ "\n[SSG_LIB] WARNUNG: VarioFoerderer.lsp nicht gefunden!") (princ "\n[SSG_LIB] WARNUNG: VarioFoerderer.lsp nicht gefunden!")
@@ -43,8 +53,7 @@
;; ILSModulInsert laden ;; ILSModulInsert laden
(if (findfile (strcat lisp-pfad "/ILSModulInsert.lsp")) (if (findfile (strcat lisp-pfad "/ILSModulInsert.lsp"))
(progn (if (ssg-lib-safe-load (strcat lisp-pfad "/ILSModulInsert.lsp"))
(load (strcat lisp-pfad "/ILSModulInsert.lsp"))
(princ "\n[SSG_LIB] ILSModulInsert.lsp geladen.") (princ "\n[SSG_LIB] ILSModulInsert.lsp geladen.")
) )
(princ "\n[SSG_LIB] WARNUNG: ILSModulInsert.lsp nicht gefunden!") (princ "\n[SSG_LIB] WARNUNG: ILSModulInsert.lsp nicht gefunden!")