[ADD] CSV/Sivas-Export: Zeichnungsname als Dateiname-Praefix

Benannte Zeichnungen exportieren jetzt nach <name>_export.csv bzw.
<name>_sivas.csv statt der festen Namen export.csv/export_sivas.csv,
damit sich Ergebnisse mehrerer Zeichnungen nicht mehr gegenseitig
ueberschreiben. Unbenannte Zeichnungen (DWGTITLED=0) behalten die
alten Standardnamen. test_export_all.lsp verlaesst sich jetzt auf
diese automatische Praefixierung statt *export-filenames* manuell
zu ueberschreiben.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

tests/test_export_all.lsp

@@ -120,10 +120,7 @@
 ;; per EXPORTCSV/EXPORTSIVAS in eigene, nach der Quelldatei benannte
 ;; CSV-Dateien.
 ;; ============================================================
-(defun c:TEST_EXPORT_ALL (/ tests-out-dir dateien datei basis doc
-                             csv-name sivas-name csv-pfad sivas-pfad
-                             csv-ok sivas-ok results-list old-filenames
-                             ablauf-fehler)
+(defun c:TEST_EXPORT_ALL (/ tests-out-dir ablauf-fehler)
 
   (setq tests-out-dir (strcat (getenv "DXFMAKRO") "/tests/output"))
   (vl-mkdir tests-out-dir)
@@ -156,13 +153,12 @@
 (defun ssg-test-export-all-ablauf (tests-out-dir
                              / dateien datei basis doc
                              csv-name sivas-name csv-pfad sivas-pfad
-                             csv-ok sivas-ok results-list old-filenames)
+                             csv-ok sivas-ok results-list)
 
   (setq dateien (append
     (vl-directory-files tests-out-dir "*.dxf" 1)
     (vl-directory-files tests-out-dir "*.dwg" 1)
   ))
-  (setq old-filenames *export-filenames*)
   (setq results-list nil)
 
   (princ "\n================================================================")
@@ -176,9 +172,10 @@
 
     (setq doc (export_all:open-drawing (strcat tests-out-dir "/" datei)))
 
-    ;; Datei-/Skriptnamen fuer diesen Durchlauf ueberschreiben, damit
-    ;; jede Quelldatei ihre eigenen CSV-Ergebnisse bekommt (statt der
-    ;; fixen Standardnamen "export.csv"/"export_sivas.csv").
+    ;; csv:run-export (Lisp/export.lsp) haengt den Zeichnungsnamen (DWGNAME
+    ;; der soeben geoeffneten Datei = basis) automatisch als Praefix vor
+    ;; "export.csv"/"sivas.csv" (export:dwg-praefix) - jede Quelldatei
+    ;; bekommt so von selbst ihre eigenen CSV-Ergebnisse.
     (setq csv-name   (strcat basis "_export.csv"))
     (setq sivas-name (strcat basis "_sivas.csv"))
     (setq csv-pfad   (strcat tests-out-dir "/" csv-name))
@@ -186,16 +183,6 @@
     (if (findfile csv-pfad)   (vl-file-delete csv-pfad))
     (if (findfile sivas-pfad) (vl-file-delete sivas-pfad))
 
-    (setq *export-filenames*
-      (list
-        (cons "raw_json_datei" (cdr (assoc "raw_json_datei" old-filenames)))
-        (cons "sivas_script"   (cdr (assoc "sivas_script"   old-filenames)))
-        (cons "sivas_csv"      sivas-name)
-        (cons "csv_script"     (cdr (assoc "csv_script"     old-filenames)))
-        (cons "csv_csv"        csv-name)
-      )
-    )
-
     (princ (strcat "\n[TEST_EXPORT_ALL] CSV-Export -> " csv-name))
     (c:EXPORTCSV)
     (setq csv-ok (export_all:wait-for-file csv-pfad 30.0))
@@ -217,7 +204,6 @@
     (vla-close doc :vlax-false)
   )
 
-  (setq *export-filenames* old-filenames)
   (setq *export-all-results* (reverse results-list))
 
   (princ "\n\n================================================================")