Ausgabeverzeichnis nur über Lisp Variable festlegen. Anscheinend speichert Bricscad Umgebungen über die Sessions hinweg. Die Ausgaben der Tests landen woanders als der generelle Export

Lisp/export.lsp

@@ -41,6 +41,14 @@
 ;; Beim Laden des Moduls einmalig einlesen (Lazy-Loading via ssg-ensure "export")
 (export:load-cfg)
 
+;; --- Test-Override fuer den Ausgabeordner (nur Lisp-Sitzungsspeicher) ---
+;; Wird ausschliesslich von TEST_EXPORT_ALL (tests/test_export_all.lsp)
+;; waehrend des Testlaufs auf DXFM_TESTOUT gesetzt und danach garantiert
+;; wieder auf nil zurueckgesetzt. Bewusst KEIN (setenv "DXFM_RESULTS" ...):
+;; (setenv ...) schreibt in BricsCAD dauerhaft in die Profil-Registry und
+;; ueberlebt damit jeden Neustart.
+(setq *export-test-override* nil)
+
 
 ;; --- Feste Datei-/Skriptnamen dieses Moduls (keine Config, direkt im Code) ---
 (setq *export-filenames*
@@ -196,7 +204,7 @@
 ;; py-name = Python-Skript-Name (z.B. "export_csv.py")
 ;; csv-name = Ergebnis-CSV-Name (z.B. "export.csv")
 (defun csv:run-export (label py-name csv-name / ss i ename fh out-pfad
-                        py-skript ergebnis-pfad cmd first-block count)
+                        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..."))
   (ssg-id-check-all)
@@ -215,8 +223,22 @@
       (setq count (sslength ss))
       (princ (strcat "\n[" label "] " (itoa count) " Bloecke gefunden."))
 
+      ;; Ausgabeordner: DXFM_RESULTS, ausser *export-test-override* ist gesetzt
+      ;; (nur waehrend TEST_EXPORT_ALL, siehe tests/test_export_all.lsp).
+      ;; WICHTIG: Hier bewusst KEIN (setenv "DXFM_RESULTS" ...) verwenden!
+      ;; (setenv ...) schreibt in BricsCAD dauerhaft in die Profil-Registry
+      ;; und ueberlebt damit jeden Neustart - ein einziger Testlauf wuerde
+      ;; DXFM_RESULTS fuer alle zukuenftigen Sitzungen unwiderruflich auf den
+      ;; Testordner umbiegen. *export-test-override* ist eine reine
+      ;; Lisp-Variable (nur Prozess-/Sitzungsspeicher) und daher sicher.
+      (setq out-dir (if *export-test-override*
+                       *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))
+
       ;; JSON-Datei zusammenbauen
-      (setq out-pfad (strcat (getenv "DXFM_RESULTS") "/"
+      (setq out-pfad (strcat out-dir "/"
                               (export:filename "raw_json_datei")))
       (setq fh (open out-pfad "w"))
       (if (null fh)
@@ -244,7 +266,7 @@
           (setq py-skript (strcat (getenv "DXFM_LIB") "/" py-name))
           (if (findfile py-skript)
             (progn
-              (setq ergebnis-pfad (strcat (getenv "DXFM_RESULTS") "/" csv-name))
+              (setq ergebnis-pfad (strcat out-dir "/" csv-name))
               (setq cmd (strcat "python \"" py-skript "\""
                                 " \"" out-pfad "\""
                                 " \"" (getenv "DXFM_DATA") "\""