100 lines
3.7 KiB
Common Lisp
100 lines
3.7 KiB
Common Lisp
;; ============================================================
|
|
;; ILS_test.lsp - Automatisierter ILS Kreisel-Test
|
|
;;
|
|
;; Oeffnet ILStest.dxf, erzeugt 5 Kreisel per draw-module
|
|
;; (gleiche Kernfunktion wie KreiselConnect/KreiselInsert),
|
|
;; exportiert CSV und speichert.
|
|
;;
|
|
;; Voraussetzung: SSG_LIB muss geladen sein (ssg_load.lsp).
|
|
;; ============================================================
|
|
|
|
(defun c:ILSTEST ( / test-pfad dxf-pfad abstand z-hoehe)
|
|
|
|
(princ "\n========== ILS TEST START ==========")
|
|
|
|
(setq test-pfad (getenv "DXFM_TESTS"))
|
|
(if (null test-pfad)
|
|
(progn (princ "\nFEHLER: DXFM_TESTS nicht gesetzt!") (exit))
|
|
)
|
|
|
|
;; DXF oeffnen (erzeugt durch create_ILStest_dxf.py)
|
|
(setq dxf-pfad (strcat test-pfad "/ILStest.dxf"))
|
|
(if (not (findfile dxf-pfad))
|
|
(progn (princ (strcat "\nFEHLER: " dxf-pfad " nicht gefunden!")) (exit))
|
|
)
|
|
(command "_.OPEN" dxf-pfad)
|
|
|
|
;; Konstanten fuer die Geometrie
|
|
;; Linien: H1 bei Y=0, H2 bei Y=5000, V1 bei X=0, V2 bei X=5000
|
|
;; Alle auf Z=2500, je 2000mm lang
|
|
;; Kreiseldurchmesser=800 -> Abstand = Linienabstand - Durchmesser
|
|
(setq abstand (- 5000.0 *kreisel-durchmesser*)) ;; 4200mm
|
|
(setq z-hoehe 2500.0)
|
|
|
|
(ssg-start "ILS TEST" '(("OSMODE") ("CECOLOR") ("ATTREQ") ("ATTDIA")))
|
|
(setvar "OSMODE" 0)
|
|
(setvar "ATTREQ" 0)
|
|
(setvar "ATTDIA" 0)
|
|
|
|
;; ---- Kreisel 1: Horizontal, oben->unten (90°), STANDARD ----
|
|
;; AN-Punkt auf H2 (Y=5000), SP-Richtung nach unten (Y=0)
|
|
;; Rotation 270° = von oben nach unten
|
|
(princ "\n[TEST] Kreisel 1: Horizontal oben->unten, STANDARD")
|
|
(draw-module (list 500.0 5000.0 z-hoehe)
|
|
abstand 270.0
|
|
(list (cons "KREISELART" "STANDARD")
|
|
(cons "NAME" "TEST_H_ObenUnten")))
|
|
|
|
;; ---- Kreisel 2: Horizontal, unten->oben (270°), PIN ----
|
|
;; AN-Punkt auf H1 (Y=0), SP-Richtung nach oben (Y=5000)
|
|
;; Rotation 90° = von unten nach oben
|
|
(princ "\n[TEST] Kreisel 2: Horizontal unten->oben, PIN")
|
|
(draw-module (list 1500.0 0.0 z-hoehe)
|
|
abstand 90.0
|
|
(list (cons "KREISELART" "PIN")
|
|
(cons "NAME" "TEST_H_UntenOben")))
|
|
|
|
;; ---- Kreisel 3: Vertikal, links->rechts (0°), PIN ----
|
|
;; AN-Punkt auf V1 (X=0), SP-Richtung nach rechts (X=5000)
|
|
;; Rotation 0° = von links nach rechts
|
|
(princ "\n[TEST] Kreisel 3: Vertikal links->rechts, PIN")
|
|
(draw-module (list 0.0 500.0 z-hoehe)
|
|
abstand 0.0
|
|
(list (cons "KREISELART" "PIN")
|
|
(cons "NAME" "TEST_V_LinksRechts")))
|
|
|
|
;; ---- Kreisel 4: Vertikal, rechts->links (180°), STANDARD ----
|
|
;; AN-Punkt auf V2 (X=5000), SP-Richtung nach links (X=0)
|
|
;; Rotation 180° = von rechts nach links
|
|
(princ "\n[TEST] Kreisel 4: Vertikal rechts->links, STANDARD")
|
|
(draw-module (list 5000.0 1500.0 z-hoehe)
|
|
abstand 180.0
|
|
(list (cons "KREISELART" "STANDARD")
|
|
(cons "NAME" "TEST_V_RechtsLinks")))
|
|
|
|
;; ---- Kreisel 5: KreiselInsert-Equivalent ----
|
|
;; Position 3000/3000/2000, 6000mm lang, PIN, 10 Grad
|
|
(princ "\n[TEST] Kreisel 5: Insert 3000/3000/2000, 6000mm, PIN, 10°")
|
|
(draw-module (list 3000.0 3000.0 2000.0)
|
|
6000.0 10.0
|
|
(list (cons "KREISELART" "PIN")
|
|
(cons "NAME" "TEST_Insert")))
|
|
|
|
(ssg-end)
|
|
|
|
;; Speichern als DXF
|
|
(command "_.SAVEAS" "DXF" (strcat test-pfad "/ILStest.dxf") "_Y")
|
|
(princ "\n[TEST] DXF gespeichert.")
|
|
|
|
;; Export CSV (nutzt csv:run-export aus tests.lsp)
|
|
;; Ergebnisse landen in DXFM_RESULTS
|
|
(princ "\n[TEST] Starte CSV-Export...")
|
|
(csv:run-export "ILSTEST" "export_csv.py" "ILStest_export.csv")
|
|
|
|
(princ "\n========== ILS TEST ENDE ==========")
|
|
(princ)
|
|
)
|
|
|
|
(princ "\nILS_test.lsp geladen. Befehl: ILSTEST")
|
|
(princ)
|