[ADD] Nachbau ILS-3.0-Showroom: tests/testdata/showroom_ils.json aus Showroom_ILS_3_0.dxf (6 Kreisel, 11 Gefaellestrecken, Separatoren/Scanner; Hoehen noch Platzhalter), Treiber tests/test_showroom_ils.lsp (TEST_SHOWROOM_ILS, Menue Tests -> ILS 3.0 Showroom), in alltests.json bis zu den Hoehen deaktiviert; [ADD] dxf_scan_components.py: --flach (waagrechte Staustrecken mit AS an genau einem Ende als GF), --kreisel-achse (Kreisel ohne AN8/SP8, z.B. Schleifen mit Weichenboegen), zerstueckelte Staustrecken-Linien werden vereint, ES am unteren Ende wird erkannt und verbraucht, AS/ES-Seite ohne Seitenangabe im Namen aus der Lage zur Fahrtrichtung, Kurznamen AE-*/EE-*; [FIX] Kreisel-Paarung: zwei Kreisel auf derselben Achse wurden ueber die Luecke gepaart (800 + 12832 statt 9033 + 3000) - Tausch-Nachbesserung auf minimale Abstandssumme; [CHANGE] test_dematic_arvato.lsp: Lauf als dematic_arvato:bau-datei herausgeloest (vom Showroom-Treiber mitgenutzt); [ADD] Tests in test_dxf_scan_gf.py

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

tests/test_dematic_arvato.lsp

@@ -255,25 +255,27 @@
                "fehler_text" (vl-catch-all-error-message res)))
     res))
 
-(defun c:TEST_DEMATIC_ARVATO ( / datei daten out zaehler st)
-  (setq datei (dematic_arvato:datei))
+;; Alle Eintraege einer Nachbau-Datei bauen und die Records zurueckgeben
+;; (nil bei Fehler vor dem Bau). Gemeinsamer Lauf fuer jeden Treiber mit
+;; diesem Eintragsschema - auch tests/test_showroom_ils.lsp.
+;;   befehl = Name fuer Meldungen/ssg-start, titel = Kopfzeile, datei = JSON
+(defun dematic_arvato:bau-datei (befehl titel datei / daten out records zaehler st)
   (princ "\n\n================================================================")
-  (princ "\n  TEST_DEMATIC_ARVATO - Abschnitt Flowpuffer/Kreisel")
+  (princ (strcat "\n  " befehl " - " titel))
   (princ (strcat "\n  " datei))
   (princ "\n================================================================")
   (cond
     ((null (car (atoms-family 1 '("VSP-BAU-JOURNAL"))))
-      (princ "\n[TEST_DEMATIC_ARVATO] FEHLER: vf_spec.lsp nicht geladen"
-             " (VarioFoerderer laden).")
-      (setq *dematic-arvato-records* nil))
+      (princ (strcat "\n[" befehl "] FEHLER: vf_spec.lsp nicht geladen"
+                     " (VarioFoerderer laden)."))
+      nil)
     ((null (findfile datei))
-      (princ (strcat "\n[TEST_DEMATIC_ARVATO] FEHLER: " datei " nicht gefunden!"))
-      (setq *dematic-arvato-records* nil))
+      (princ (strcat "\n[" befehl "] FEHLER: " datei " nicht gefunden!"))
+      nil)
     (T
       (setq daten (ssg-json-laden datei))
       (princ (strcat "\n  " (itoa (length daten)) " Eintraege geladen"))
-      (ssg-start "TEST_DEMATIC_ARVATO"
-                 '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
+      (ssg-start befehl '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
       (setvar "OSMODE" 0)
       (setvar "ATTREQ" 0)
       (setvar "ATTDIA" 0)
@@ -285,10 +287,10 @@
       (foreach obj daten
         (setq out (cons (dematic_arvato:bau-eintrag obj) out)))
       (ssg-end)
-      (setq *dematic-arvato-records* (reverse out))
+      (setq records (reverse out))
       ;; Zusammenfassung je Status
       (setq zaehler '())
-      (foreach r *dematic-arvato-records*
+      (foreach r records
         (setq st (cond ((ssg-val r "status")) ("?")))
         (if (assoc st zaehler)
           (setq zaehler (subst (cons st (1+ (cdr (assoc st zaehler))))
@@ -298,7 +300,13 @@
       (foreach z (reverse zaehler)
         (princ (strcat "\n  " (car z) ": " (itoa (cdr z)))))
       (princ "\n================================================================")
-      (command "_.ZOOM" "_E")))
+      (command "_.ZOOM" "_E")
+      records)))
+
+(defun c:TEST_DEMATIC_ARVATO ()
+  (setq *dematic-arvato-records*
+    (dematic_arvato:bau-datei "TEST_DEMATIC_ARVATO" "Abschnitt Flowpuffer/Kreisel"
+                              (dematic_arvato:datei)))
   (princ))
 
 ;; Ergebnis-Export (Konvention <name>:export-results fuer test_run_all.lsp)