Uebersetzung aller Benutzermeldungen auf ssg-text/ssg-textf umgestellt

Vollstaendiger i18n-Rollout ueber alle Feature- und Kernmodule: alle benutzersichtbaren princ/prompt/getXXX/alert-Texte laufen jetzt ueber die zentrale Sprachtabelle in ssg_lang.lsp (Deutsch/Englisch, umschaltbar via SSG_SPRACHE). 403 Tabelleneintraege, 497 Aufrufstellen in 17 Dateien.

Ausgeschlossen wie geplant: Debug-Ausgaben (dbg*), Lademeldungen, [DUMMY]-Platzhalter, [CFG]/[OMNI]-Diagnosemarker.

Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>

Lisp/export.lsp

@@ -19,7 +19,7 @@
   (setq cfg-pfad (strcat (getenv "DXFM_CFG") "/export.cfg"))
   (setq *export-cfg* (ssg-load-ini cfg-pfad))
   (if (null *export-cfg*)
-    (princ (strcat "\n[export] WARNUNG: " cfg-pfad " nicht gefunden/leer, verwende Vorgaben."))
+    (princ (ssg-textf "exp-cfg-not-found" (list cfg-pfad)))
   )
   (princ)
 )
@@ -206,22 +206,22 @@
 (defun csv:run-export (label py-name csv-name / ss i ename fh out-pfad
                         py-skript ergebnis-pfad cmd first-block count out-dir)
   ;; Vor dem Export: IDs aller Bloecke sicherstellen und Duplikate korrigieren
-  (princ (strcat "\n[" label "] Pruefe und vergebe IDs..."))
+  (princ (ssg-textf "exp-check-ids" (list label)))
   (ssg-id-check-all)
   ;; Vor dem Export HOEHE/DREHUNG aller Omniflo-Elemente aktualisieren
-  (princ (strcat "\n[" label "] Aktualisiere Hoehe/Drehung..."))
+  (princ (ssg-textf "exp-update-hoehe-drehung" (list label)))
   (omni:update-all-attribs)
-  (princ (strcat "\n[" label "] Sammle relevante Bloecke..."))
+  (princ (ssg-textf "exp-collect-blocks" (list label)))
 
   (setq ss (csv:collect-export-blocks))
   (if (null ss)
     (progn
-      (princ (strcat "\n[" label "] Keine relevanten Bloecke gefunden."))
+      (princ (ssg-textf "exp-no-blocks-found" (list label)))
       (princ)
     )
     (progn
       (setq count (sslength ss))
-      (princ (strcat "\n[" label "] " (itoa count) " Bloecke gefunden."))
+      (princ (ssg-textf "exp-blocks-found" (list label count)))
 
       ;; Ausgabeordner: DXFM_RESULTS, ausser *export-test-override* ist gesetzt
       ;; (nur waehrend TEST_EXPORT_ALL, siehe tests/test_export_all.lsp).
@@ -235,7 +235,7 @@
                        *export-test-override*
                        (getenv "DXFM_RESULTS")))
       (if (not (vl-file-directory-p out-dir)) (vl-mkdir out-dir))
-      (princ (strcat "\n[" label "] Ausgabeordner: " out-dir))
+      (princ (ssg-textf "exp-output-dir" (list label out-dir)))
 
       ;; JSON-Datei zusammenbauen
       (setq out-pfad (strcat out-dir "/"
@@ -243,7 +243,7 @@
       (setq fh (open out-pfad "w"))
       (if (null fh)
         (progn
-          (princ (strcat "\n[" label "] FEHLER: Kann Datei nicht oeffnen: " out-pfad))
+          (princ (ssg-textf "exp-file-open-error" (list label out-pfad)))
           (princ)
         )
         (progn
@@ -260,7 +260,7 @@
           )
           (write-line "]" fh)
           (close fh)
-          (princ (strcat "\n[" label "] JSON geschrieben: " out-pfad))
+          (princ (ssg-textf "exp-json-written" (list label out-pfad)))
 
           ;; Python-Skript aufrufen
           (setq py-skript (strcat (getenv "DXFM_LIB") "/" py-name))
@@ -271,11 +271,11 @@
                                 " \"" out-pfad "\""
                                 " \"" (getenv "DXFM_DATA") "\""
                                 " \"" ergebnis-pfad "\""))
-              (princ (strcat "\n[" label "] Rufe Python auf..."))
+              (princ (ssg-textf "exp-calling-python" (list label)))
               (startapp "cmd" (strcat "/c " cmd))
-              (princ (strcat "\n[" label "] Export gestartet: " ergebnis-pfad))
+              (princ (ssg-textf "exp-export-started" (list label ergebnis-pfad)))
             )
-            (princ (strcat "\n[" label "] FEHLER: Python-Skript nicht gefunden: " py-skript))
+            (princ (ssg-textf "exp-python-not-found" (list label py-skript)))
           )
         )
       )
@@ -399,7 +399,7 @@
 (defun c:OMNI_UPDATE_ATTRIBS ( / ss i ename ed bname teileart count)
   (setq ss (ssget "X" (list (cons 0 "INSERT"))))
   (if (null ss)
-    (princ "\n[OMNI_UPDATE] Keine INSERT-Bloecke in der Zeichnung.")
+    (princ (ssg-text "exp-omni-no-inserts"))
     (progn
       (setq count 0)
       (setq i 0)
@@ -418,7 +418,7 @@
         )
         (setq i (1+ i))
       )
-      (princ (strcat "\n[OMNI_UPDATE] " (itoa count) " Elemente aktualisiert (HOEHE, DREHUNG)."))
+      (princ (ssg-textf "exp-omni-updated" (list count)))
     )
   )
   (princ)