Schoenenberger_Systeme_GmbH/SSG-Ruledesigner-Konfigurator
3
0
Fork 0
Code Issues Pull Requests Packages Projects 1 Releases Wiki Activity

Routine zum Einlesen der ILS Maße impl.

Browse Source
This commit is contained in:
Michael Stangl
2025-10-20 13:06:33 +02:00
parent 4b4a6b03de
commit 92d178a34d
1 changed files with 168 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+168 -31
View File
@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<PROCESS Id="RDK:0001" Name="MAIN_SSG" ModernUI="True" Options="(GITSAVEMODE)(NOUPDATEINCLUDEFILES)" Expanded="True">
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-10-16T16:49:03" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-10-20T13:05:55" LanguageVersion="2014.1.3.712" />
<GROUP Id="RDK:0002" Name="Declarations" SubType="Declarations" Expanded="True">
<GROUP Id="RDK:0003" Name="Types" SubType="TypeSet" IncludeDate="0">
<GROUP Id="RDK:26387" Name="SSG_Group" SubType="TypeSet" IncludeDate="0">
@@ -345,12 +345,21 @@
<FIELD Id="RDK:18530562" Name="Weiche_top" Type="WeicheType" />
<FIELD Id="RDK:18530564" Name="Weiche_bot" Type="WeicheType" />
</TYPE>
<TYPE Id="RDK:19260062" Name="SSG_Attributes" SubType="structure">
<TYPE Id="RDK:26256702" Name="Foerderer_Attributes" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:26256698" Name="comment" Type="string" />
<FIELD Id="RDK:26256759" Name="delta_h_min" Type="double" />
<FIELD Id="RDK:26256699" Name="delta_s_min" Type="double" />
<FIELD Id="RDK:26256700" Name="winkel" Type="double" />
</TYPE>
<TYPE Id="RDK:19260062" Name="ILS_Attributes" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:19260048" Name="Einschleuselement_delta_h" Type="double" />
<FIELD Id="RDK:19260066" Name="Einschleuselement_delta_s" Type="double" />
<FIELD Id="RDK:19260064" Name="Ausschleuselement_delta_h" Type="double" />
<FIELD Id="RDK:19260068" Name="Ausschleuselement_delta_s" Type="double" />
<FIELD Id="RDK:26256704" Name="Vario_auf" Type="Foerderer_Attributes[]" />
<FIELD Id="RDK:26256706" Name="Vario_ab" Type="Foerderer_Attributes[]" />
</TYPE>
</GROUP>
<TYPE Id="RDK:381" Name="ImportBackgroundType" SubType="structure">
@@ -1256,7 +1265,7 @@
<VAR Id="RDK:1789532" Name="SSGParameterList" Type="SSGParameter[]" />
<VAR Id="RDK:1789534" Name="SSGParameter" Type="SSGParameter" />
<VAR Id="RDK:18530566" Name="SSG_Limits_data" Type="SSG_Limits" />
<VAR Id="RDK:19260001" Name="SSG_Attributes_data" Type="SSG_Attributes" />
<VAR Id="RDK:19260001" Name="ILS_Attributes_data" Type="ILS_Attributes" />
</GROUP>
<GROUP Id="RDK:314272" Name="MUI" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:426767" Name="KreiselData" Type="KreiselType" />
@@ -1412,7 +1421,6 @@
<VAR Id="RDK:23222557" Name="OFBogenData" Type="OFBogenType[]" DesignTimeRemark="Dropdown Liste aller Bögen im Interface" />
<VAR Id="RDK:23222658" Name="OFWeichenData" Type="OFWeicheType[]" DesignTimeRemark="Dropdown Liste aller Weichen im Interface" />
<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
<VAR Id="RDK:26252061" Name="cpt_opposite" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -13290,13 +13298,13 @@ SSGConnectionPoint.x_M
<VAR Id="RDK:19482863" Name="L_S" Type="double" DesignTimeRemark="Gesamt Strecke" />
<VAR Id="RDK:19482841" Name="H_SEA" Type="double" DesignTimeRemark="Höhendifferenze Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:19482849" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_h + SSG_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_h + ILS_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19482843" Name="L_SEA" Type="double" DesignTimeRemark="Längendifferenz Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:19482851" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_s+ SSG_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_s+ ILS_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
@@ -14358,13 +14366,13 @@ SSGConnectionPoint.x_M
</VAR>
<VAR Id="RDK:19888635" Name="H_SEA" Type="double" DesignTimeRemark="Höhendifferenze Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:19888634" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_h + SSG_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_h + ILS_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:19888637" Name="L_SEA" Type="double" DesignTimeRemark="Längendifferenz Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:19888636" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_s+ SSG_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_s+ ILS_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
@@ -16445,13 +16453,13 @@ SSGConnectionPoint.x_M
<VAR Id="RDK:24801600" Name="L_GF" Type="double" DesignTimeRemark="Gesamt Strecke" />
<VAR Id="RDK:24801602" Name="H_SEA" Type="double" DesignTimeRemark="Höhendifferenze Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:24801601" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_h + SSG_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_h + ILS_Attributes_data.Ausschleuselement_delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:24801604" Name="L_SEA" Type="double" DesignTimeRemark="Längendifferenz Ein-/Ausschleuselement der Strecke">
<SET Id="RDK:24801603" VarRef="Me">
<EXP><![CDATA[$=$SSG_Attributes_data.Einschleuselement_delta_s+ SSG_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<EXP><![CDATA[$=$ILS_Attributes_data.Einschleuselement_delta_s+ ILS_Attributes_data.Ausschleuselement_delta_s]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
@@ -40846,8 +40854,6 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26044499" Name="cps1" Type="string[]" />
<VAR Id="RDK:26044501" Name="cps2" Type="string[]" />
<VAR Id="RDK:26044548" Name="cpt1" Type="string">
<SET Id="RDK:26044547" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=cp_target1"].Str]]></EXP>
@@ -40879,6 +40885,8 @@ me.x
<VAR Id="RDK:26147511" Name="target_r" Type="string" />
<VAR Id="RDK:26252058" Name="cp_opposite" Type="string" />
<VAR Id="RDK:26252069" Name="cps" Type="string[]" />
<VAR Id="RDK:26044499" Name="cps1" Type="string[]" />
<VAR Id="RDK:26044501" Name="cps2" Type="string[]" />
</GROUP>
<IFTHENELSE Id="RDK:26044578">
<VALUECONDITION Value="true">
@@ -41004,18 +41012,6 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26252067" Suppressed="True" DesignTimeRemark="Finde die Verbindungsnamen der Connectionpoints in den ursprünglichen Elementen">
<PAR Name="FuncName">
<EXP><![CDATA[$C$FilterConnectingPointsBetweenBoth]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$FilterCps]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26252060">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getOppositeConnectionPoint]]></EXP>
@@ -43041,6 +43037,117 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:26252084" Name="GetTargetConnectingPoints" DesignTimeRemark="gives back the names of the linked connection points of a shape" InputTypeName="SSGParameter[]" ResultTypeName="string[]" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26252103" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26252095" Name="gerade_l" Type="string" />
<VAR Id="RDK:26252115" Name="weiche_l" Type="string" />
<VAR Id="RDK:26252117" Name="cps" Type="string[]" />
<VAR Id="RDK:26252119" Name="cp_opposite" Type="string" />
<VAR Id="RDK:26252125" Name="result" Type="string[]" />
<VAR Id="RDK:26252098" Name="FilterCps" Type="SSGParameter[]" />
<VAR Id="RDK:26261372" Name="FilterCps_2" Type="SSGParameter[]" />
<VAR Id="RDK:26252113" Name="groupIds" Type="string[]">
<SET Id="RDK:26252112" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=groupIds"].StrArr]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<SET Id="RDK:26252121" VarRef="gerade_l">
<EXP><![CDATA[$=$groupIds[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26252123" VarRef="weiche_l">
<EXP><![CDATA[$=$groupIds[1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:26252074" VarRef="SSGParameter" ClearAll="True" ListRef="FilterCps">
<PAR Name="Key">
<EXP><![CDATA[$C$idSource]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$gerade_l]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26252076" VarRef="SSGParameter" ClearAll="True" ListRef="FilterCps">
<PAR Name="Key">
<EXP><![CDATA[$C$idTarget]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$weiche_l]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26252072" DesignTimeRemark="Finde die Verbindungsnamen der Connectionpoints in den ursprünglichen Elementen">
<PAR Name="FuncName">
<EXP><![CDATA[$C$FilterConnectingPointsBetweenBoth]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$FilterCps]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET_STRUCT Id="RDK:26259071" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$cpname]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps[0]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26259069" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$weiche_l]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26252080" DesignTimeRemark="Hier holen wir den ConnPunkt der Weiche, welcher dem Geraden CP gegenüberliegt. Dieser sollte frei sein">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getOppositeConnectionPoint]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$CpSearch]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cp_opposite]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<LIST_ADD Id="RDK:26252130" ListRef="result">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$cp_opposite]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<SET Id="RDK:26252127" VarRef="Param.Result">
<EXP><![CDATA[$=$result]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:25886783" Name="createPatternOfSelected" DesignTimeRemark="erzeugt ein Muster der selektierten Elemente">
<COMMENTS Id="RDK:25886778" DesignTimeRemark="Erzeuge ein Muster aller selektierten Elemente" />
<GROUP Id="RDK:25886782" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -43234,6 +43341,7 @@ me.x
<GROUP Id="RDK:26044524" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26044526" Name="ConnectData" Type="SSGParameter[]" />
<VAR Id="RDK:26073311" Name="idsInGroup" Type="string[]" />
<VAR Id="RDK:26252078" Name="TargetCps" Type="string[]" />
</GROUP>
<CALLFUNCTION Id="RDK:26073309">
<PAR Name="FuncName">
@@ -43260,7 +43368,7 @@ me.x
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:25886854">
<CALLFUNCTION Id="RDK:25886854" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$createPatternOmnifloGroup]]></EXP>
</PAR>
@@ -43272,6 +43380,18 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26252082">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetTargetConnectingPoints]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$MoveData]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$TargetCps]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET_STRUCT Id="RDK:26044528" VarRef="SSGParameter" ClearAll="True" ListRef="ConnectData">
<PAR Name="Key">
<EXP><![CDATA[$C$original]]></EXP>
@@ -43305,7 +43425,7 @@ me.x
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$C$cp2]]></EXP>
<EXP><![CDATA[$=$TargetCps[0]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
@@ -43318,7 +43438,7 @@ me.x
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$C$cp2]]></EXP>
<EXP><![CDATA[$=$TargetCps[1]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
@@ -52038,6 +52158,9 @@ me.x
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<GROUP Id="RDK:26256757" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26256754" Name="ils_attribs" Type="Foerderer_Attributes" />
</GROUP>
<SELECTCASE Id="RDK:19259978">
<EXP><![CDATA[$=$str_item]]></EXP>
<CASEGROUP Id="RDK:19259969" CaseType="0">
@@ -52047,7 +52170,7 @@ me.x
<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19260122" SubType="Then">
<SET Id="RDK:19260117" VarRef="SSG_Attributes_data.Einschleuselement_delta_h">
<SET Id="RDK:19260117" VarRef="ILS_Attributes_data.Einschleuselement_delta_h">
<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -52058,7 +52181,7 @@ me.x
<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19260173" SubType="Then">
<SET Id="RDK:19260172" VarRef="SSG_Attributes_data.Einschleuselement_delta_s">
<SET Id="RDK:19260172" VarRef="ILS_Attributes_data.Einschleuselement_delta_s">
<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -52072,7 +52195,7 @@ me.x
<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_h")]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19260189" SubType="Then">
<SET Id="RDK:19260188" VarRef="SSG_Attributes_data.Ausschleuselement_delta_h">
<SET Id="RDK:19260188" VarRef="ILS_Attributes_data.Ausschleuselement_delta_h">
<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_h")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -52083,13 +52206,27 @@ me.x
<EXP><![CDATA[$=$FieldExist(FieldValue(attribute, str_item), "delta_s")]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19260192" SubType="Then">
<SET Id="RDK:19260191" VarRef="SSG_Attributes_data.Ausschleuselement_delta_s">
<SET Id="RDK:19260191" VarRef="ILS_Attributes_data.Ausschleuselement_delta_s">
<EXP><![CDATA[$=$FieldValue(FieldValue(attribute, str_item), "delta_s")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:26256720" CaseType="0">
<EXP><![CDATA[$C$Vario_auf]]></EXP>
<SET Id="RDK:26256767" VarRef="ILS_Attributes_data.Vario_auf">
<EXP><![CDATA[$=$FieldValue(attribute, "Vario_auf")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26256771" CaseType="0">
<EXP><![CDATA[$C$Vario_ab]]></EXP>
<SET Id="RDK:26256770" VarRef="ILS_Attributes_data.Vario_auf">
<EXP><![CDATA[$=$FieldValue(attribute, "Vario_ab")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:19259977" CaseType="1">
<EXP />
</CASEGROUP>