[CHANGE] Lager-Export nur noch als JSON mit Kennwerten, Gitterkorb unter Regalreihen

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

tests/test_lager.lsp

@@ -5,16 +5,15 @@
 ;;   - zwei Geschosse auf derselben 2D-Kontur (EG Hallenboden, OG 3100 mm)
 ;;   - einen Lagerbereich 10000 x 6000 im OG mit Auto-Fuellung
 ;; und prueft Bloecke, Attribute, Layer, Neuberechnung (keine Verdopplung),
-;; den Neuaufbau einer geaenderten Reihe, die Rohdaten von LAGER_EXPORT und
-;; die Zaehlung von LG_REGALE.
+;; den Neuaufbau einer geaenderten Reihe, die JSON-Daten von LAGER_EXPORT
+;; (inkl. Kennwerte und Gitterkorb) und die Zaehlung von LG_REGALE.
 ;;
 ;; Aufruf in BricsCAD:
 ;;   (load (strcat (getenv "DXFMAKRO") "/tests/test_lager.lsp"))
 ;;   TEST_LAGER
 ;;
 ;; Speichert tests/output/lager_results.json (Konvention test_run_all)
-;; und tests/output/lager_tests_lager_raw.json (Eingabe fuer
-;; lib/lager_yaml_export.py).
+;; und tests/output/lager_tests_lager.json (Beispiel der Export-Datei).
 ;; ============================================================
 
 (setq *tlg-pass* 0  *tlg-fail* 0  *tlg-fails* '())
@@ -80,7 +79,11 @@
   (mapcar '(lambda (ed) (cons (cdr (assoc 2 ed)) T))
           (vl-remove-if-not '(lambda (ed) (= (cdr (assoc 0 ed)) "ATTDEF")) (lg-blockdef-objekte bname))))
 
-(defun lager:tests ( / k0 k1 g0 g1 kb bereich reihen gaenge r0 neu raw daten pfad f
+;; Geschoss-Objekt Nr. nr aus den geparsten Export-Daten.
+(defun tlg-export-geschoss (daten nr)
+  (vl-some '(lambda (g) (if (= (ssg-json-get g "nr") nr) g)) (ssg-json-get daten "geschosse")))
+
+(defun lager:tests ( / k0 k1 g0 g1 kb bereich reihen gaenge r0 neu raw daten pfad f eg0 eg1 kr
                        kb2 b2 kinder mg mg2 hg alt eb
                        r1 gg1 n-alt g2 r2 gg2 ids b2k n-kinder bb rg rk zl
                        b3 rh3 mg3 ge3 ag3 n3 mr3 alt3)
@@ -159,23 +162,36 @@
   (tlg-eq "reihenzahl gleich" 8 (length (lg-alle-bloecke "LG_REIHE_*")))
   (tlg-eq "geaenderte reihe bleibt kind" T (if (member neu (lg-bereich-kinder bereich)) T nil))
 
-  ;; --- Rohdaten fuer LAGER_EXPORT ---
+  ;; --- JSON-Daten von LAGER_EXPORT ---
   (setq raw (lg-export-json))
   (setq daten (ssg-json-parse raw))
+  (tlg-eq "export format" '("ssg-lager" 2) (list (ssg-json-get daten "format") (ssg-json-get daten "version")))
   (tlg-eq "export geschosse" 2 (length (ssg-json-get daten "geschosse")))
   (tlg-eq "export bereiche"  1 (length (ssg-json-get daten "bereiche")))
   (tlg-eq "export reihen"    8 (length (ssg-json-get daten "reihen")))
   (tlg-eq "export land" "DE" (ssg-json-get daten "land"))
-  (tlg-eq "export konturflaeche" 6.0e7
-          (ssg-json-get (car (vl-remove-if-not '(lambda (g) (= (ssg-json-get g "nr") 1))
-                                               (ssg-json-get daten "geschosse")))
-                        "kontur_flaeche_mm2"))
+  (setq eg1 (tlg-export-geschoss daten 1) eg0 (tlg-export-geschoss daten 0))
+  (tlg-eq "export konturflaeche" 6.0e7 (ssg-json-get (ssg-json-get eg1 "kontur") "flaeche_mm2"))
+  (tlg-eq "export konturpunkte" 4 (length (ssg-json-get (ssg-json-get eg1 "kontur") "punkte")))
   (tlg-eq "export haengeebenen"
           '((("schienenhoehe_mm" . 2300) ("warenlaenge_mm" . 1200))
             (("schienenhoehe_mm" . 1100) ("warenlaenge_mm" . 1100)))
           (ssg-json-get (vl-some '(lambda (r) (if (= (ssg-json-get r "laenge_mm") 4000) r))
                                  (ssg-json-get daten "reihen"))
                         "haengeebenen"))
+  (tlg-eq "export ecken" 4 (length (ssg-json-get (car (ssg-json-get daten "reihen")) "ecken")))
+  (tlg-eq "export ende" T (if (ssg-json-get (car (ssg-json-get daten "reihen")) "ende") T))
+  ;; Kennwerte: Regallaenge = Summe der Reihen, lichte Hoehe EG = 3100 - 150 - 0
+  (tlg-eq "export regallaenge G1" (tlg-summe-attr (tlg-gs "LG_REIHE_*" 1) "LAENGE")
+          (ssg-json-get (ssg-json-get eg1 "kennwerte") "regallaenge_mm"))
+  (tlg-eq "export haengeebenen G1" 2 (length (ssg-json-get (ssg-json-get eg1 "kennwerte") "haengeebenen")))
+  (tlg-eq "export lichte G0" 2950 (ssg-json-get (ssg-json-get eg0 "kennwerte") "lichte_hoehe_mm"))
+  (tlg-eq "export G0 keine buehne" nil (ssg-json-get (ssg-json-get eg0 "kennwerte") "buehne"))
+  (tlg-eq "export G1 herkunft" T (if (ssg-json-get (ssg-json-get eg1 "herkunft") "gitterrostflaeche_mm2") T))
+  (tlg-eq "export G1 unter gitterrost" T
+          (vl-every '(lambda (r) (= (ssg-json-get r "unter_reihe") "gitterrost")) (ssg-json-get daten "reihen")))
+  (tlg-eq "export lager regallaenge" (ssg-json-get (ssg-json-get eg1 "kennwerte") "regallaenge_mm")
+          (ssg-json-get (ssg-json-get daten "lager") "regallaenge_mm"))
 
   ;; --- Randgaenge Nord + Sued, Schraffur je Belag ---
   (setq kb2 (tlg-rechteck 20000.0 0.0 30000.0 6000.0))
@@ -243,7 +259,29 @@
           (length (vl-remove-if-not '(lambda (g) (= (ssg-json-get g "quelle") "manuell"))
                                     (ssg-json-get daten "gaenge"))))
 
-  (setq pfad (strcat (getenv "DXFMAKRO") "/tests/output/lager_tests_lager_raw.json"))
+  ;; --- Gitterkorb unter den Reihen des ersten Bereichs (G1) ---
+  (lg-attribute-setzen bereich (list (cons "UNTER_REIHE" "gitterkorb") (cons "GITTERKORB_HOEHE_mm" "500")))
+  (setq raw (lg-export-json) daten (ssg-json-parse raw))
+  (setq kr (vl-remove-if-not '(lambda (r) (= (ssg-json-get r "unter_reihe") "gitterkorb"))
+                             (ssg-json-get daten "reihen")))
+  (tlg-eq "gitterkorb: reihen" (length (vl-remove-if-not '(lambda (k) (wcmatch (cdr (assoc 2 (entget k))) "LG_REIHE_*"))
+                                                         (lg-bereich-kinder bereich)))
+          (length kr))
+  (tlg-eq "gitterkorb: seitenflaeche > 0" T
+          (vl-every '(lambda (r) (> (ssg-json-get (ssg-json-get r "gitterkorb") "seitenflaeche_mm2") 0)) kr))
+  ;; Ruecken an Ruecken: es sind nicht alle Laengsseiten offen
+  (tlg-eq "gitterkorb: anliegende kanten zu" T
+          (< (apply '+ (mapcar '(lambda (r) (ssg-json-get (ssg-json-get r "gitterkorb") "offen_laengs_mm")) kr))
+             (* 2.0 (apply '+ (mapcar '(lambda (r) (ssg-json-get r "laenge_mm")) kr)))))
+  (setq eg1 (tlg-export-geschoss daten 1))
+  (tlg-eq "gitterkorb: kennwerte G1" (length kr)
+          (ssg-json-get (ssg-json-get (ssg-json-get eg1 "kennwerte") "gitterkorb") "reihen"))
+  (tlg-eq "gitterkorb: bereich" "gitterkorb"
+          (ssg-json-get (vl-some '(lambda (b) (if (= (ssg-json-get b "nr") (atoi (tlg-attr bereich "NR"))) b))
+                                 (ssg-json-get daten "bereiche"))
+                        "unter_reihe"))
+
+  (setq pfad (strcat (getenv "DXFMAKRO") "/tests/output/lager_tests_lager.json"))
   (if (setq f (open pfad "w")) (progn (princ raw f) (close f)))
 
   ;; --- Geschoss kopieren: G1 (3100, Spanplatte) -> G2, G3 mit Gitterrost ---
@@ -296,6 +334,7 @@
   (tlg-eq "kopie: hallenboden bleibt" 1 (length (tlg-nur gg2 "LG_GANG_2000_1500_HALLENBODEN")))
   (tlg-eq "kopie: bereich belag" T
           (vl-every '(lambda (b) (= (tlg-attr b "BELAG") "gitterrost")) (tlg-gs "LG_BEREICH" 2)))
+  (tlg-eq "kopie: unter_reihe gitterkorb" 1 (tlg-anzahl-attr (tlg-gs "LG_BEREICH" 2) "UNTER_REIHE" "gitterkorb"))
   ;; Neufuellen einer Kopie laesst die Quelle in Ruhe, manueller Gang bleibt
   (setq b2k (vl-some '(lambda (b) (if (= (tlg-attr b "RANDGANG_N_mm") "1000") b)) (tlg-gs "LG_BEREICH" 2)))
   (setq n-kinder (length (lg-bereich-kinder b2k)))