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

[ADD] Omniflo: Untermenue Weichenbatterien (OMNI_WB_*, 16 DWGs aus data/omniflo/2D), im Weichen-Katalog als WeichenTyp Weichenbatterie

Browse Source 
[CHANGE] Omniflo-Edit: angeklicktes Bauteil im Dialog vorgewaehlt, Filterwechsel Richtung/Schaltung waehlt das Gegenstueck
This commit is contained in:
Simon Hensch committed 2026-11-04 10:52:32 +01:00
1 parent 4a5a3da88a
commit 34202cf305
23 files changed
+1088 -483
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

tests/test_unit.lsp
+35
View File
@@ -1218,6 +1218,41 @@
(tu-eq "omni:verbinder-pfad/trenner"
"C:/x/data/omniflo/Verbinder/VB_ENDP_AP.dwg"
(omni:verbinder-pfad "C:/x/data/" "VB_ENDP_AP"))
;; Aehnlichkeit: Gegenstueck (nur L/R bzw. M/P anders) schlaegt andere Groesse
(tu-eq "omni:profil-aehnlichkeit/gleich" 5 (omni:profil-aehnlichkeit "ABCDE" "ABCDE"))
(tu-eq "omni:profil-aehnlichkeit/laenge" 2 (omni:profil-aehnlichkeit "ABC" "ABCD"))
(tu-eq "omni:profil-aehnlichkeit/kein-string" 0 (omni:profil-aehnlichkeit nil "ABC"))
(tu-true "omni:profil-aehnlichkeit/lr-vor-groesse"
(> (omni:profil-aehnlichkeit "WEICHE S 45-L-400/750, KPL. MIT M"
"WEICHE S 45-R-400/750, KPL. MIT M")
(omni:profil-aehnlichkeit "WEICHE S 45-L-400/750, KPL. MIT M"
"WEICHE S 45-R-350/700, KPL. MIT M")))
;; Vorwahl-Index: exakte Sivasnr, sonst Gegenstueck nach Filterwechsel
(setq _wl
'((("Sivasnr" . 1) ("ProfilTyp" . "WEICHE S 45-L-350/700, KPL. MIT M"))
(("Sivasnr" . 2) ("ProfilTyp" . "WEICHE S 45-L-400/750, KPL. MIT M"))
(("Sivasnr" . 3) ("ProfilTyp" . "WEICHE S 45-R-400/750, KPL. MIT M"))))
(tu-eq "omni:vorwahl-index/sivasnr" 2
(omni:vorwahl-index '(("Sivasnr" . 3) ("ProfilTyp" . "egal")) _wl))
(tu-eq "omni:vorwahl-index/gegenstueck-lr" 1
(omni:vorwahl-index
'(("Sivasnr" . 9) ("ProfilTyp" . "WEICHE S 45-L-400/750, KPL. MIT P")) _wl))
;; P mit TEF -> M ohne TEF: gleiche Groesse statt der kuerzeren 350/700
(tu-eq "omni:vorwahl-index/tef-nach-m" 1
(omni:vorwahl-index
'(("Sivasnr" . "834372008+0_BG190090")
("ProfilTyp" . "WEICHE S 45-L-400/750, KPL. MIT P mit TEF Ihnen"))
(list (car _wl) (cadr _wl))))
(tu-eq "omni:vorwahl-index/batterie" 1
(omni:vorwahl-index
'(("Sivasnr" . 834372536) ("ProfilTyp" . "Weiche S C L1S 1C 200/1200/950 mit M"))
'((("Sivasnr" . 834372540) ("ProfilTyp" . "Weiche S C R1S 1C 200/1200/950 mit P"))
(("Sivasnr" . 834372539) ("ProfilTyp" . "Weiche S C R1S 1C 200/1200/950 mit M"))
(("Sivasnr" . 834372515) ("ProfilTyp" . "Weiche S C R1S 2C 200/1200/950 mit M")))))
(tu-nil "omni:vorwahl-index/leer" (omni:vorwahl-index (car _wl) nil))
(tu-nil "omni:vorwahl-index/ohne-ziel" (omni:vorwahl-index nil _wl))
)