Gefällestrecke nach dem gleichen Muster bedaten wie die anderen Tests. Eingabedaten aus dem Test in json Datei gezogen. Ergänzung des Testsfalls durch Ergänzung des testsdata/*_tests.json möglich

tests/test_foerderer.lsp

@@ -75,6 +75,7 @@
                             y-offset y-abstand idx
                             anz-gebaut anz-nicht-gebaut results-list
                             startpunkt vf-nummer hoehe-von hoehe-bis lastEnt
+                            sub-ent sub-typ
                             tests-out-dir old-dxfm-results)
 
   ;; Bibliothek initialisieren (laedt Block-Library und extrahiert Masse)
@@ -103,7 +104,7 @@
   ;; Konfiguration aus erstem Eintrag (ohne test_id)
   (setq cfg (car testdaten))
   (setq y-abstand (ssg-val cfg "y_abstand"))
-  (if (or (null y-abstand) (= y-abstand 0)) (setq y-abstand 400))
+  (if (or (null y-abstand) (= y-abstand 0)) (setq y-abstand 800))
 
   ;; Nur Eintraege mit test_id sind Testfaelle
   (setq tests
@@ -174,6 +175,19 @@
                                 hoehe-von hoehe-bis deltaH deltaL L_VF L_GF
                                 richtung best-winkel startpunkt lastEnt)
 
+            ;; lastEnt hinter den SEQEND des VF-Blocks schieben.
+            ;; Ohne diesen Schritt wuerde entnext vom INSERT-Entity
+            ;; in die ATTRIB-Kette des gerade erstellten VF-Blocks
+            ;; springen und diese beim naechsten _.-BLOCK-Aufruf
+            ;; in den neuen Block verschieben (Datenverlust).
+            (setq lastEnt (entlast))
+            (setq sub-ent (entnext lastEnt))
+            (while (and sub-ent
+                        (not (equal (cdr (assoc 0 (entget sub-ent))) "SEQEND")))
+              (setq lastEnt sub-ent)
+              (setq sub-ent (entnext lastEnt)))
+            (if sub-ent (setq lastEnt sub-ent))
+
             (setq results-list (cons
               (foerderer:test-result-json test-id richtung deltaL deltaH
                                           "GEBAUT" best-winkel L_GF L_VF)