Startup Skript so modifiziert, dass Lisp files als Fallback geladen werden

This commit is contained in:
2026-06-03 10:06:09 +02:00
parent b8842957fc
commit 40b430ee73
8 changed files with 2627 additions and 94 deletions
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
-1
View File
@@ -117,7 +117,6 @@
)
)
(setq fullpath (strcat dir filename))
(prompt (strcat "\n[DBG] Oeffne: " fullpath))
;; Datei mit "w" erstellen/leeren, Header schreiben, sofort schliessen
(setq fh (open fullpath "w"))
(if fh
-4
View File
@@ -20,10 +20,6 @@
(strcat (getvar "DWGPREFIX"))
)
)
(load (strcat base-path "ssg_dbg.lsp") "ssg_dbg.lsp nicht gefunden")
(if (not *dbg-path*)
(dbgopen "debugfile.dbg" "DXFM_LOG") ; Fallback: direkt geladen ohne on_start.lsp
)
(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")