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

fix: kf-auswahl-wert faengt fehlende Liste vor nth ab, veraltete TYP-Tests auf FOERDERERTYP umgestellt

Browse Source 
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Yuelin Wang
2026-10-26 11:27:13 +01:00
parent 399728c7f9
commit 35339b270a
2 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_unit.lsp
+6 -6
View File
@@ -2616,14 +2616,14 @@
(tu-nil "kf-attrib-defs/kein-GERUEST_EINZELMODUL"
(assoc "GERUEST_EINZELMODUL" _defs))
(tu-nil "kf-attrib-defs/kein-GERUEST_TYP" (assoc "GERUEST_TYP" _defs))
;; TYP/ARTINR stehen in BEIDEN Listen - der Zusatz muss gewinnen, und
;; der Tag darf nur EINMAL vorkommen (zwei ATTDEFs gleichen Tags waeren
;; Jeder Tag darf nur EINMAL vorkommen (zwei ATTDEFs gleichen Tags waeren
;; im Block ungueltig, ssg-attrib-set-on traefe nur den ersten).
(tu-eq "kf-attrib-defs/TYP-ueberschrieben" "Kettenfoerderer"
(cadr (assoc "TYP" _defs)))
(setq _s 0)
(foreach _d _defs (if (= (car _d) "TYP") (setq _s (1+ _s))))
(tu-eq "kf-attrib-defs/TYP-nur-einmal" 1 _s)
(foreach _d _defs (if (= (car _d) "FOERDERERTYP") (setq _s (1+ _s))))
(tu-eq "kf-attrib-defs/FOERDERERTYP-nur-einmal" 1 _s)
(setq _s 0)
(foreach _d _defs (if (= (car _d) "ARTINR") (setq _s (1+ _s))))
(tu-eq "kf-attrib-defs/ARTINR-nur-einmal" 1 _s)
(setq _s 0)
(foreach _d _defs (if (= (car _d) "ARTINR") (setq _s (1+ _s))))
(tu-eq "kf-attrib-defs/ARTINR-nur-einmal" 1 _s)