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

SetHeightsChain implementiert. Bedarf von SetHeightOnConnect für einen weiteren Parameter: Auf oder absteigend, damit man die Kurve als aufsteigende oder absteigende anfügen kann (je nach dem Vorgänger Element)

Browse Source
This commit is contained in:
Michael Stangl
2024-10-11 20:34:47 +02:00
parent 247c83ab2e
commit b57e7fe28d
1 changed files with 350 additions and 306 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+350 -306
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="2024-10-10T17:01:50" LanguageVersion="2014.1.3.690" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-11T16:43:39" LanguageVersion="2014.1.3.690" />
<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">
@@ -25,7 +25,7 @@
<FIELD Id="RDK:20734834" Name="direction_x" Type="double" DesignTimeRemark="1 if direction posititve x-axis, -1 if is negative x-axis, 0 if it is in y-direction" />
<FIELD Id="RDK:20734836" Name="direction_y" Type="double" DesignTimeRemark="1 if direction posititve y-axis, -1 if is negative y-axis, 0 if it is in x-direction" />
</TYPE>
<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -76,7 +76,7 @@
<FIELD Id="RDK:302575" Name="n_Sep" Type="integer" />
<FIELD Id="RDK:302576" Name="n_Scan" Type="integer" />
</TYPE>
<TYPE Id="RDK:18732236" Name="KurveType" SubType="structure">
<TYPE Id="RDK:18732236" Name="KurveType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18732225" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:18732226" Name="L1" Type="double" />
@@ -125,7 +125,7 @@
<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
</TYPE>
<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -140,7 +140,7 @@
<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
<FIELD Id="RDK:19961198" Name="isDefined" Type="boolean" />
</TYPE>
<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -20900,6 +20900,60 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:19595347" CaseType="0">
<EXP><![CDATA[$C$Kurve]]></EXP>
<IFTHENELSE Id="RDK:21615573">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$label="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21615570" SubType="Then">
<SET Id="RDK:21615569" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:21615589">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveDefinition.Richtung="Ab"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21615586" SubType="Then">
<SET Id="RDK:21615585" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe - KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21615588" SubType="Else">
<SET Id="RDK:21615587" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe + KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</GROUP>
<GROUP Id="RDK:21615572" SubType="Else">
<SET Id="RDK:21615571" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:21615609">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveDefinition.Richtung="Ab"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21615606" SubType="Then">
<SET Id="RDK:21615605" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe + KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21615608" SubType="Else">
<SET Id="RDK:21615607" VarRef="ShapeList[&quot;id=&quot;+shapeId].KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe - KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:21615555" CaseType="0">
<EXP><![CDATA[$C$Weiche]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:19595348" CaseType="0">
@@ -20929,16 +20983,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</VAR>
<VAR Id="RDK:21477298" Name="itemId" Type="string" />
<VAR Id="RDK:21477300" Name="hoehe" Type="double" />
<VAR Id="RDK:21477302" Name="shape_item" Type="Editor2DShapeType" />
<VAR Id="RDK:21477384" Name="inGroup" Type="boolean" />
<VAR Id="RDK:21477401" Name="following" Type="string[]" />
<VAR Id="RDK:21477403" Name="previous" Type="string[]" />
<VAR Id="RDK:21484300" Name="ResultListe" Type="string[]" />
<VAR Id="RDK:21484286" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21517207" Name="RueckgabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21484298" Name="cpId" Type="string" />
<VAR Id="RDK:21543311" Name="cps_verbunden" Type="string[]" />
<VAR Id="RDK:21556604" Name="UebergabeCps" Type="SSGParameter[]" />
</GROUP>
<CALLFUNCTION Id="RDK:21477364">
<PAR Name="FuncName">
@@ -20960,22 +21010,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXIT_PROCESS Id="RDK:21477377" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:21484294">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetUsedCps]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$ResultListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21484296" VarRef="cpId" Suppressed="True">
<EXP><![CDATA[$=$ResultListe[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:21477397">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetFollowingIds]]></EXP>
@@ -20993,9 +21027,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$Count(following) > 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21528227" SubType="Then">
<SET_STRUCT Id="RDK:21528216" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<SET_STRUCT Id="RDK:21528216" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_0]]></EXP>
<EXP><![CDATA[$C$shapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
@@ -21005,82 +21039,30 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21528218" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<SET_STRUCT Id="RDK:21528218" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_1]]></EXP>
<EXP><![CDATA[$C$shape_ids]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$following[0]]]></EXP>
<PAR Name="StrArr">
<EXP><![CDATA[$=$following]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21528214" DesignTimeRemark="hol dir den Namen des Connection Points des Items dazu">
<CALLFUNCTION Id="RDK:21528214" DesignTimeRemark="setzt alle Höhen von Kurven neu ausgehende vom gegebenen Shape, bis man an eine Gefällestrecke oder einen Förderer gelangt">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
<EXP><![CDATA[$C$SetHeightsChain]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
<EXP><![CDATA[$=$UebergabeCps]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps_verbunden]]></EXP>
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<FOREACHLOOP Id="RDK:21484263" ItemVarRef="itemId">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$following]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<SET Id="RDK:21525472" VarRef="UebergabeListe">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21484288" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$itemId]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21484290" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21484284">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21546772" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FOREACHLOOP>
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:21477405">
@@ -21095,7 +21077,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:21543317" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
<IFTHENELSE Id="RDK:21543317" Suppressed="True" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Count(previous) > 0]]></EXP>
</VALUECONDITION>
@@ -21118,7 +21100,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$following[0]]]></EXP>
<EXP><![CDATA[$=$previous[0]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
@@ -21136,6 +21118,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<GROUP Id="RDK:21554338" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21554331" Name="item_vorher" Type="Editor2DShapeType" />
</GROUP>
<FOREACHLOOP Id="RDK:21525457" ItemVarRef="itemId">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$previous]]></EXP>
@@ -21143,6 +21128,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<COMMENTS Id="RDK:21554316" DesignTimeRemark="Hole dir die Höhe die der Vorgänger haben soll" />
<SET Id="RDK:21554320" VarRef="UebergabeListe">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21525454" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
@@ -21161,7 +21151,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
@@ -21183,10 +21173,213 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:21554344">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps_verbunden]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FOREACHLOOP>
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:21554501" Name="SetHeightsChain" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:21554458" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21554523" Name="shapeId" Type="string">
<SET Id="RDK:21554522" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=ShapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:21554541" Name="following" Type="string[]">
<SET Id="RDK:21554545" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=shape_ids"].StrArr]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:21554456" Name="item_nachher" Type="Editor2DShapeType" />
<VAR Id="RDK:21477300" Name="hoehe" Type="double" />
<VAR Id="RDK:21484298" Name="cpId" Type="string" />
<VAR Id="RDK:21554457" Name="UebergabeCps" Type="SSGParameter[]" />
<VAR Id="RDK:21554539" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21517207" Name="RueckgabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21543311" Name="cps_verbunden" Type="string[]" />
<VAR Id="RDK:21554507" Name="currentItem" Type="string" />
<VAR Id="RDK:21577171" Name="itemBefore" Type="string" />
</GROUP>
<SET Id="RDK:21577173" VarRef="itemBefore">
<EXP><![CDATA[$=$shapeId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<FOREACHLOOP Id="RDK:21554482" ItemVarRef="currentItem">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$following]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<COMMENTS Id="RDK:21577185" DesignTimeRemark="Bestimme die ConnectionPoints zwischen beiden Elementen, um die Höhe zu erhalten" />
<SET Id="RDK:21577189" VarRef="UebergabeCps">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21554459" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_0]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$itemBefore]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21554460" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_1]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$currentItem]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21554461" DesignTimeRemark="hol dir den Namen des Connection Points des Items dazu">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeCps]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps_verbunden]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<COMMENTS Id="RDK:21554462" DesignTimeRemark="Hole dir die Höhe die der Nachfolger haben soll aus dem aktuellen Element" />
<SET Id="RDK:21554463" VarRef="UebergabeListe">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21554465" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps_verbunden[0]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21554464" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$itemBefore]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21554466">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21554467" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:21577183" DesignTimeRemark="Setze die Höhe des Nachfolgers" />
<SET Id="RDK:21554469" VarRef="UebergabeListe">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21554470" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$currentItem]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21554471" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$hoehe]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21554472" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Label]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21554473">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<COMMENTS Id="RDK:21577169" DesignTimeRemark="gehe durch die Objekte der Strecke bis man auf eine Gefällestrecke oder Förderer trifft." />
<SELECTCASE Id="RDK:21554477" Suppressed="True">
<EXP><![CDATA[$=$ShapeList["id="+currentItem].family]]></EXP>
<CASEGROUP Id="RDK:21554474" CaseType="0">
<EXP><![CDATA[$C$Kurve]]></EXP>
</CASEGROUP>
<CASEGROUP Id="RDK:21577166" CaseType="1">
<EXP />
<EXIT_PROCESS Id="RDK:21554475" BreakType="3" ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
<SET Id="RDK:21577187" VarRef="itemBefore">
<EXP><![CDATA[$=$currentItem]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FOREACHLOOP>
</FUNCTION>
<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />
@@ -21435,6 +21628,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19690501" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -21446,6 +21640,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19690499" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -21457,6 +21652,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19545801">
<PAR Name="FuncName">
@@ -22141,6 +22337,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19435212" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -22337,7 +22534,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<FUNCTION Id="RDK:18732540" Name="SetHeightOfStreckeOnConnect" InputTypeName="Editor2DEventArgumentsTypeList" ResultTypeName="SSGParameter[]">
<GROUP Id="RDK:18742673" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18742737" Name="item_0" Type="Editor2DShapeType" />
<VAR Id="RDK:18742668" Name="item_1" Type="Editor2DShapeType" />
<VAR Id="RDK:18935909" Name="cp_partner" Type="SSGConnectionPoint" />
<VAR Id="RDK:18827203" Name="hoehe" Type="double" />
<VAR Id="RDK:20622266" Name="Richtung" Type="integer" />
@@ -22349,8 +22545,48 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18742695" VarRef="item_1">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
<SET Id="RDK:18895251" VarRef="cpId">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:18827137" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18827141">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:18895249" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SELECTCASE Id="RDK:18827082">
@@ -22358,72 +22594,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<CASEGROUP Id="RDK:18827142" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
<COMMENTS Id="RDK:18827135" DesignTimeRemark="//Foerderer hat Index == 0" />
<SET Id="RDK:18827136" VarRef="shape_item" Suppressed="True">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18895251" VarRef="cpId">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18827140" VarRef="cp_partner" Suppressed="True" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:18827137" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18895253" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18827141">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:18895249" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18895277">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
@@ -22485,73 +22655,8 @@ ShapeList["id="+Param.Input[1].shapeID].name
<CASEGROUP Id="RDK:18827084" CaseType="0">
<EXP><![CDATA[$C$Kurve]]></EXP>
<COMMENTS Id="RDK:18827100" DesignTimeRemark="//Kurve hat Index == 0" />
<SET Id="RDK:18827094" VarRef="cpId">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:18827090" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827092" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18868849" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:20622268" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
<PAR Name="Key">
<EXP><![CDATA[$C$Richtung]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18827098">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:18872332" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<SET Id="RDK:21645108" VarRef="Richtung">
<EXP><![CDATA[$=$RueckgabeListe["key=Richtung"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18827233">
@@ -22563,19 +22668,19 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:20622284">
<IFTHENELSE Id="RDK:21665696">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Richtung=1]]></EXP>
<EXP><![CDATA[$=$item_0.KurveDefinition.Richtung="Ab"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:20622285" SubType="Then">
<SET Id="RDK:19223116" VarRef="item_0.KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe+KurveData_defaults.Delta_h]]></EXP>
<GROUP Id="RDK:21665693" SubType="Then">
<SET Id="RDK:21665692" VarRef="item_0.KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe - KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:20622286" SubType="Else">
<SET Id="RDK:20622290" VarRef="item_0.KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe-KurveData_defaults.Delta_h]]></EXP>
<GROUP Id="RDK:21665695" SubType="Else">
<SET Id="RDK:21665694" VarRef="item_0.KurveDefinition.H_1">
<EXP><![CDATA[$=$hoehe + KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
@@ -22586,19 +22691,19 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:20622303">
<IFTHENELSE Id="RDK:21665716">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Richtung=1]]></EXP>
<EXP><![CDATA[$=$item_0.KurveDefinition.Richtung="Ab"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:20622304" SubType="Then">
<SET Id="RDK:18827246" VarRef="item_0.KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe+KurveData_defaults.Delta_h]]></EXP>
<GROUP Id="RDK:21665713" SubType="Then">
<SET Id="RDK:21665712" VarRef="item_0.KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe - KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:20622305" SubType="Else">
<SET Id="RDK:20622315" VarRef="item_0.KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe-KurveData_defaults.Delta_h]]></EXP>
<GROUP Id="RDK:21665715" SubType="Else">
<SET Id="RDK:21665714" VarRef="item_0.KurveDefinition.H_0">
<EXP><![CDATA[$=$hoehe + KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
@@ -22613,68 +22718,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<CASEGROUP Id="RDK:18827160" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<COMMENTS Id="RDK:18827153" DesignTimeRemark="//Gefaellestrecke hat Index == 0" />
<SET Id="RDK:18827157" VarRef="cpId">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18827158" VarRef="cp_partner" Suppressed="True" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].connectionPoints[&quot;cpId=&quot;+cpId]">
<EXP><![CDATA[$=$FromJSON(ShapeList["id="+Param.Input[1].shapeID].connectionPoints)["cpId="+cpId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:18827155" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827156" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18895219" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe" Suppressed="True">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18827159">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:18895223" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18895239">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
@@ -22739,6 +22782,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET Id="RDK:18742729" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>