Eigene Routine um flache json kv Files zu parsen.

tests/test_omniflo.lsp

@@ -100,6 +100,47 @@
 )
 
 
+;; --- Post-Clean: Omniflo-Testbloecke aus der Zeichnung loeschen ---
+;; Entfernt alle INSERT-Entities mit rein numerischen Blocknamen (Omniflo SivasNr)
+;; sowie AP110-Geraden. Wird vom Test-Runner nach dem Export aufgerufen.
+;; Rueckgabe: Anzahl geloeschter Bloecke
+(defun omniflo:post-clean ( / ss-all i ename ed bname count)
+  (setq count 0)
+  (setq ss-all (ssget "X" (list (cons 0 "INSERT"))))
+  (if ss-all
+    (progn
+      (setq i 0)
+      (while (setq ename (ssname ss-all i))
+        (setq ed (entget ename))
+        (setq bname (cdr (assoc 2 ed)))
+        (if (or
+              ;; Omniflo SivasNr: rein numerisch (beginnt mit Ziffer, kein Unterstrich)
+              (and (wcmatch bname "#*") (null (vl-string-search "_" bname)))
+              ;; Omniflo Geraden
+              (wcmatch (strcase bname) "AP110*,AP_110*")
+            )
+          (progn
+            (entdel ename)
+            (setq count (1+ count))
+          )
+        )
+        (setq i (1+ i))
+      )
+    )
+  )
+  (princ (strcat "\n[OMNIFLO] Post-Clean: " (itoa count) " Bloecke entfernt."))
+  count
+)
+
+
+;; --- BricsCAD-Befehl: Omniflo-Ergebnisse exportieren ---
+(defun c:TEST_OMNIFLO_EXPORT ( / tests-out-dir)
+  (setq tests-out-dir (strcat (getenv "DXFMAKRO") "/tests/output"))
+  (omniflo:export-results tests-out-dir)
+  (princ)
+)
+
+
 ;; ============================================================
 ;; C:TEST_OMNIFLO
 ;;