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

[CHANGE] eine zusätzliche csv für den Sivas export wird erstellt, die alle identischen Zeilen summiert und in einer Zeile mit neuer Anzahl schreibt; [ADD] Neue Gerüstkomponenten für die Baugruppenerstellung on the fly durch hinzugefügt; [CHANGE] Testskripte angepasst

Browse Source
This commit is contained in:
Simon Hensch
2026-09-29 17:08:14 +02:00
parent 4e39c64ec1
commit 7e98b85e5e
14 changed files with 101 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_unit.lsp
+39 -9
View File
@@ -789,6 +789,23 @@
;; ------------------------------------------------------------
;; TESTS: GeruestInsert.lsp - reine Hilfsfunktionen
;; ------------------------------------------------------------
;; Anzahl der Artikel (Blatt-Eintraege, Gruppen "teile" rekursiv) ohne
;; sivas_id oder ohne farbig-Schluessel. assoc statt ssg-json-get: false
;; wird zu nil geparst, der Schluessel selbst muss aber vorhanden sein.
(defun tu-geruest-artikel-unvollstaendig (eintraege / n teile)
(setq n 0)
(foreach e eintraege
(setq teile (ssg-json-get e "teile"))
(if teile
(setq n (+ n (tu-geruest-artikel-unvollstaendig teile)))
(if (or (null (ssg-json-get e "sivas_id"))
(null (assoc "farbig" e)))
(setq n (1+ n)))
)
)
n
)
(defun tu-tests-geruest ( / _eintrag _gruppe _teile _konfig _rec _pfad _f
_zurueck _bgtest _saeulen)
(princ "\n[GeruestInsert]")
@@ -938,16 +955,29 @@
(tu-eq "geruest/saeulen-vorhanden" T (if _saeulen T nil))
(if _saeulen
(progn
(tu-eq "geruest/saeulen-varianten" 6
(length (ssg-json-get _saeulen "geometrie_varianten")))
(tu-eq "geruest/saeulen-anbauteile" 7
(length (ssg-json-get _saeulen "anbaugruppen")))
;; Aufbau statt fester Anzahl - geruest.json wird noch gepflegt.
;; Jeder Artikel braucht sivas_id und ein (auch false) farbig-Feld.
(tu-eq "geruest/saeulen-varianten" T
(if (ssg-json-get _saeulen "geometrie_varianten") T nil))
(tu-eq "geruest/saeulen-varianten-artikel" 0
(tu-geruest-artikel-unvollstaendig
(ssg-json-get _saeulen "geometrie_varianten")))
(tu-eq "geruest/saeulen-anbauteile" T
(if (ssg-json-get _saeulen "anbaugruppen") T nil))
(tu-eq "geruest/saeulen-anbauteile-artikel" 0
(tu-geruest-artikel-unvollstaendig
(ssg-json-get _saeulen "anbaugruppen")))
(tu-eq "geruest/saeulen-titel" "Saeulen" (geruest-titel _saeulen))
;; R 1" ist die erste Variante und traegt die eigene TEILEART
(tu-eq "geruest/saeulen-1zoll-teileart" "Geruest Saeule 1 Zoll"
(geruest-variante-wert
(car (ssg-json-get _saeulen "geometrie_varianten"))
_saeulen "teileart"))
;; Variante R 1" traegt die eigene TEILEART - per Name gesucht,
;; die Reihenfolge in geruest.json ist nicht fest.
(setq _rec (geruest-name-index "R 1\""
(ssg-json-get _saeulen "geometrie_varianten")))
(tu-eq "geruest/saeulen-1zoll-vorhanden" T (if _rec T nil))
(if _rec
(tu-eq "geruest/saeulen-1zoll-teileart" "Geruest Saeule 1 Zoll"
(geruest-variante-wert
(nth _rec (ssg-json-get _saeulen "geometrie_varianten"))
_saeulen "teileart")))
)
)