[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>

Lisp/export.lsp

@@ -56,7 +56,7 @@
   (list
     (cons "raw_json_datei" "export_raw.json")
     (cons "sivas_script"   "export_sivas.py")
-    (cons "sivas_csv"      "export_sivas.csv")
+    (cons "sivas_csv"      "sivas.csv")
     (cons "csv_script"     "export_csv.py")
     (cons "csv_csv"        "export.csv")
   )
@@ -67,6 +67,25 @@
   (cdr (assoc key *export-filenames*))
 )
 
+;; --- Zeichnungsname als Dateiname-Praefix ermitteln ---
+;; Liefert "<Zeichnungsname>_" oder "" (leer), wenn die Zeichnung noch nie
+;; gespeichert wurde (DWGTITLED=0, Name z.B. "Zeichnung1"/"Drawing1").
+;; So heisst die Export-CSV bei einer benannten Zeichnung "<name>_export.csv"
+;; bzw. "<name>_sivas.csv" statt nur "export.csv"/"export_sivas.csv" - bei
+;; mehreren offenen/parallel bearbeiteten Zeichnungen sonst nicht unterscheidbar.
+(defun export:dwg-praefix ( / dwgname)
+  (if (= (getvar "DWGTITLED") 0)
+    ""
+    (progn
+      (setq dwgname (getvar "DWGNAME"))
+      (if (and dwgname (/= dwgname ""))
+        (strcat (vl-filename-base dwgname) "_")
+        ""
+      )
+    )
+  )
+)
+
 
 ;; ============================================================
 ;; PYTHON-INTERPRETER ERMITTELN
@@ -1083,7 +1102,7 @@
               (setq py-skript (strcat (getenv "DXFM_LIB") "/" py-name))
               (if (findfile py-skript)
                 (progn
-                  (setq ergebnis-pfad (strcat out-dir "/" csv-name))
+                  (setq ergebnis-pfad (strcat out-dir "/" (export:dwg-praefix) csv-name))
                   (setq py-exe (export:python-exe))
                   (setq log-pfad (strcat (cond ((getenv "DXFM_LOG")) (out-dir))
                                          "/export_python.log"))