omniflo Cleanup Routine rausgeworfen. Übernimmt jetzt das Zentralle all_tests.lsp. Ansonsten geht der omniflo csv Export nicht mehr. Kreisel Basisdatensatz entfernt. Nicht mehr in der Form zum test der Kreiselmodule nötig

This commit is contained in:
2026-06-25 19:43:00 +02:00
parent d961c81caf
commit 20dd489468
4 changed files with 8 additions and 121 deletions
+1 -29
View File
@@ -23,35 +23,7 @@ TESTDATA_DIR = os.path.join(TESTS_DIR, "testdata")
OUTPUT_DIR = os.path.join(TESTS_DIR, "output")
def create_kreisel_testbase():
"""Erzeugt Basis-DXF fuer Kreisel-Tests mit Hilfslinien."""
doc = ezdxf.new("R2018")
msp = doc.modelspace()
z = 2500.0
# Horizontale Linienpaare (Abstand 5000mm in Y-Richtung)
msp.add_line((0, 0, z), (2000, 0, z),
dxfattribs={"layer": "S_LP", "color": 1})
msp.add_line((0, 5000, z), (2000, 5000, z),
dxfattribs={"layer": "S_LP", "color": 1})
# Vertikale Linienpaare (Abstand 5000mm in X-Richtung)
msp.add_line((0, 0, z), (0, 2000, z),
dxfattribs={"layer": "S_LP", "color": 1})
msp.add_line((5000, 0, z), (5000, 2000, z),
dxfattribs={"layer": "S_LP", "color": 1})
os.makedirs(OUTPUT_DIR, exist_ok=True)
out_path = os.path.join(OUTPUT_DIR, "kreisel_testbase.dxf")
doc.saveas(out_path)
print(f"[testbase] Kreisel-Basis-DXF erstellt: {out_path}")
return out_path
MODULES = {
"kreisel": create_kreisel_testbase,
}
MODULES = {}
def main():
-40
View File
@@ -100,46 +100,6 @@
)
;; --- 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