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

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

tests/test_unit.lsp

@@ -3409,9 +3409,127 @@
       (tu-eq "lg-json-wert/rund"  "1000"  (lg-json-wert 1000.0))
       (tu-eq "lg-json-wert/str"   "\"a\\\"b\"" (lg-json-wert "a\"b"))
       (tu-eq "lg-json-wert/roh"   "[1]"   (lg-json-wert (list 'ROH "[1]")))
+      (tu-eq "lg-json-wert/false" "false" (lg-json-wert 'FALSE))
+      (tu-eq "lg-json-wert/umlaut" "\"G\\u00e4\"" (lg-json-wert (strcat "G" (chr 228))))
       (tu-eq "lg-json-obj" "{\"a\": 1, \"b\": \"x\"}" (lg-json-obj '(("a" . 1) ("b" . "x"))))
-      (tu-eq "lg-json-ebenen" "[{\"schienenhoehe_mm\": 2300, \"warenlaenge_mm\": 1200}]"
-             (cadr (lg-json-ebenen "2300/1200")))
+      (tu-eq "lg-json-wert/obj-arr" "{\"p\": [1, 2.5], \"o\": {\"x\": null}}"
+             (lg-json-wert (list 'OBJ (cons "p" (list 'ARR 1 2.5)) (cons "o" (list 'OBJ (cons "x" nil))))))
+      (tu-eq "lg-json-wert/leer" "[]" (lg-json-wert (list 'ARR)))
+      (tu-eq "lg-j-ebenen" "[{\"schienenhoehe_mm\": 2300, \"warenlaenge_mm\": 1200}]"
+             (lg-json-wert (lg-j-ebenen "2300/1200")))
+      ;; kleine Container einzeilig, grosse je Eintrag eine Zeile
+      (tu-eq "lg-json-text/klein" "{\"a\": 1}" (lg-json-text (list 'OBJ (cons "a" 1)) ""))
+      (setq _gross (cons 'OBJ (mapcar '(lambda (i) (cons (itoa i) i)) '(1 2 3 4 5 6 7 8 9 10 11 12 13))))
+      (tu-eq "lg-json-text/gross-zeilen" 15
+             (length (ssg-sepliste-split-feld (lg-json-text _gross "") "\n")))
+      (tu-eq "lg-json-text/punkte-einzeilig" 1
+             (length (ssg-sepliste-split-feld
+                       (lg-json-text (lg-j-pkte '((0 0) (1 0) (1 1) (0 1) (0 2) (2 2) (2 0))) "") "\n")))
+      (tu-eq "lg-j-setzen/neu" 2 (lg-j (lg-j-setzen (list 'OBJ (cons "a" 1)) "b" 2) "b"))
+      (tu-eq "lg-j-setzen/ersetzen" '(OBJ ("a" . 3)) (lg-j-setzen (list 'OBJ (cons "a" 1)) "a" 3))
+
+      ;; --- Kennwerte (Export) ---
+      (tu-eq "lg-buehne-p" '(T nil nil nil)
+             (mapcar 'lg-buehne-p '("spanplatte" "hallenboden" "" nil)))
+      (tu-eq "lg-unter-reihe-wert" '("gitterkorb" "gitterrost" "keine" "keine" "gitterrost")
+             (list (lg-unter-reihe-wert "gitterkorb" "gitterrost" T)
+                   (lg-unter-reihe-wert "" "gitterrost" T)
+                   (lg-unter-reihe-wert "keine" "gitterrost" T)
+                   (lg-unter-reihe-wert "gitterkorb" "gitterrost" nil)
+                   (lg-unter-reihe-wert "quatsch" "unbekannt" T)))
+      (setq _r1 (list 'OBJ (cons "laenge_mm" 4000.0) (cons "tiefe_mm" 700.0) (cons "schienen" 1)
+                      (cons "haengeebenen" (lg-j-ebenen "2300/1200;1100/1100"))
+                      (cons "unter_reihe" "gitterrost"))
+            _r2 (list 'OBJ (cons "laenge_mm" 2000.0) (cons "tiefe_mm" 700.0) (cons "schienen" 2)
+                      (cons "haengeebenen" (lg-j-ebenen "2300/1200"))
+                      (cons "unter_reihe" "gitterrost")))
+      (tu-eqf "lg-haengeebenen-summen"
+              '(ARR (OBJ ("schienenhoehe_mm" . 2300.0) ("warenlaenge_mm" . 1200.0) ("reihen" . 2) ("regallaenge_mm" . 6000.0))
+                    (OBJ ("schienenhoehe_mm" . 1100.0) ("warenlaenge_mm" . 1100.0) ("reihen" . 1) ("regallaenge_mm" . 4000.0)))
+              (lg-haengeebenen-summen (list _r1 _r2)))
+      (setq _ga (list (list 'OBJ (cons "art" "gang") (cons "belag" "spanplatte") (cons "laenge_mm" 10000.0) (cons "breite_mm" 1000.0))
+                      (list 'OBJ (cons "art" "randgang") (cons "belag" "gitterrost") (cons "laenge_mm" 5000.0) (cons "breite_mm" 800.0))
+                      (list 'OBJ (cons "art" "gang") (cons "belag" "spanplatte") (cons "laenge_mm" 2000.0) (cons "breite_mm" 1000.0))))
+      (tu-eqf "lg-gaenge-je-art"
+              '(OBJ ("gang" OBJ ("anzahl" . 2) ("laenge_mm" . 12000.0) ("flaeche_mm2" . 1.2e7))
+                    ("quergang" OBJ ("anzahl" . 0) ("laenge_mm" . 0.0) ("flaeche_mm2" . 0.0))
+                    ("randgang" OBJ ("anzahl" . 1) ("laenge_mm" . 5000.0) ("flaeche_mm2" . 4.0e6)))
+              (lg-gaenge-je-art _ga))
+      ;; Geschoss 1 (Spanplatte, 3100) unter Geschoss 2 (6100, Konstr. 250)
+      (setq _g1 (list 'OBJ (cons "nr" 1) (cons "hoehe_belag_mm" 3100.0) (cons "konstr_hoehe_mm" 250.0)
+                      (cons "lichte_hoehe_mm" nil) (cons "belag_art" "spanplatte")
+                      (cons "kontur" (list 'OBJ (cons "flaeche_mm2" 6.0e7))))
+            _g2 (list 'OBJ (cons "nr" 2) (cons "hoehe_belag_mm" 6100.0) (cons "konstr_hoehe_mm" 250.0)
+                      (cons "lichte_hoehe_mm" nil) (cons "belag_art" "spanplatte")))
+      (setq _kw (car (lg-kennwerte-geschoss _g1 _g2 (list _r1 _r2) _ga 1)))
+      (tu-eqf "lg-kennwerte/lichte-berechnet" 2750.0 (lg-j _kw "lichte_hoehe_mm"))
+      (tu-eqf "lg-kennwerte/regallaenge" 6000.0 (lg-j _kw "regallaenge_mm"))
+      (tu-eqf "lg-kennwerte/grundflaeche" 4.2e6 (lg-j _kw "regalgrundflaeche_mm2"))
+      (tu-eqf "lg-kennwerte/schienen" 8000.0 (lg-j _kw "schienenlaenge_mm"))
+      (tu-eqf "lg-kennwerte/belag-gaenge" 1.2e7 (lg-j _kw "belagsflaeche_mm2"))
+      ;; Gitterrost = Randgang gitterrost 4e6 + Reihen 4.2e6
+      (tu-eqf "lg-kennwerte/gitterrost" 8.2e6 (lg-j _kw "gitterrostflaeche_mm2"))
+      (tu-eq  "lg-kennwerte/buehne" T (lg-j _kw "buehne"))
+      (tu-eq  "lg-kennwerte/herkunft" T
+              (if (lg-j (cadr (lg-kennwerte-geschoss _g1 _g2 (list _r1 _r2) _ga 1)) "belagsflaeche_mm2") T))
+      ;; ohne Gaenge: Konturflaeche - Reihengrundflaeche; oberstes ohne Vorgabe -> nil
+      (setq _kw (car (lg-kennwerte-geschoss _g1 nil (list _r1 _r2) nil 1)))
+      (tu-eqf "lg-kennwerte/belag-kontur" (- 6.0e7 4.2e6) (lg-j _kw "belagsflaeche_mm2"))
+      (tu-nil "lg-kennwerte/lichte-oben" (lg-j _kw "lichte_hoehe_mm"))
+      (tu-eqf "lg-kennwerte/lichte-vorgabe" 2800.0
+              (lg-j (car (lg-kennwerte-geschoss (lg-j-setzen _g1 "lichte_hoehe_mm" 2800.0) _g2 nil nil 0))
+                    "lichte_hoehe_mm"))
+      ;; Hallenboden: keine Buehne, keine Flaechen
+      (setq _kw (car (lg-kennwerte-geschoss (lg-j-setzen _g1 "belag_art" "hallenboden") _g2 (list _r1) _ga 1)))
+      (tu-eq  "lg-kennwerte/hallenboden" 'FALSE (lg-j _kw "buehne"))
+      (tu-nil "lg-kennwerte/hallenboden-belag" (lg-j _kw "belagsflaeche_mm2"))
+      (tu-nil "lg-kennwerte/hallenboden-gitter" (lg-j _kw "gitterrostflaeche_mm2"))
+
+      ;; --- Gitterkorb: offene Kanten ---
+      ;; Einzelreihe 4000 x 700: alles offen
+      (setq _e1 '((0.0 -350.0) (4000.0 -350.0) (4000.0 350.0) (0.0 350.0))
+            _e2 '((0.0 350.0) (4000.0 350.0) (4000.0 1050.0) (0.0 1050.0))
+            _e3 '((2000.0 1050.0) (6000.0 1050.0) (6000.0 1750.0) (2000.0 1750.0)))
+      (tu-eqf "lg-offene-kanten/einzeln" '((8000.0 1400.0)) (lg-reihen-offene-kanten (list _e1) 1.0))
+      ;; Ruecken an Ruecken: je eine Laengsseite zu
+      (tu-eqf "lg-offene-kanten/ruecken" '((4000.0 1400.0) (4000.0 1400.0))
+              (lg-reihen-offene-kanten (list _e1 _e2) 1.0))
+      ;; Teilueberlappung: _e3 liegt nur auf 2000 mm an _e2 an (_e2 unten ganz an _e1)
+      (tu-eqf "lg-offene-kanten/teilweise" '((2000.0 1400.0) (6000.0 1400.0))
+              (cdr (lg-reihen-offene-kanten (list _e1 _e2 _e3) 1.0)))
+      ;; Abstand > Toleranz: nicht anliegend
+      (tu-eqf "lg-offene-kanten/abstand" '((8000.0 1400.0) (8000.0 1400.0))
+              (lg-reihen-offene-kanten
+                (list _e1 '((0.0 360.0) (4000.0 360.0) (4000.0 1060.0) (0.0 1060.0))) 1.0))
+      ;; Gitterkorb vervollstaendigen: Boden, offene Kanten, Seitenflaeche
+      (setq _rk (lg-reihen-gitterkorb-berechnen
+                  (list (list 'OBJ (cons "laenge_mm" 4000.0) (cons "tiefe_mm" 700.0)
+                              (cons "ecken" (lg-j-pkte _e1))
+                              (cons "gitterkorb" (list 'OBJ (cons "hoehe_mm" 500.0))))
+                        (list 'OBJ (cons "laenge_mm" 4000.0) (cons "tiefe_mm" 700.0)
+                              (cons "ecken" (lg-j-pkte _e2)) (cons "gitterkorb" nil)))
+                  1.0))
+      (setq _gk (lg-j (car _rk) "gitterkorb"))
+      (tu-eqf "lg-gitterkorb/boden" 2.8e6 (lg-j _gk "bodenflaeche_mm2"))
+      (tu-eqf "lg-gitterkorb/laengs" 4000.0 (lg-j _gk "offen_laengs_mm"))
+      (tu-eqf "lg-gitterkorb/seite" (* 500.0 5400.0) (lg-j _gk "seitenflaeche_mm2"))
+      (tu-nil "lg-gitterkorb/ohne" (lg-j (cadr _rk) "gitterkorb"))
+      ;; Kennwerte summieren den Korb, Grundflaeche zaehlt dann nicht als Gitterrost
+      (setq _kw (car (lg-kennwerte-geschoss _g1 _g2
+                       (list (lg-j-setzen (car _rk) "unter_reihe" "gitterkorb")) nil 1)))
+      (tu-eqf "lg-kennwerte/korb-seite" (* 500.0 5400.0) (lg-j (lg-j _kw "gitterkorb") "seitenflaeche_mm2"))
+      (tu-eq  "lg-kennwerte/korb-reihen" 1 (lg-j (lg-j _kw "gitterkorb") "reihen"))
+      (tu-eqf "lg-kennwerte/korb-kein-gitterrost" 0.0 (lg-j _kw "gitterrostflaeche_mm2"))
+      ;; Lager-Summen ueber zwei Geschosse
+      (setq _kl (lg-kennwerte-lager
+                  (list (lg-j-setzen (lg-j-setzen _g1 "kennwerte" (car (lg-kennwerte-geschoss _g1 _g2 (list _r1) nil 1)))
+                                     "kontur" (list 'OBJ (cons "bbox" (list 'ARR 0.0 0.0 10000.0 6000.0))))
+                        (lg-j-setzen (lg-j-setzen _g2 "kennwerte" (car (lg-kennwerte-geschoss _g2 nil (list _r2) nil 1)))
+                                     "kontur" (list 'OBJ (cons "bbox" (list 'ARR 0.0 0.0 12000.0 5000.0)))))
+                  (list _r1 _r2) nil 2))
+      (tu-eqf "lg-kennwerte-lager/regal" 6000.0 (lg-j _kl "regallaenge_mm"))
+      (tu-eqf "lg-kennwerte-lager/huelle" '(12000.0 6000.0)
+              (list (lg-j (lg-j _kl "huelle") "laenge_mm") (lg-j (lg-j _kl "huelle") "breite_mm")))
 
       ;; --- Regelprofil-Aufloesung ---
       (tu-eq "lg-bedingung/leer"      'ja (lg-bedingung-pruefen nil nil))
@@ -3472,7 +3590,7 @@
                  (car (lg-regel-aufloesen (lg-regel-finden _prof "gelaender.hoehe_min")
                                           '(("absturzhoehe" . 3100)))))
           (tu-nil "lg-profil/sk-ungepflegt" (ssg-json-get _prof "gepflegt")))
-        (tu-record nil "lg-profil/dateien" "cfg/regelwerk/SK.json nicht gefunden (DXFM_CFG?)"))
+        (tu-record nil "lg-profil/dateien" "cfg/stahlbau/regelwerk/SK.json nicht gefunden (DXFM_CFG?)"))
     )
   )
 )