[CHANGE] Lager-JSON: null nur fuer fehlende Werte, Regalrohr statt SCHIENEN, Plausibilitaetswarnungen

tests/test_lager.lsp

@@ -154,7 +154,7 @@
   ;; --- Einzelne Reihe aendern (Neuaufbau, Kennzeichnung) ---
   (setq r0 (car (lg-alle-bloecke "LG_REIHE_*")))
   (setq neu (lg-linie-neu-aufbauen r0 (list (cons "LAENGE" "2000") (cons "TIEFE_mm" "700")
-                                            (cons "HAENGEEBENEN" "2300/1200") (cons "SCHIENEN" "1")
+                                            (cons "HAENGEEBENEN" "2300/1200")
                                             (cons "GESCHOSS" "1") (cons "BEREICH" "1")
                                             (cons "QUELLE" "auto_geaendert"))))
   (tlg-eq "reihe neu aufgebaut" "LG_REIHE_2000_700" (if neu (cdr (assoc 2 (entget neu)))))
@@ -174,8 +174,8 @@
   (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)))
+          '((("schienenhoehe_mm" . 2300) ("warenlaenge_mm" . 1200) ("freiraum_unter_mm" . 0))
+            (("schienenhoehe_mm" . 1100) ("warenlaenge_mm" . 1100) ("freiraum_unter_mm" . 0)))
           (ssg-json-get (vl-some '(lambda (r) (if (= (ssg-json-get r "laenge_mm") 4000) r))
                                  (ssg-json-get daten "reihen"))
                         "haengeebenen"))
@@ -191,7 +191,7 @@
   (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"))
+          (ssg-json-get (ssg-json-get (ssg-json-get daten "lager") "summe_alle_geschosse") "regallaenge_mm"))
 
   ;; --- Randgaenge Nord + Sued, Schraffur je Belag ---
   (setq kb2 (tlg-rechteck 20000.0 0.0 30000.0 6000.0))