diff --git a/Lisp/export.lsp b/Lisp/export.lsp index 91a143e..85e316b 100644 --- a/Lisp/export.lsp +++ b/Lisp/export.lsp @@ -906,7 +906,7 @@ ;; schaftserkennung (export_neighbors.py) mitverwendet werden koennen. (if (and (null k-list) (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)) ) ;; VF_n/GF_n-Wrapper: K1 (Eingang) und K2 (Ausgang) eine Ebene tiefer aus @@ -2433,7 +2433,7 @@ (not gefroren) (or (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" "Vario*,Staustrecke*,AUS_Element*,EIN_Element*,VF_*,GF_*")) (wcmatch bname (export:pattern "pattern_ases_marker" "ZZ_ASES_MARKER*")) @@ -2476,7 +2476,7 @@ (setq bname (cdr (assoc 2 ed))) (setq teileart (csv:get-attrib ename "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 (omni:set-hoehe-attrib ename) (omni:set-drehung-attrib ename) @@ -2938,7 +2938,7 @@ ;; Nur Omniflo-Elemente (erkennbar an TEILEART-Attribut oder AP110-Blockname) (setq teileart (csv:get-attrib ename "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 (omni:set-hoehe-attrib ename) (omni:set-drehung-attrib ename)