71 lines
3.4 KiB
Common Lisp
71 lines
3.4 KiB
Common Lisp
;; ============================================================
|
|
;; test_showroom_ils.lsp - Nachbau des ILS-3.0-Showrooms.
|
|
;;
|
|
;; Datenquelle: tests/testdata/showroom_ils.json. Entstehung in zwei Stufen:
|
|
;; 1. Scanner auf der Fremdzeichnung (flacher 2D-Plan, Hoehen vom Anwender):
|
|
;; python lib/dxf_scan_components.py \
|
|
;; C:/develop/sps_skel/data/Showroom_ILS_3_0.dxf data \
|
|
;; tests/testdata/showroom_ils.json --projekt Showroom \
|
|
;; --flach --ohne-hoehen \
|
|
;; --kreisel-achse 27797.93 16298.90 36705.93 16298.90 \
|
|
;; --kreisel-achse 28772.93 13093.90 35305.93 13093.90 \
|
|
;; --kreisel-hoehe 26997.93 3066.4 5055 \
|
|
;; --kreisel-hoehe 26997.93 12898.9 5055 \
|
|
;; --kreisel-hoehe 37105.93 9888.9 1700 \
|
|
;; --kreisel-hoehe 27397.93 16298.9 5055 \
|
|
;; --kreisel-hoehe 28372.93 13093.9 3195
|
|
;; 2. VON HAND (geht bei Stufe 1 verloren - danach neu eintragen):
|
|
;; Kreisel_Showroom_04 (vertikal, rechts) samt Separator/Scanner bei
|
|
;; y=14979 entfernt, dafuer VF_Showroom_01 (VarioFoerderer standard,
|
|
;; Auf von Kreisel_Showroom_03 zu Kreisel_Showroom_05) eingetragen.
|
|
;;
|
|
;; Inhalt: 5 Kreisel, 1 VarioFoerderer, 11 Gefaellestrecken (Modus 1),
|
|
;; Separatoren/Scanner.
|
|
;; - Ebenen: oben 5055 (Kreisel 01/02/05), Mitte 3195 (06), unten 1700 (03).
|
|
;; - Kreisel_Showroom_05/06 sind Schleifen ohne AN8/SP8 im Plan (an beiden
|
|
;; Enden Weichenboegen) - per --kreisel-achse als STANDARD-Kreisel
|
|
;; angenaehert (Radmitten = Mittelpunkte der PIN-Kreise).
|
|
;; - Weichen (WB-*/WM-*/WL-*/WR-*) werden bewusst NICHT nachgebaut.
|
|
;; - Die GF sind steil (1860 bzw. 1495 mm Abfall auf 2405 mm) - den Winkel
|
|
;; und die Staustreckenlaenge rechnet dematic_arvato:gf-geometrie aus
|
|
;; hoehe_ende_mm (ES-Masse bei der Neigung gemessen), und
|
|
;; dematic_arvato:gf-endhoehe-pruefen meldet "warnung", wenn eine GF
|
|
;; den unteren Kreisel um mehr als 5 mm verfehlt.
|
|
;;
|
|
;; Keine eigene Bau-Logik: Eintragsschema und Lauf wie TEST_DEMATIC_ARVATO
|
|
;; (dematic_arvato:bau-datei aus tests/test_dematic_arvato.lsp).
|
|
;;
|
|
;; Aufruf in BricsCAD:
|
|
;; (load (strcat (getenv "DXFMAKRO") "/tests/test_showroom_ils.lsp"))
|
|
;; TEST_SHOWROOM_ILS
|
|
;; ============================================================
|
|
|
|
(if (not (boundp '*showroom-ils-records*)) (setq *showroom-ils-records* nil))
|
|
|
|
;; Beim LADEN holen (siehe test_dematic_arvato.lsp: per load definierte
|
|
;; Funktionen sind erst nach Rueckkehr zum Top-Level sichtbar).
|
|
(if (null (car (atoms-family 1 '("DEMATIC_ARVATO:BAU-DATEI"))))
|
|
(load (strcat (getenv "DXFMAKRO") "/tests/test_dematic_arvato.lsp")))
|
|
|
|
(defun showroom_ils:datei ()
|
|
(strcat (getenv "DXFMAKRO") "/tests/testdata/showroom_ils.json"))
|
|
|
|
(defun c:TEST_SHOWROOM_ILS ()
|
|
(setq *showroom-ils-records*
|
|
(dematic_arvato:bau-datei "TEST_SHOWROOM_ILS" "ILS 3.0 Showroom"
|
|
(showroom_ils:datei)))
|
|
(princ))
|
|
|
|
;; Ergebnis-Export (Konvention <name>:export-results fuer test_run_all.lsp)
|
|
(defun showroom_ils:export-results (out-dir / pfad)
|
|
(if (null *showroom-ils-records*)
|
|
(princ "\n Keine Showroom-Ergebnisse vorhanden.")
|
|
(progn
|
|
(vl-mkdir out-dir)
|
|
(setq pfad (strcat out-dir "/showroom_ils_results.json"))
|
|
(vsp-results-schreiben *showroom-ils-records* pfad)))
|
|
(princ))
|
|
|
|
(princ "\nTEST_SHOWROOM_ILS geladen. Aufruf: TEST_SHOWROOM_ILS")
|
|
(princ)
|