Aufraeumaktion: bin/on_start.lsp geloescht, ssg_load.lsp Pfad-Fix
bin/on_start.lsp entfernt: Das Laden aller Module uebernimmt heute vollstaendig SSG_LIB.mnl, das automatisch beim MENULOAD geladen wird und ssg-ensure fuer Lazy-Loading sowie alle Kern- und Feature-Module direkt ausfuehrt. on_start.lsp war nirgendwo mehr referenziert (kein .bat, .mnu, .mnl oder .lsp rief die Datei oder ssg-lib-startup noch auf). Lisp/ssg_load.lsp: Pfadermittlung robuster gemacht: base-path nutzt jetzt 1) DXFM_LISP, 2) findfile, 3) DWGPREFIX. Vorher schlug findfile "ssg_core.lsp" fehl wenn DXFM_LISP nicht im BricsCAD-Suchpfad war, load gab still den Fehlerstring zurueck und ssg-load-config crashte mit "no function definition". Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
This commit is contained in:
+8
-6
@@ -11,13 +11,15 @@
|
||||
;; (load "pfad/ssg_dialog.lsp")
|
||||
;; ============================================================
|
||||
|
||||
(defun ssg-load-libs (/ base-path)
|
||||
;; Pfad dieser Datei als Basis verwenden (AutoCAD 2000+)
|
||||
(defun ssg-load-libs (/ base-path found)
|
||||
;; Pfad ermitteln: 1) DXFM_LISP, 2) findfile, 3) DWGPREFIX
|
||||
(setq base-path
|
||||
(if (findfile "ssg_core.lsp")
|
||||
(substr (findfile "ssg_core.lsp") 1
|
||||
(- (strlen (findfile "ssg_core.lsp")) (strlen "ssg_core.lsp")))
|
||||
(strcat (getvar "DWGPREFIX"))
|
||||
(cond
|
||||
((getenv "DXFM_LISP")
|
||||
(strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/"))
|
||||
((setq found (findfile "ssg_core.lsp"))
|
||||
(substr found 1 (- (strlen found) (strlen "ssg_core.lsp"))))
|
||||
(t (getvar "DWGPREFIX"))
|
||||
)
|
||||
)
|
||||
(load (strcat base-path "ssg_core.lsp") "ssg_core.lsp nicht gefunden")
|
||||
|
||||
Reference in New Issue
Block a user