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

Fix: InheritHeight Aufruf nur durch Kreisel/Eckrad, sonst SetHeightOnConnect

Browse Source
This commit is contained in:
Simon Schmutzler
2024-07-16 10:29:33 +02:00
parent 5b0b7b4f92
commit 2149b2c245
1 changed files with 206 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+206 -267
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="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-07-10T12:09:11" LanguageVersion="2014.1.3.680" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-07-16T10:21:16" LanguageVersion="2014.1.3.680" />
<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">
@@ -466,7 +466,7 @@
<FIELD Id="RDK:1014048" Name="handler" Type="string" />
<FIELD Id="RDK:1014049" Name="params" Type="Editor2DParameterTypeList" />
</TYPE>
<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" Expanded="True" SubType="structure">
<TYPE Id="RDK:1014057" Name="Editor2DEventArgumentsType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:1014051" Name="class" Type="string" />
<FIELD Id="RDK:1014052" Name="handler" Type="Editor2DEventHandlerType" />
@@ -828,12 +828,12 @@
<FIELD Id="RDK:18946347" Name="toSetParameters" Type="SEExportParamType[]" />
</TYPE>
</GROUP>
<TYPE Id="RDK:1007393" Name="Point2D" Expanded="True" SubType="structure" HasArrayType="True">
<TYPE Id="RDK:1007393" Name="Point2D" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:1007391" Name="X" Type="double" />
<FIELD Id="RDK:1007392" Name="Y" Type="double" />
</TYPE>
<TYPE Id="RDK:1007741" Name="SSY_Shapes" Expanded="True" SubType="structure" HasArrayType="True">
<TYPE Id="RDK:1007741" Name="SSY_Shapes" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:1007735" Name="name" Type="string" />
<FIELD Id="RDK:1007736" Name="ShapeID" Type="string" />
@@ -9524,6 +9524,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</CASEGROUP>
<CASEGROUP Id="RDK:20607518" CaseType="1">
<EXP />
<EXIT_PROCESS Id="RDK:20683219" DesignTimeRemark="Es wird die Höhe nur von zusammenhängenden Kreiseln oder Eckrädern vererbt. Von allen anderen Elementen nicht." ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
<CALLFUNCTION Id="RDK:1280616" DesignTimeTip="old input value: ExecOnValues(parent_links, &quot;StrAfter(Me, &quot;&quot;;&quot;&quot;)&quot;, &quot;&quot;)">
@@ -13299,7 +13300,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</SET>
<CALLFUNCTION Id="RDK:20670304">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_Foerder]]></EXP>
<EXP><![CDATA[$C$CreatePrototype_Foerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
@@ -14487,18 +14488,42 @@ me.x
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family]]></EXP>
<CASEGROUP Id="RDK:1576707" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
<CALLFUNCTION Id="RDK:19927916" DesignTimeNotes="20231005 -1-">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:20683220">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kreisel"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Eckrad"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:20683221" SubType="Then">
<CALLFUNCTION Id="RDK:19927916" DesignTimeNotes="20231005 -1-">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:20683222" SubType="Else">
<CALLFUNCTION Id="RDK:20683231">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
<GROUP Id="RDK:304141" Name="Kreisel Operations" SubType="Generic" DesignTimeNotes="ShapeList[&quot;id=&quot;+Param.Input[0].shapeID].family=&quot;Kreisel&quot;&#xD;&#xA;ShapeList[&quot;id=&quot;+Param.Input[1].shapeID].family=&quot;Kreisel&quot;">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$(ShapeList["id="+Param.Input[0].shapeID].Rotationsklasse="Rotationsobjekt") Or
@@ -14653,104 +14678,6 @@ me.x
</CALLFUNCTION>
</GROUP>
</GROUP>
<GROUP Id="RDK:1002232" Name="InheritHeight" SubType="Generic" Suppressed="True">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Count(ListDiff(NewListStr("Gefaellestrecke", "Kreisel"),NewListStr(ShapeList["id="+Param.Input[0].shapeID].family, ShapeList["id="+Param.Input[1].shapeID].family)))=0]]></EXP>
</VALUECONDITION>
<IFTHENELSE Id="RDK:1003282">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Kreisel"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:1003283" SubType="Then">
<SET Id="RDK:1003270" VarRef="Shape_Kreisel">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:1003296" VarRef="Shape_Gefaellestrecke">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:1003284" SubType="Else">
<SET Id="RDK:1003298" VarRef="Shape_Kreisel">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:1003300" VarRef="Shape_Gefaellestrecke">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<COMMENTS Id="RDK:1158774" DesignTimeRemark="Annahme cp1: Gefällestrecke Connection Point (graphisch) oben" DesignTimeNotes="20230928 -1-" />
<COMMENTS Id="RDK:1158776" DesignTimeRemark="Annahme cp2: Gefällestrecke Connection Point (graphisch) unten" DesignTimeNotes="20230928 -1-" />
<GROUP Id="RDK:1163027" Name="To Gefällestrecke cp1 (top point)" SubType="Generic" DesignTimeNotes="20230928 -1-">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID = "cp1" AND Param.Input[0].shapeID = Shape_Gefaellestrecke.id]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID = "cp1" AND Param.Input[1].shapeID = Shape_Gefaellestrecke.id]]></EXP>
</VALUECONDITION>
<SET Id="RDK:1158798" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:1163049" Name="To Gefällestrecke cp2 (bottom point)" SubType="Generic" DesignTimeNotes="20230928 -1-">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Param.Input[0].connectionPointID = "cp2" AND Param.Input[0].shapeID = Shape_Gefaellestrecke.id]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Param.Input[1].connectionPointID = "cp2" AND Param.Input[1].shapeID = Shape_Gefaellestrecke.id]]></EXP>
</VALUECONDITION>
<SET Id="RDK:1158803" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<COMMENTS Id="RDK:1155597" DesignTimeRemark="Hier wird immer zuerst die Höhe oben gesetzt egal welcher der Punkte zum verbinden genommen wird. Ok?" DesignTimeNotes="20230928 -1-" />
<IFTHENELSE Id="RDK:1004841" Suppressed="True" DesignTimeNotes="20230928 -1-&#xD;&#xA;suppressed">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben=""]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:1004842" SubType="Then">
<SET Id="RDK:1003301" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:1004843" SubType="Else">
<SET Id="RDK:1004849" VarRef="ShapeList[&quot;id=&quot;+Shape_Gefaellestrecke.id].GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$Shape_Kreisel.KreiselDefinition.Hoehe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</GROUP>
<CALLFUNCTION Id="RDK:1698068" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:19474698" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus_Ok]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</CASEGROUP>
<CASEGROUP Id="RDK:1576710" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
@@ -14758,141 +14685,167 @@ me.x
<EXP><![CDATA[$=$Shape_Prototype.EckradDefinition.Drehung]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SELECTCASE Id="RDK:1578960">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family]]></EXP>
<CASEGROUP Id="RDK:1578962" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
<SET Id="RDK:1578958" VarRef="Shape_Prototype.EckradDefinition.Drehung">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].KreiselDefinition.Drehung*(-1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:1578964" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
<SET Id="RDK:1578966" VarRef="Shape_Prototype.EckradDefinition.Drehung">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].EckradDefinition.Drehung*(-1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
</SELECTCASE>
<GROUP Id="RDK:1578972" Name="Group" SubType="Generic">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape_Prototype.rotation=""]]></EXP>
<IFTHENELSE Id="RDK:20683251">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kreisel"]]></EXP>
</VALUECONDITION>
<SET Id="RDK:1578971" VarRef="Shape_Prototype.rotation">
<EXP><![CDATA[$C$0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<CALLFUNCTION Id="RDK:1578976">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_Eckrad]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:1578978">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:1579006">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$OriginalRatation<>Shape_Prototype.EckradDefinition.Drehung]]></EXP>
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Eckrad"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:1579003" SubType="Then">
<GROUP Id="RDK:1579001" Name="Find Children" SubType="Generic">
<SET Id="RDK:1578995" VarRef="LinkedShapeIDs">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<FOREACHLOOP Id="RDK:1578999" ItemVarRef="Link">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<SET Id="RDK:1578996" VarRef="Link">
<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<GROUP Id="RDK:1578998" Name="Group" SubType="Generic">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Not (Link=Param.Input[1].shapeID)]]></EXP>
</VALUECONDITION>
<LIST_ADD Id="RDK:1578997" ListRef="LinkedShapeIDs">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$Link]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
</GROUP>
</FOREACHLOOP>
<CALLFUNCTION Id="RDK:1579000">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CollectLinkedShapes]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<CALLFUNCTION Id="RDK:1579002">
<GROUP Id="RDK:20683248" SubType="Then">
<CALLFUNCTION Id="RDK:20683247" DesignTimeNotes="20231005 -1-">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Inherit Children rotation]]></EXP>
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="InputExp" />
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:1579005" SubType="Else">
<COMMENTS Id="RDK:1579004" DesignTimeRemark="No children rotation needed" />
<GROUP Id="RDK:20683250" SubType="Else">
<CALLFUNCTION Id="RDK:20683249">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:1592919">
<PAR Name="FuncName">
<EXP><![CDATA[$C$AddWeiche]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:20494432">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<GROUP Id="RDK:20683267" Name="Eckrad Operations" SubType="Generic">
<SELECTCASE Id="RDK:1578960">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family]]></EXP>
<CASEGROUP Id="RDK:1578962" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
<SET Id="RDK:1578958" VarRef="Shape_Prototype.EckradDefinition.Drehung">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].KreiselDefinition.Drehung*(-1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:1578964" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
<SET Id="RDK:1578966" VarRef="Shape_Prototype.EckradDefinition.Drehung">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].EckradDefinition.Drehung*(-1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
</SELECTCASE>
<GROUP Id="RDK:1578972" Name="Group" SubType="Generic">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape_Prototype.rotation=""]]></EXP>
</VALUECONDITION>
<SET Id="RDK:1578971" VarRef="Shape_Prototype.rotation">
<EXP><![CDATA[$C$0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<CALLFUNCTION Id="RDK:1578976">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_Eckrad]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:1578978">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:1579006">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$OriginalRatation<>Shape_Prototype.EckradDefinition.Drehung]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:1579003" SubType="Then">
<GROUP Id="RDK:1579001" Name="Find Children" SubType="Generic">
<SET Id="RDK:1578995" VarRef="LinkedShapeIDs">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<FOREACHLOOP Id="RDK:1578999" ItemVarRef="Link">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$Shape_Prototype.links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<SET Id="RDK:1578996" VarRef="Link">
<EXP><![CDATA[$=$StrAfter(Link, ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<GROUP Id="RDK:1578998" Name="Group" SubType="Generic">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Not (Link=Param.Input[1].shapeID)]]></EXP>
</VALUECONDITION>
<LIST_ADD Id="RDK:1578997" ListRef="LinkedShapeIDs">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$Link]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
</GROUP>
</FOREACHLOOP>
<CALLFUNCTION Id="RDK:1579000">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CollectLinkedShapes]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$LinkedShapeIDs]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<CALLFUNCTION Id="RDK:1579002">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Inherit Children rotation]]></EXP>
</PAR>
<PAR Name="InputExp" />
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:1579005" SubType="Else">
<COMMENTS Id="RDK:1579004" DesignTimeRemark="No children rotation needed" />
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:1592919">
<PAR Name="FuncName">
<EXP><![CDATA[$C$AddWeiche]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</CASEGROUP>
<CASEGROUP Id="RDK:1606858" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
@@ -14964,32 +14917,6 @@ me.x
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
<GROUP Id="RDK:20540423" Name="Update" SubType="Generic" Bookmarked="True">
<CALLFUNCTION Id="RDK:20540427">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_Gefaellestrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:20540429">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</CASEGROUP>
<CASEGROUP Id="RDK:18732456" CaseType="0">
<EXP><![CDATA[$C$Strecke]]></EXP>
@@ -15054,6 +14981,18 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:20673034" DesignTimeNotes="20231005 -1-">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:18221763">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
@@ -17489,7 +17428,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Options" />
</CALLFUNCTION>
<COMMENTS Id="RDK:19937420" DesignTimeRemark="Höhe des Shapes der Gefällestrecke erst setzen, wenn beide Anschlusspunkte definiert wurden" />
<CALLFUNCTION Id="RDK:19937393">
<CALLFUNCTION Id="RDK:19937393" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Check_is_defined]]></EXP>
</PAR>
@@ -17501,7 +17440,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:19937405">
<IFTHENELSE Id="RDK:19937405" Suppressed="True">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$(isDefined= True)]]></EXP>
</VALUECONDITION>
@@ -18287,7 +18226,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<IFTHENELSE Id="RDK:19603003">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$(ShapeList[shapeList_idx].GefaelleDefinition.LH_fits = True)]]></EXP>
<EXP><![CDATA[$=$(ShapeList["id="+shapeId].GefaelleDefinition.LH_fits = True)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19603000" SubType="Then">
<CALLFUNCTION Id="RDK:19602999">
@@ -24924,4 +24863,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PROFILES_DATA>
<BOM_DATA />
</EXTERNAL_DATA>
</PROCESS>
</PROCESS>