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

getOppositeConnectionPoint impl. Bugfixes

Browse Source
This commit is contained in:
Michael Stangl
2025-10-16 17:04:22 +02:00
parent 930a990e80
commit 5cdf43c7c3
1 changed files with 255 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+255 -247
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="y.wang [ANGEBOT-NB02]" ModDate="2025-10-15T15:49:16" LanguageVersion="2014.1.3.712" />
<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" />
<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">
@@ -1412,6 +1412,7 @@
<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" />
@@ -2041,7 +2042,7 @@
<PAR Name="OFBogenDefinition" />
<PAR Name="OFWeicheDefinition" />
</SET_STRUCT>
<REMOVE_ADD Id="RDK:639233" Suppressed="True" ListRef="ShapeList" Expr="Me.behaviour=&quot;(BACKGROUND)&quot;">
<REMOVE_ADD Id="RDK:639233" ListRef="ShapeList" Expr="Me.behaviour=&quot;(BACKGROUND)&quot;">
<EXP />
</REMOVE_ADD>
<LIST_ADD Id="RDK:8373" ListRef="ShapeList">
@@ -40433,197 +40434,6 @@ me.x
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
</FUNCTION>
<FUNCTION Id="RDK:26162307" Name="getCoordsOfCp" DesignTimeRemark="gibt die x,y,z Koordinate dieses ConnectionPoints dieses Items zurück" InputTypeName="SSGParameter[]" ResultTypeName="double[]" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26162302" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26162293" Name="shapeId" Type="string">
<SET Id="RDK:26162292" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=shapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162295" Name="cpname" Type="string">
<SET Id="RDK:26162294" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=cpname"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162386" Name="shapeItem" Type="Editor2DShapeType" />
<VAR Id="RDK:26162388" Name="cp" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26162406" Name="coordsSource" Type="double[]" />
<VAR Id="RDK:26162499" Name="distance" Type="double[]" />
</GROUP>
<SET Id="RDK:26162372" VarRef="shapeItem">
<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<FOREACHLOOP Id="RDK:26162370" DesignTimeRemark="Hole die Koordinate dieses Cps in dem Item" ItemVarRef="cp" IndexVarRef="nRow">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$shapeItem.connectionPoints]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:26162380">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$StrIndexOf(cp.id, cpname, 0) >= 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26162379" SubType="Then">
<LIST_ADD Id="RDK:26162378" ListRef="coords">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$cp.x]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<LIST_ADD Id="RDK:26162410" ListRef="coords">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$cp.y]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<LIST_ADD Id="RDK:26162412" ListRef="coords">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$cp.z]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET Id="RDK:26162414" VarRef="Param.Result">
<EXP><![CDATA[$=$coords]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:26162469" Name="getNearestConnectionPoint" DesignTimeRemark="bekommt ein Quellshape mit dessen Cp, gibt vom Zielshape den am nächsten liegenden freien CP zurück" InputTypeName="SSGParameter[]" ResultTypeName="string" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26162460" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26162454" Name="shapeId" Type="string">
<SET Id="RDK:26162453" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=shapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162456" Name="cpname" Type="string">
<SET Id="RDK:26162455" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=cpname"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162473" Name="shapeIdTarget" Type="string">
<SET Id="RDK:26162472" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=shapeId_target"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162459" Name="coordSource" Type="double[]" />
<VAR Id="RDK:26162507" Name="coordCp" Type="double[]" />
<VAR Id="RDK:26162509" Name="distance" Type="double" />
<VAR Id="RDK:26162528" Name="last_distance" Type="double">
<SET Id="RDK:26162527" VarRef="me">
<EXP><![CDATA[$C$100000]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26162495" Name="cpNearest" Type="string" />
<VAR Id="RDK:26162522" Name="name" Type="string" />
<VAR Id="RDK:26162518" Name="freeCps" Type="string[]" />
</GROUP>
<CALLFUNCTION Id="RDK:26162491">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getCoordsOfCp]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$coordSource]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26162515">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getFreeConnectionPoints]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeIdTarget]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$freeCps]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<FOREACHLOOP Id="RDK:26162467" DesignTimeRemark="Gehe alle vorhandenen freien Cps durch" ItemVarRef="name">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$freeCps]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<GROUP Id="RDK:26162511" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26162502" Name="CpCalc" Type="SSGParameter[]" />
</GROUP>
<SET_STRUCT Id="RDK:26162513" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$shapeIdTarget]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26162520" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$cpname]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$cpname]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26162504">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getCoordsOfCp]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$CpCalc]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$coordCp]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:26162545" VarRef="distance">
<EXP><![CDATA[$=$PointDistance(coordSource, coordCp)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:26162529">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$distance < last_distance]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26162530" SubType="Then">
<SET Id="RDK:26162537" VarRef="last_distance">
<EXP><![CDATA[$=$distance]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26162541" VarRef="cpNearest">
<EXP><![CDATA[$=$name]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET Id="RDK:26162468" VarRef="Param.Result">
<EXP><![CDATA[$=$cpNearest]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:26149531" Name="getFreeConnectionPoints" DesignTimeRemark="gives back the free/unused connection points of a shape" InputTypeName="string" ResultTypeName="string[]" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26149541" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26149537" Name="shapeId" Type="string">
@@ -40674,33 +40484,17 @@ me.x
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:26149674">
<VALUECONDITION Value="true">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Doppelweiche"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26149673" SubType="Then">
<SET Id="RDK:26149672" VarRef="allCps">
<EXP><![CDATA[$=$splitStr("cp1;cp2;cp3", ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:26149690">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Dreiwegeweiche"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26149689" SubType="Then">
<SET Id="RDK:26149688" VarRef="allCps">
<EXP><![CDATA[$=$splitStr("cp1;cp2;cp3", ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:26149714">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Deltaweiche"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26149713" SubType="Then">
<SET Id="RDK:26149712" VarRef="allCps">
<GROUP Id="RDK:26149673" SubType="Then">
<SET Id="RDK:26149672" VarRef="allCps">
<EXP><![CDATA[$=$splitStr("cp1;cp2;cp3", ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -40825,6 +40619,219 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:26251616" Name="getOppositeConnectionPoint" DesignTimeRemark="gives back the name of opposite connection point of a Omniflo Element" DesignTimeTip="Da die Objekte nach Konvention erstellt wurden, nur eine einfach Abfrage" InputTypeName="SSGParameter[]" ResultTypeName="string" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26251608" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26251606" Name="currentCpName" Type="string">
<SET Id="RDK:26251685" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=cpname"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26251677" Name="shapeId" Type="string">
<SET Id="RDK:26251683" VarRef="me">
<EXP><![CDATA[$=$Param.Input["key=shapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26251679" Name="shapeItem" Type="Editor2DShapeType" />
<VAR Id="RDK:26251689" Name="result" Type="string" />
</GROUP>
<SET Id="RDK:26251627" VarRef="shapeItem">
<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SELECTCASE Id="RDK:26251675">
<EXP><![CDATA[$=$shapeItem.family]]></EXP>
<CASEGROUP Id="RDK:26251653" CaseType="0">
<EXP><![CDATA[$C$OFGerade]]></EXP>
<IFTHENELSE Id="RDK:26251617">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$currentCpName = cp2]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26251618" SubType="Then">
<SET Id="RDK:26251697" VarRef="result">
<EXP><![CDATA[$C$cp1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:26251619" SubType="Else">
<SET Id="RDK:26251701" VarRef="result">
<EXP><![CDATA[$C$cp2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:26251655" CaseType="0">
<EXP><![CDATA[$C$OFBogen]]></EXP>
<IFTHENELSE Id="RDK:26251715">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$currentCpName = cp2]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26251712" SubType="Then">
<SET Id="RDK:26251711" VarRef="result">
<EXP><![CDATA[$C$cp1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:26251714" SubType="Else">
<SET Id="RDK:26251713" VarRef="result">
<EXP><![CDATA[$C$cp2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:26251671" CaseType="0">
<EXP><![CDATA[$C$OFWeiche]]></EXP>
<IFTHENELSE Id="RDK:26251658">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Doppelweiche"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Deltaweiche"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Dreiwegeweiche"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp= "Einzelweiche"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26251657" SubType="Then">
<SELECTCASE Id="RDK:26251860">
<EXP><![CDATA[$=$currentCpName ]]></EXP>
<CASEGROUP Id="RDK:26251861" CaseType="0">
<EXP><![CDATA[$C$cp2]]></EXP>
<SET Id="RDK:26251729" VarRef="result">
<EXP><![CDATA[$C$cp3]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251872" CaseType="0">
<EXP><![CDATA[$C$cp3]]></EXP>
<SET Id="RDK:26251871" VarRef="result">
<EXP><![CDATA[$C$cp2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251862" CaseType="1">
<EXP />
<ACTION_CALL Id="RDK:26251821" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$there is no opposite]]></EXP>
</PAR>
<PAR Name="MsgStyle">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="BtnLayout">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
</CASEGROUP>
</SELECTCASE>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:26251670">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Dreiwegeweiche"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shapeItem.OFWeicheDefinition.WeichenTyp = "Sternweiche"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26251911" SubType="Then">
<SELECTCASE Id="RDK:26251908">
<EXP><![CDATA[$=$currentCpName ]]></EXP>
<CASEGROUP Id="RDK:26251899" CaseType="0">
<EXP><![CDATA[$C$cp2]]></EXP>
<SET Id="RDK:26251898" VarRef="result">
<EXP><![CDATA[$C$cp3]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251901" CaseType="0">
<EXP><![CDATA[$C$cp3]]></EXP>
<SET Id="RDK:26251900" VarRef="result">
<EXP><![CDATA[$C$cp2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251903" CaseType="0">
<EXP><![CDATA[$C$cp1]]></EXP>
<SET Id="RDK:26251902" VarRef="result">
<EXP><![CDATA[$C$cp4]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251905" CaseType="0">
<EXP><![CDATA[$C$cp4]]></EXP>
<SET Id="RDK:26251904" VarRef="result">
<EXP><![CDATA[$C$cp1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26251907" CaseType="1">
<EXP />
<ACTION_CALL Id="RDK:26251906" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$there is no opposite]]></EXP>
</PAR>
<PAR Name="MsgStyle">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="BtnLayout">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
</CASEGROUP>
</SELECTCASE>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:26251674" CaseType="1">
<EXP />
<ACTION_CALL Id="RDK:26251672" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$element not yet implemented]]></EXP>
</PAR>
<PAR Name="MsgStyle">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="BtnLayout">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
<EXIT_PROCESS Id="RDK:26251673" BreakType="4" ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
<SET Id="RDK:26251615" VarRef="Param.Result">
<EXP><![CDATA[$=$result]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
<FUNCTION Id="RDK:26044480" Name="connectNewGroups" InputTypeName="SSGParameter[]" Options="(TYPEFUNCTION)">
<GROUP Id="RDK:26044506" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26044497" Name="original" Type="string[]">
@@ -40840,7 +40847,7 @@ me.x
</SET>
</VAR>
<VAR Id="RDK:26044499" Name="cps1" Type="string[]" />
<VAR Id="RDK:26044501" Name="cps2[]" 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>
@@ -40870,6 +40877,8 @@ me.x
<VAR Id="RDK:26147509" Name="source_r" Type="string" />
<VAR Id="RDK:26147510" Name="target_l" Type="string" />
<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[]" />
</GROUP>
<IFTHENELSE Id="RDK:26044578">
<VALUECONDITION Value="true">
@@ -40917,7 +40926,7 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:26169406" DesignTimeRemark="linkes Ende" />
<CALLFUNCTION Id="RDK:26149741">
<CALLFUNCTION Id="RDK:26149741" DesignTimeRemark="Hole dir den noch Freien Connection Point dieser Gerade">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getFreeConnectionPoints]]></EXP>
</PAR>
@@ -40956,6 +40965,7 @@ me.x
<EXIT_PROCESS Id="RDK:26162233" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<COMMENTS Id="RDK:26252063" DesignTimeRemark="Jetzt brauchen wir den Namen des CP der angenbundenen Weiche, an den die Verbindung dann erfolgen soll" />
<SET_STRUCT Id="RDK:26162477" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId]]></EXP>
@@ -40982,22 +40992,33 @@ me.x
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26162481" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_target]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$target_l]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26162416">
<CALLFUNCTION Id="RDK:26162416" DesignTimeRemark="Hier holen wir den bereits verbundenen Connection Point">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getNearestConnectionPoint]]></EXP>
<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>
<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>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$CpSearch]]></EXP>
@@ -41103,22 +41124,9 @@ me.x
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26162489" VarRef="SSGParameter" ClearAll="True" ListRef="CpSearch">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_target]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$target_r]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26162426">
<PAR Name="FuncName">
<EXP><![CDATA[$C$getNearestConnectionPoint]]></EXP>
<EXP><![CDATA[$C$getOppositeConnectionPoint]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$CpSearch]]></EXP>
@@ -41635,9 +41643,7 @@ me.x
<VAR Id="RDK:25934495" Name="newId" Type="string" />
<VAR Id="RDK:25934292" Name="ancestorId" Type="string" />
<VAR Id="RDK:25942468" Name="new_ancestorId" Type="string" />
<VAR Id="RDK:25934284" Name="LinkListe" Type="SSGParameter[]" />
<VAR Id="RDK:25938488" Name="Offsets" Type="SSGParameter[]" />
<VAR Id="RDK:25993219" Name="FilterCps" Type="SSGParameter[]" />
</GROUP>
<IFTHENELSE Id="RDK:25983010">
<VALUECONDITION Value="true">
@@ -41677,6 +41683,8 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:25934284" Name="LinkListe" Type="SSGParameter[]" />
<VAR Id="RDK:25993219" Name="FilterCps" Type="SSGParameter[]" />
</GROUP>
<SET Id="RDK:25983016" VarRef="Offsets">
<EXP><![CDATA[$C$NOTHING]]></EXP>
@@ -43297,7 +43305,7 @@ me.x
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$C$cp3]]></EXP>
<EXP><![CDATA[$C$cp2]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
@@ -43310,7 +43318,7 @@ me.x
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$C$cp3]]></EXP>
<EXP><![CDATA[$C$cp2]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />