From 5cdf43c7c3e64128772a589cdd237fa5a53dcca1 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Thu, 16 Oct 2025 17:04:22 +0200
Subject: [PATCH] getOppositeConnectionPoint impl. Bugfixes

---
 MAIN_SSG.rdx | 502 ++++++++++++++++++++++++++-------------------------
 1 file changed, 255 insertions(+), 247 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 82fd04e..86797b9 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -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" />