s.ayadi
fb72792bac
- x-Werte der Kreisel 2-9 auf exakte Beruehrung korrigiert (Kreisel 1 fest, Abweichung in der Zeichnung bis 5.5 mm); alle 8 Weichenpaare beruehren sich - Separatoren und BTMT-Beladung mit ihrem Kreisel verschoben - Hinweis im Testkopf: erneuter Lauf von dxf_anlage_export.py macht die Korrektur rueckgaengig Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
62 lines
2.8 KiB
Common Lisp
62 lines
2.8 KiB
Common Lisp
;; ============================================================
|
|
;; test_test_system.lsp - Nachbau der Testanlage "test_system".
|
|
;;
|
|
;; Datenquelle: tests/testdata/test_system.json. Die Zeichnung wurde mit
|
|
;; unseren Makros gebaut (KREISEL_n-Wrapper, Separatoren, BTMT), die Testdaten
|
|
;; kommen darum aus dem Rueckleser, nicht aus dem Scanner:
|
|
;; python lib/dxf_anlage_export.py \
|
|
;; C:/develop/sps_skel/data/test_system.dxf \
|
|
;; tests/testdata/test_system.json --projekt TestSystem
|
|
;;
|
|
;; Inhalt: 9 Kreisel (STANDARD, Ebenen 0 / 2000 / 3000), 10 Separatoren,
|
|
;; BTMT Beladung und SC Entladung - keine Gefaellestrecken, keine VF.
|
|
;; - Die Kreisel wurden in der Zeichnung einzeln gebaut, die Nummer begann
|
|
;; dabei mehrmals neu bei 1 (vier KREISEL_1_*). dxf_anlage_export.py
|
|
;; vergibt fuer die Doppelten Kreisel_TestSystem_07..09 - die Nummern der
|
|
;; gebauten Zeichnung weichen also von der Vorlage ab.
|
|
;; - Die x-Werte sind NACH dem Rueckleser von Hand korrigiert: in der
|
|
;; Zeichnung lagen die Kreisel bis zu 5.5 mm daneben, jetzt beruehren sich
|
|
;; alle 8 Weichenpaare exakt (1-9, 9-8, 8-7, 7-2, 2-3, 3-4, 4-5, 5-6;
|
|
;; Kreisel 1 fest, Separatoren/BTMT mit ihrem Kreisel verschoben). Ein
|
|
;; erneuter Lauf von dxf_anlage_export.py macht das rueckgaengig.
|
|
;;
|
|
;; Zweck: Vorlage fuer sps_skel. Nachbau -> EXPORTCSV -> CSV, auf die dort
|
|
;; material_flow.py / tro_flow.py / scl_skeleton.py angewendet werden.
|
|
;;
|
|
;; 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_test_system.lsp"))
|
|
;; TEST_TEST_SYSTEM
|
|
;; ============================================================
|
|
|
|
(if (not (boundp '*test-system-records*)) (setq *test-system-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 test_system:datei ()
|
|
(strcat (getenv "DXFMAKRO") "/tests/testdata/test_system.json"))
|
|
|
|
(defun c:TEST_TEST_SYSTEM ()
|
|
(setq *test-system-records*
|
|
(dematic_arvato:bau-datei "TEST_TEST_SYSTEM" "Testanlage test_system"
|
|
(test_system:datei)))
|
|
(princ))
|
|
|
|
;; Ergebnis-Export (Konvention <name>:export-results fuer test_run_all.lsp)
|
|
(defun test_system:export-results (out-dir / pfad)
|
|
(if (null *test-system-records*)
|
|
(princ "\n Keine test_system-Ergebnisse vorhanden.")
|
|
(progn
|
|
(vl-mkdir out-dir)
|
|
(setq pfad (strcat out-dir "/test_system_results.json"))
|
|
(vsp-results-schreiben *test-system-records* pfad)))
|
|
(princ))
|
|
|
|
(princ "\nTEST_TEST_SYSTEM geladen. Aufruf: TEST_TEST_SYSTEM")
|
|
(princ)
|