Omniflo Strecken Test geändert
This commit is contained in:
@@ -29,15 +29,33 @@
|
||||
;; Aufruf in BricsCAD:
|
||||
;; (load "tests/test_omniflo_strecke.lsp")
|
||||
;; TEST_OMNIFLO_STRECKE
|
||||
;;
|
||||
;; Debug: Detail-Ausgaben (pro Element, Diagnosen) laufen ueber die
|
||||
;; ssg_dbg-Routinen und landen NICHT im BricsCAD-Fenster, sondern in einer
|
||||
;; .dbg-Datei. Per Default ist das aus (keine Datei). Zum Einschalten vor
|
||||
;; dem Testlauf:
|
||||
;; (setq *omniflo-strecke-dbg* T)
|
||||
;; Die Datei "omniflo_strecke.dbg" entsteht dann im DXFM_LOG-Verzeichnis.
|
||||
;; Voraussetzung: ssg_dbg.lsp ist geladen (Teil von SSG_LIB).
|
||||
;; ============================================================
|
||||
|
||||
|
||||
;; Debug-Schalter fuer diesen Test (Default: aus). Ein bereits gesetztes T
|
||||
;; wird beim erneuten Laden der Datei NICHT ueberschrieben.
|
||||
(if (null *omniflo-strecke-dbg*) (setq *omniflo-strecke-dbg* nil))
|
||||
|
||||
|
||||
;; --- Bogen-DXF non-interaktiv an gegebenem Punkt einfuegen ---
|
||||
(defun omnistr:insert-bogen (sivasnr-str insert-pt hoehe-str drehung-str /
|
||||
dxf-pfad omniflo-pfad blockEnt angleDeg)
|
||||
(dbgf "omnistr:insert-bogen")
|
||||
(dbgmsg (strcat "sivasnr=" (if sivasnr-str sivasnr-str "nil")
|
||||
" drehung=" (if drehung-str drehung-str "nil")))
|
||||
(setq omniflo-pfad (getenv "DXFM_OMNIFLO"))
|
||||
(dbgreturn
|
||||
(if (null omniflo-pfad)
|
||||
(progn
|
||||
;; Konfigurationsfehler: bleibt bewusst im Fenster sichtbar
|
||||
(princ "\n[TEST_OMNIFLO_STRECKE] FEHLER: DXFM_OMNIFLO nicht gesetzt!")
|
||||
nil
|
||||
)
|
||||
@@ -45,7 +63,7 @@
|
||||
(setq dxf-pfad (strcat omniflo-pfad "/" sivasnr-str ".dxf"))
|
||||
(if (not (findfile dxf-pfad))
|
||||
(progn
|
||||
(princ (strcat "\n[TEST_OMNIFLO_STRECKE] WARNUNG: DXF nicht gefunden: " dxf-pfad))
|
||||
(dbgmsg (strcat "WARNUNG: DXF nicht gefunden: " dxf-pfad))
|
||||
nil
|
||||
)
|
||||
(progn
|
||||
@@ -65,6 +83,7 @@
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
@@ -76,8 +95,14 @@
|
||||
;; Rueckgabe: Block-Entity oder nil.
|
||||
(defun omnistr:build-gerade (profil pt-anf pt-end hoehe-str drehung-str /
|
||||
srcAttribs textHeight textGap blockEnt)
|
||||
(dbgf "omnistr:build-gerade")
|
||||
(dbgmsg (strcat "profil=" (if profil profil "nil")
|
||||
" hoehe=" (if hoehe-str hoehe-str "nil")
|
||||
" drehung=" (if drehung-str drehung-str "nil")))
|
||||
(dbgreturn
|
||||
(if (null (car (atoms-family 1 '("OMNI:MAKE-GERADE"))))
|
||||
(progn
|
||||
;; Precondition-Fehler (Modul nicht geladen): bleibt im Fenster sichtbar
|
||||
(princ "\n[TEST_OMNIFLO_STRECKE] FEHLER: omni:make-gerade nicht geladen (OmniModulInsert.lsp)!")
|
||||
nil
|
||||
)
|
||||
@@ -87,9 +112,12 @@
|
||||
;; Quell-Attribute lesen; falls keine .dwg vorhanden, Ersatz erzeugen
|
||||
(setq srcAttribs (omni:read-src-attribs profil))
|
||||
(if (null srcAttribs)
|
||||
(setq srcAttribs (list (cons "PROFILTYP" profil)
|
||||
(cons "HOEHE" (if hoehe-str hoehe-str "2000"))
|
||||
(cons "ID" "")))
|
||||
(progn
|
||||
(dbgmsg (strcat "keine Quell-.dwg fuer " profil " - Ersatz-Attribute"))
|
||||
(setq srcAttribs (list (cons "PROFILTYP" profil)
|
||||
(cons "HOEHE" (if hoehe-str hoehe-str "2000"))
|
||||
(cons "ID" "")))
|
||||
)
|
||||
)
|
||||
(setvar "ATTREQ" 0)
|
||||
(setvar "ATTDIA" 0)
|
||||
@@ -103,6 +131,7 @@
|
||||
blockEnt
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
@@ -163,6 +192,10 @@
|
||||
(setvar "ATTREQ" 0)
|
||||
(setvar "ATTDIA" 0)
|
||||
|
||||
;; Debug-Datei nur bei aktivem Schalter anlegen (siehe Kopf der Datei)
|
||||
(if *omniflo-strecke-dbg* (dbgopen "omniflo_strecke.dbg" "DXFM_LOG"))
|
||||
(dbgf "TEST_OMNIFLO_STRECKE")
|
||||
|
||||
(setq tests-json-pfad
|
||||
(strcat (getenv "DXFMAKRO") "/tests/testdata/omniflo_strecke_tests.json"))
|
||||
|
||||
@@ -170,7 +203,9 @@
|
||||
(progn
|
||||
(princ (strcat "\n[TEST_OMNIFLO_STRECKE] FEHLER: Testdaten nicht gefunden: "
|
||||
tests-json-pfad))
|
||||
(dbgmsg (strcat "ABBRUCH: Testdaten nicht gefunden: " tests-json-pfad))
|
||||
(ssg-end)
|
||||
(if *omniflo-strecke-dbg* (progn (dbgreturn nil) (dbgclose)))
|
||||
(princ)
|
||||
)
|
||||
(progn
|
||||
@@ -178,7 +213,9 @@
|
||||
(if (null elemente)
|
||||
(progn
|
||||
(princ "\n[TEST_OMNIFLO_STRECKE] FEHLER: Testdaten konnten nicht geladen werden.")
|
||||
(dbgmsg "ABBRUCH: Testdaten konnten nicht geladen werden.")
|
||||
(ssg-end)
|
||||
(if *omniflo-strecke-dbg* (progn (dbgreturn nil) (dbgclose)))
|
||||
(princ)
|
||||
)
|
||||
(progn
|
||||
@@ -222,10 +259,10 @@
|
||||
(setq insert-pt (list x-val y-val (atof hoehe-str)))
|
||||
(setq pt-end (list xe-val ye-val (atof hoehe-str)))
|
||||
|
||||
(princ (strcat "\n " (itoa seq) ". " (if typ typ "?") ": "
|
||||
(if description description "")
|
||||
" -> (" (rtos x-val 2 0) ", " (rtos y-val 2 0)
|
||||
") @ " drehung-str))
|
||||
(dbgmsg (strcat (itoa seq) ". " (if typ typ "?") ": "
|
||||
(if description description "")
|
||||
" -> (" (rtos x-val 2 0) ", " (rtos y-val 2 0)
|
||||
") @ " drehung-str))
|
||||
|
||||
;; Element aufbauen je nach Typ
|
||||
(setq ergebnis
|
||||
@@ -238,12 +275,15 @@
|
||||
(if (null profil) (setq profil "AP110"))
|
||||
(omnistr:build-gerade profil insert-pt pt-end hoehe-str drehung-str))
|
||||
(T
|
||||
(princ (strcat "\n WARNUNG: unbekannter Typ '"
|
||||
(if typ typ "nil") "'"))
|
||||
(dbgmsg (strcat "WARNUNG: unbekannter Typ '"
|
||||
(if typ typ "nil") "'"))
|
||||
nil)
|
||||
)
|
||||
)
|
||||
|
||||
(dbgmsg (strcat " -> " (if ergebnis "OK ent=" "FEHLER")
|
||||
(if ergebnis (vl-princ-to-string ergebnis) "")))
|
||||
|
||||
(if ergebnis
|
||||
(progn
|
||||
(setq anzahl-ok (1+ anzahl-ok))
|
||||
@@ -266,10 +306,14 @@
|
||||
(princ (strcat "\n Aufgebaut: " (itoa anzahl-ok)
|
||||
" OK, " (itoa anzahl-fehler) " Fehler"))
|
||||
(princ "\n================================================================")
|
||||
(dbgmsg (strcat "Aufgebaut: " (itoa anzahl-ok)
|
||||
" OK, " (itoa anzahl-fehler) " Fehler"))
|
||||
|
||||
(setq *omniflo-strecke-test-results* (reverse results-list))
|
||||
|
||||
(ssg-end)
|
||||
(dbgreturn (list anzahl-ok anzahl-fehler))
|
||||
(if *omniflo-strecke-dbg* (dbgclose))
|
||||
|
||||
(princ "\n TEST_OMNIFLO_STRECKE abgeschlossen.")
|
||||
(princ)
|
||||
|
||||
Reference in New Issue
Block a user