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

AP60 elemente noch in die Exporterkennung mit aufgenommen

Browse Source
This commit is contained in:
Michael Stangl
2026-10-09 16:23:53 +02:00
parent bf2601a932
commit f340c39779
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/export.lsp
+4 -4
View File
@@ -906,7 +906,7 @@
;; schaftserkennung (export_neighbors.py) mitverwendet werden koennen. ;; schaftserkennung (export_neighbors.py) mitverwendet werden koennen.
(if (and (null k-list) (if (and (null k-list)
(wcmatch (strcase blk-name) (wcmatch (strcase blk-name)
(export:pattern "pattern_gerade" "AP110*,AP_110*"))) (export:pattern "pattern_gerade" "AP110*,AP_110*,AP60*")))
(setq k-list (csv:gerade-k-kos-strings ename pt rotation)) (setq k-list (csv:gerade-k-kos-strings ename pt rotation))
) )
;; VF_n/GF_n-Wrapper: K1 (Eingang) und K2 (Ausgang) eine Ebene tiefer aus ;; VF_n/GF_n-Wrapper: K1 (Eingang) und K2 (Ausgang) eine Ebene tiefer aus
@@ -2433,7 +2433,7 @@
(not gefroren) (not gefroren)
(or (or
(wcmatch bname (export:pattern "pattern_kreisel" "KR_*,KREISEL_*,ECKRAD_*")) (wcmatch bname (export:pattern "pattern_kreisel" "KR_*,KREISEL_*,ECKRAD_*"))
(wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*")) (wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*,AP60*"))
(wcmatch bname (export:pattern "pattern_strecke" (wcmatch bname (export:pattern "pattern_strecke"
"Vario*,Staustrecke*,AUS_Element*,EIN_Element*,VF_*,GF_*")) "Vario*,Staustrecke*,AUS_Element*,EIN_Element*,VF_*,GF_*"))
(wcmatch bname (export:pattern "pattern_ases_marker" "ZZ_ASES_MARKER*")) (wcmatch bname (export:pattern "pattern_ases_marker" "ZZ_ASES_MARKER*"))
@@ -2476,7 +2476,7 @@
(setq bname (cdr (assoc 2 ed))) (setq bname (cdr (assoc 2 ed)))
(setq teileart (csv:get-attrib ename "TEILEART")) (setq teileart (csv:get-attrib ename "TEILEART"))
(if (or teileart (if (or teileart
(wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*"))) (wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*,AP60*")))
(progn (progn
(omni:set-hoehe-attrib ename) (omni:set-hoehe-attrib ename)
(omni:set-drehung-attrib ename) (omni:set-drehung-attrib ename)
@@ -2938,7 +2938,7 @@
;; Nur Omniflo-Elemente (erkennbar an TEILEART-Attribut oder AP110-Blockname) ;; Nur Omniflo-Elemente (erkennbar an TEILEART-Attribut oder AP110-Blockname)
(setq teileart (csv:get-attrib ename "TEILEART")) (setq teileart (csv:get-attrib ename "TEILEART"))
(if (or teileart (if (or teileart
(wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*"))) (wcmatch (strcase bname) (export:pattern "pattern_gerade" "AP110*,AP_110*,AP60*")))
(progn (progn
(omni:set-hoehe-attrib ename) (omni:set-hoehe-attrib ename)
(omni:set-drehung-attrib ename) (omni:set-drehung-attrib ename)