mistangl/dxfmakros
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[ADD] Lager: Darstellung Gitterrost/Gitterkorb unter Regalreihen, Farben aus lager.json, LG_DARSTELLUNG

Browse Source 
[FIX] Lager: manuelle Gaenge/Randgaenge nicht mehr ueberschreiben, Bereich-Edit uebertraegt statt neu zu berechnen
This commit is contained in:
Simon Hensch committed 2026-11-04 09:14:13 +01:00
1 parent a887ae8152
commit 4a5a3da88a
8 files changed
+199 -24
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/test_unit.lsp
+30 -1
View File
@@ -3312,9 +3312,38 @@
;; --- Geschoss kopieren ---
(setq _kand2 (list (list 1 0.0 _sq0) (list 2 3100.0 _sq0)))
;; Kopie: ALLE Gaenge bekommen den gewaehlten Belag, auch abweichende
(tu-eq "lg-kopie-belag/folgt" "spanplatte" (lg-kopie-belag "hallenboden" "hallenboden" "spanplatte"))
(tu-eq "lg-kopie-belag/eigen" "gitterrost" (lg-kopie-belag "gitterrost" "hallenboden" "spanplatte"))
(tu-eq "lg-kopie-belag/eigen" "spanplatte" (lg-kopie-belag "gitterrost" "hallenboden" "spanplatte"))
(tu-eq "lg-kopie-belag/ohne-wahl" "gitterrost" (lg-kopie-belag "gitterrost" "hallenboden" ""))
(tu-nil "lg-kopie-belag/nil" (lg-kopie-belag nil "hallenboden" "spanplatte"))
;; Randgang an Sperrflaechen (manueller Gang) beschnitten
(tu-eqf "lg-randgang-stuecke/geteilt"
'(((0.0 5800.0) (4000.0 5800.0)) ((5000.0 5800.0) (10000.0 5800.0)))
(lg-randgang-stuecke '(0.0 5800.0) '(10000.0 5800.0) 400.0
'(((4000.0 5500.0) (5000.0 5500.0) (5000.0 6000.0) (4000.0 6000.0))) 100.0))
(tu-eqf "lg-randgang-stuecke/frei" '(((0.0 5800.0) (10000.0 5800.0)))
(lg-randgang-stuecke '(0.0 5800.0) '(10000.0 5800.0) 400.0 nil 100.0))
(tu-nil "lg-randgang-stuecke/ganz-ueberdeckt"
(lg-randgang-stuecke '(0.0 5800.0) '(10000.0 5800.0) 400.0
'(((-10.0 5500.0) (10010.0 5500.0) (10010.0 6000.0) (-10.0 6000.0))) 100.0))
(setq _fr (lg-fuellung-berechnen '((0.0 0.0) (10000.0 0.0) (10000.0 6000.0) (0.0 6000.0))
(list (cons "rand" '(("N" . 1000.0) ("O" . 0.0) ("S" . 0.0) ("W" . 0.0)))
(cons "sperr" '(((4000.0 5000.0) (5000.0 5000.0) (5000.0 6000.0) (4000.0 6000.0)))))))
(tu-eq "lg-fuellung/randgang-ausgespart" 2
(length (vl-remove-if-not '(lambda (r) (= (car r) "randgang")) (car _fr))))
;; Bereich bearbeiten: nur Geometrie fuehrt zur Neuberechnung
(setq _ba '(("GANGBREITE_mm" . "1000") ("REGALTIEFE_mm" . "700") ("BELAG" . "spanplatte")
("HAENGEEBENEN" . "2300/1200") ("RANDGANG_N_mm" . "0")))
(tu-nil "lg-bereich-geometrie/belag"
(lg-bereich-geometrie-geaendert-p _ba (lg-wert-setzen (lg-wert-setzen _ba "BELAG" "gitterrost")
"HAENGEEBENEN" "2400/1000")))
(tu-nil "lg-bereich-geometrie/gleich-zahl"
(lg-bereich-geometrie-geaendert-p _ba (lg-wert-setzen _ba "GANGBREITE_mm" "1000.0")))
(tu-eq "lg-bereich-geometrie/gangbreite" T
(lg-bereich-geometrie-geaendert-p _ba (lg-wert-setzen _ba "GANGBREITE_mm" "1200")))
(tu-eq "lg-bereich-geometrie/randgang" T
(lg-bereich-geometrie-geaendert-p _ba (lg-wert-setzen _ba "RANDGANG_N_mm" "1600")))
(setq _w (lg-kopie-werte '(("ID" . "2A") ("GESCHOSS" . "1") ("LAYER" . "LG_Gang_G1") ("LAENGE" . "9000")
("BREITE_mm" . "1000") ("ART" . "gang") ("BELAG" . "hallenboden")
("BEREICH" . "3") ("QUELLE" . "manuell"))