Test für alle Elemente ist jetzt interativ. Man kann jeden Test in einem Reiter offen lassen und ansehen (csv Export aller Files ist dann manuell zu machen), oder auch automatisch schliessen, dafür ist aber der csv Export anschliessend auch mit automatisch.

Lisp/export.lsp

@@ -5,10 +5,10 @@
 ;;   - JSON-Sammler (csv:collect-export-blocks, csv:run-export)
 ;;   - Python-basierter Export: EXPORTSIVAS, EXPORTCSV
 ;;
-;; Alle Blockname-Muster und Datei-/Skriptnamen dieses Moduls sind
-;; zentral in cfg/export.cfg (INI-Style, Abschnitte [blockpattern]
-;; und [filenames]) deklariert und werden beim Laden des Moduls
-;; einmalig eingelesen (export:load-cfg).
+;; Alle Blockname-Muster dieses Moduls sind zentral in cfg/export.cfg
+;; (INI-Style, Abschnitt [blockpattern]) deklariert und werden beim
+;; Laden des Moduls einmalig eingelesen (export:load-cfg).
+;; Datei-/Skriptnamen sind fest im Code hinterlegt (*export-filenames*).
 ;; ============================================================
 
 
@@ -25,7 +25,7 @@
 )
 
 ;; --- Einzelwert aus *export-cfg* lesen, mit Fallback ---
-;; section = "blockpattern" oder "filenames"
+;; section = "blockpattern"
 (defun export:cfg (section key default)
   (ssg-ini-get *export-cfg* section key default)
 )
@@ -42,6 +42,23 @@
 (export:load-cfg)
 
 
+;; --- Feste Datei-/Skriptnamen dieses Moduls (keine Config, direkt im Code) ---
+(setq *export-filenames*
+  (list
+    (cons "raw_json_datei" "export_raw.json")
+    (cons "sivas_script"   "export_sivas.py")
+    (cons "sivas_csv"      "export_sivas.csv")
+    (cons "csv_script"     "export_csv.py")
+    (cons "csv_csv"        "export.csv")
+  )
+)
+
+;; --- Dateinamen aus *export-filenames* lesen ---
+(defun export:filename (key)
+  (cdr (assoc key *export-filenames*))
+)
+
+
 ;; --- String fuer JSON escapen (Anfuehrungszeichen/Backslash) ---
 ;; Konvertiert nicht-String-Werte (z.B. T, nil, Zahlen) defensiv in String.
 (defun csv:json-escape (s)
@@ -94,10 +111,7 @@
   (setq rotation  (cdr (assoc 50 ed)))
   (setq handle    (cdr (assoc 5 ed)))
   (if (null rotation) (setq rotation 0.0))
-  (if (cdr (assoc 66 ed))
-    (setq attribs (csv:read-attribs ename))
-    (setq attribs "{}")
-  )
+  (setq attribs (csv:read-attribs ename))
   (strcat
     "  {\"block_name\":\"" (csv:json-escape blk-name) "\""
     ",\"layer\":\"" (csv:json-escape layer) "\""
@@ -135,7 +149,10 @@
               (wcmatch bname (export:pattern "pattern_strecke"
                 "Vario*,Staustrecke*,AUS_Element*,EIN_Element*,VF_*,GF_*"))
               ;; Rein numerische Namen = Omniflo SivasNr (Boegen/Weichen)
-              (wcmatch bname (export:pattern "pattern_numerisch" "#*"))
+              ;; Rein LISP-intern (Python klassifiziert Omniflo stattdessen
+              ;; ueber exakten Katalog-Match), daher fest im Code statt in
+              ;; cfg/export.cfg.
+              (wcmatch bname "#*")
             )
           (ssadd ename ss-out)
         )
@@ -200,7 +217,7 @@
 
       ;; JSON-Datei zusammenbauen
       (setq out-pfad (strcat (getenv "DXFM_RESULTS") "/"
-                              (export:cfg "filenames" "raw_json_datei" "export_raw.json")))
+                              (export:filename "raw_json_datei")))
       (setq fh (open out-pfad "w"))
       (if (null fh)
         (progn
@@ -228,7 +245,7 @@
           (if (findfile py-skript)
             (progn
               (setq ergebnis-pfad (strcat (getenv "DXFM_RESULTS") "/" csv-name))
-              (setq cmd (strcat (export:cfg "filenames" "python_exe" "python") " \"" py-skript "\""
+              (setq cmd (strcat "python \"" py-skript "\""
                                 " \"" out-pfad "\""
                                 " \"" (getenv "DXFM_DATA") "\""
                                 " \"" ergebnis-pfad "\""))
@@ -249,15 +266,15 @@
 ;; --- EXPORTSIVAS: Sivas-spezifischer CSV-Export mit Summierungszeilen ---
 (defun c:EXPORTSIVAS ()
   (csv:run-export "EXPORTSIVAS"
-    (export:cfg "filenames" "sivas_script" "export_sivas.py")
-    (export:cfg "filenames" "sivas_csv"    "export_sivas.csv"))
+    (export:filename "sivas_script")
+    (export:filename "sivas_csv"))
 )
 
 ;; --- EXPORTCSV: Einfache Item-Liste aller Bloecke (ohne Summierung) ---
 (defun c:EXPORTCSV ()
   (csv:run-export "EXPORTCSV"
-    (export:cfg "filenames" "csv_script" "export_csv.py")
-    (export:cfg "filenames" "csv_csv"    "export.csv"))
+    (export:filename "csv_script")
+    (export:filename "csv_csv"))
 )