From bf3fc519206c19bdca6fb5519ad7fb5c4624032e Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 23 Jul 2024 11:28:41 +0200
Subject: [PATCH] CreateCopy Methode dazu. Ein paar Fehlermeldungen berichtigt.

---
 MAIN_SSG.rdx | 471 ++++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 428 insertions(+), 43 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index cca4dcf..6071bca 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -762,7 +762,7 @@
 					<FIELD Id="RDK:900067" Name="Abstand (Kreiselachse A - Kreiselachse) in Meter" Type="string" />
 					<FIELD Id="RDK:900069" Name="Anzahl der Separatoren" Type="string" />
 					<FIELD Id="RDK:19227785" Name="Anzahl Zusatzseparatoren" Type="string" />
-					<FIELD Id="RDK:900071" Name="Anzahl der Scanner" Type="string" />
+					<FIELD Id="RDK:900071" Name="Anzahl der zusätzlichen oder abzuziehenden Scanner" Type="string" />
 					<FIELD Id="RDK:952180" Name="Anzahl der Rampen" Type="string" />
 					<FIELD Id="RDK:1065211" Name="Höhe in m" Type="string" />
 				</TYPE>
@@ -3112,6 +3112,22 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 									<PAR Name="id">
 										<EXP><![CDATA[$=$"defcp"+Me_idx]]></EXP>
 									</PAR>
+									<PAR Name="x" />
+									<PAR Name="y" />
+									<PAR Name="z" />
+									<PAR Name="xMin" />
+									<PAR Name="xMax" />
+									<PAR Name="xStep" />
+									<PAR Name="yMin" />
+									<PAR Name="yMax" />
+									<PAR Name="yStep" />
+									<PAR Name="zMin" />
+									<PAR Name="zMax" />
+									<PAR Name="zStep" />
+									<PAR Name="direction" />
+									<PAR Name="linkClass" />
+									<PAR Name="label" />
+									<PAR Name="isDimension" />
 								</EXEC_ON_VALUES>
 								<SET Id="RDK:187101" VarRef="Property_Prototype.connectionPoints">
 									<EXP><![CDATA[$=$ToJSON(ConnectionPointList)]]></EXP>
@@ -3779,6 +3795,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="pinned" />
 										<PAR Name="selected" />
 										<PAR Name="includeInBOM" />
+										<PAR Name="isDefined" />
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
@@ -5040,6 +5057,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 										<PAR Name="pinned" />
 										<PAR Name="selected" />
 										<PAR Name="includeInBOM" />
+										<PAR Name="isDefined" />
 									</SET_STRUCT>
 								</GROUP>
 							</CASEGROUP>
@@ -10864,7 +10882,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 												<PAR Name="Label" />
 												<PAR Name="Field" />
 												<PAR Name="Value">
-													<EXP><![CDATA[$C$Ein neuer Verbindungspunkt wurde hinzugefügt!werden!]]></EXP>
+													<EXP><![CDATA[$C$Ein neuer Verbindungspunkt wurde hinzugefügt!]]></EXP>
 												</PAR>
 												<PAR Name="Uom" />
 												<PAR Name="Tooltip" />
@@ -10972,7 +10990,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 													<PAR Name="Label" />
 													<PAR Name="Field" />
 													<PAR Name="Value">
-														<EXP><![CDATA[$C$Verbindungspunkte ist bereits vorhanden.]]></EXP>
+														<EXP><![CDATA[$C$Verbindungspunkt ist bereits vorhanden.]]></EXP>
 													</PAR>
 													<PAR Name="Uom" />
 													<PAR Name="Tooltip" />
@@ -12011,6 +12029,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$V$EventData]]></EXP>
 						</PAR>
 						<PAR Name="Options" />
+						<PAR Name="ProfileName" />
 					</ACTION_CALL>
 					<SELECTCASE Id="RDK:973746">
 						<EXP><![CDATA[$=$Button]]></EXP>
@@ -12712,7 +12731,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 				</SET>
 				<CALLFUNCTION Id="RDK:1630769">
 					<PAR Name="FuncName">
-						<EXP><![CDATA[$C$GetNewShapeID]]></EXP>
+						<EXP><![CDATA[$C$GetNewShapeIDCounter]]></EXP>
 					</PAR>
 					<PAR Name="InputExp" />
 					<PAR Name="ResultRef">
@@ -14271,7 +14290,7 @@ me.x
 					</SET>
 					<CALLFUNCTION Id="RDK:1630771" Suppressed="True">
 						<PAR Name="FuncName">
-							<EXP><![CDATA[$C$GetNewShapeID]]></EXP>
+							<EXP><![CDATA[$C$GetNewShapeIDCounter]]></EXP>
 						</PAR>
 						<PAR Name="InputExp" />
 						<PAR Name="ResultRef">
@@ -15456,6 +15475,210 @@ me.x
 					</GROUP>
 				</IFTHENELSE>
 			</FUNCTION>
+			<FUNCTION Id="RDK:20722220" Name="CreateCopy" InputTypeName="SSGParameter[]" Options="(TYPEFUNCTION)">
+				<COMMENTS Id="RDK:20722250" DesignTimeRemark="Erstellt Kopie des ShapeItems. Bekommt die Daten im Shape_Prototype überreicht. " />
+				<GROUP Id="RDK:20725660" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:20725655" Name="shapeItem" Type="Editor2DShapeType" />
+					<VAR Id="RDK:20725668" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:20725790" Name="kreisel1" Type="string" />
+					<VAR Id="RDK:20729869" Name="cpk1" Type="string" />
+					<VAR Id="RDK:20725792" Name="kreisel2" Type="string" />
+					<VAR Id="RDK:20729871" Name="cpk2" Type="string" />
+					<VAR Id="RDK:20729861" Name="newId" Type="string" />
+				</GROUP>
+				<SET Id="RDK:20722136" VarRef="shapeItem">
+					<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20729863" VarRef="newId">
+					<EXP><![CDATA[$=$"Copy_"+CreateGUID()]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20725788" VarRef="kreisel1">
+					<EXP><![CDATA[$=$Param.Input["key=idKreisel1"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20725794" VarRef="kreisel2">
+					<EXP><![CDATA[$=$Param.Input["key=idKreisel2"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20729865" VarRef="cpk1">
+					<EXP><![CDATA[$=$Param.Input["key=cp1"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20729867" VarRef="cpk2">
+					<EXP><![CDATA[$=$Param.Input["key=cp2"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<CALLFUNCTION Id="RDK:20722139">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$GetNewShapeIDCounter]]></EXP>
+					</PAR>
+					<PAR Name="InputExp" />
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<SET Id="RDK:20722140" VarRef="Shape_Prototype.name">
+					<EXP><![CDATA[$=$Shape_Prototype.family+" :"+Shape_Prototype.IDCounter]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20729873" VarRef="Shape_Prototype.x">
+					<EXP><![CDATA[$=$Shape_Prototype.x + 1000]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20729875" VarRef="Shape_Prototype.y">
+					<EXP><![CDATA[$=$Shape_Prototype.y + 1000]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<ACTION_CALL Id="RDK:20732578" Name="RDEngineering_E2DManageShape">
+					<PAR Name="RDLibraryName">
+						<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+					</PAR>
+					<PAR Name="e2dMode">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="libraryID">
+						<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
+					</PAR>
+					<PAR Name="operType">
+						<EXP><![CDATA[$C$0]]></EXP>
+					</PAR>
+					<PAR Name="shpId">
+						<EXP><![CDATA[$C$s_Gefaellestrecke]]></EXP>
+					</PAR>
+					<PAR Name="catId">
+						<EXP><![CDATA[$C$c_Parts]]></EXP>
+					</PAR>
+					<PAR Name="shpItemId" />
+					<PAR Name="shpItem">
+						<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+					</PAR>
+					<PAR Name="shpItemList">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="shpList">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="outShapeIdList">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</ACTION_CALL>
+				<SET_STRUCT Id="RDK:20725666" VarRef="Shape_Prototype" ListRef="ShapeList">
+					<PAR Name="SivasNummer" />
+					<PAR Name="Rotationsklasse" />
+					<PAR Name="IDCounter" />
+					<PAR Name="KreiselDefinition" />
+					<PAR Name="EckradDefinition" />
+					<PAR Name="GefaelleDefinition" />
+					<PAR Name="StreckeDefinition" />
+					<PAR Name="FoerdererDefinition" />
+					<PAR Name="WeicheDefinition" />
+					<PAR Name="BTMTBeladungDefinition" />
+					<PAR Name="BTMTEntladungDefinition" />
+					<PAR Name="isDefined" />
+					<PAR Name="source">
+						<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+					</PAR>
+					<PAR Name="sourceLibrary" />
+					<PAR Name="signature" />
+					<PAR Name="id">
+						<EXP><![CDATA[$=$newId]]></EXP>
+					</PAR>
+					<PAR Name="name" />
+					<PAR Name="family" />
+					<PAR Name="description" />
+					<PAR Name="x" />
+					<PAR Name="y" />
+					<PAR Name="z" />
+					<PAR Name="width">
+						<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.width, "mm", 96)
+]]></EXP>
+					</PAR>
+					<PAR Name="height">
+						<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.height, "mm", 96)]]></EXP>
+					</PAR>
+					<PAR Name="depth">
+						<EXP><![CDATA[$=$ConvertFromPixel(Shape_Prototype.depth, "mm", 96)]]></EXP>
+					</PAR>
+					<PAR Name="rotation" />
+					<PAR Name="text" />
+					<PAR Name="behaviour" />
+					<PAR Name="datadump" />
+					<PAR Name="path" />
+					<PAR Name="ctrl1x" />
+					<PAR Name="ctrl1y" />
+					<PAR Name="ctrl2x" />
+					<PAR Name="ctrl2y" />
+					<PAR Name="shapeFromId">
+						<EXP><![CDATA[$=$kreisel1]]></EXP>
+					</PAR>
+					<PAR Name="shapeFromPointIndex">
+						<EXP><![CDATA[$=$cpk1]]></EXP>
+					</PAR>
+					<PAR Name="shapeToId">
+						<EXP><![CDATA[$=$kreisel2]]></EXP>
+					</PAR>
+					<PAR Name="shapeToPointIndex">
+						<EXP><![CDATA[$=$cpk2]]></EXP>
+					</PAR>
+					<PAR Name="dimStack" />
+					<PAR Name="dimType" />
+					<PAR Name="dimDriving" />
+					<PAR Name="dimValue" />
+					<PAR Name="color" />
+					<PAR Name="colorOpacity" />
+					<PAR Name="color3D" />
+					<PAR Name="colorOpacity3D" />
+					<PAR Name="lineWidth" />
+					<PAR Name="lineColor" />
+					<PAR Name="lineOpacity" />
+					<PAR Name="lineColor3D" />
+					<PAR Name="lineOpacity3D" />
+					<PAR Name="links" />
+					<PAR Name="group" />
+					<PAR Name="layer">
+						<EXP><![CDATA[$C$Strecke]]></EXP>
+					</PAR>
+					<PAR Name="connectionPoints" />
+					<PAR Name="modified" />
+					<PAR Name="pinned" />
+					<PAR Name="selected" />
+					<PAR Name="includeInBOM" />
+				</SET_STRUCT>
+				<ACTION_CALL Id="RDK:20725664" Name="RDEngineering_E2DLinkShapes">
+					<PAR Name="RDLibraryName">
+						<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
+					</PAR>
+					<PAR Name="libraryID">
+						<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
+					</PAR>
+					<PAR Name="shapeList">
+						<EXP><![CDATA[$=$ShapeList]]></EXP>
+					</PAR>
+					<PAR Name="shapeFromID">
+						<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+					</PAR>
+					<PAR Name="shapeFromPointID">
+						<EXP><![CDATA[$C$cp1]]></EXP>
+					</PAR>
+					<PAR Name="shapeToID">
+						<EXP><![CDATA[$=$kreisel1]]></EXP>
+					</PAR>
+					<PAR Name="shapeToPointID">
+						<EXP><![CDATA[$=$cpk1]]></EXP>
+					</PAR>
+					<PAR Name="shapeFromEventHandler">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="shapeToEventHandler">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</ACTION_CALL>
+			</FUNCTION>
 			<FUNCTION Id="RDK:20549457" Name="GetSelected" InputTypeName="string[]" ResultTypeName="string[]">
 				<GROUP Id="RDK:20549687" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:20549692" Name="shapeItem" Type="Editor2DShapeType" />
@@ -15529,6 +15752,7 @@ me.x
 				</SET>
 			</FUNCTION>
 			<FUNCTION Id="RDK:20579036" Name="doPattern" DesignTimeRemark="erzeugt ein Muster dieser Gefällestrecke / Förderers an den verbundenen Kreise(ln)" InputTypeName="string[]">
+				<COMMENTS Id="RDK:20725717" DesignTimeRemark="Erzeuge ein Muster zwischen den zwei Kreisel, ausgehend vom selektierten Objekt" />
 				<GROUP Id="RDK:20579050" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<VAR Id="RDK:20579046" Name="selectedIds" Type="string[]">
 						<SET Id="RDK:20579047" VarRef="me">
@@ -15551,6 +15775,12 @@ me.x
 						<VAR Id="RDK:20689945" Name="shapeId_kreisel2" Type="string" />
 						<VAR Id="RDK:20689946" Name="shape_kreisel1" Type="Editor2DShapeType" />
 						<VAR Id="RDK:20689947" Name="shape_kreisel2" Type="Editor2DShapeType" />
+						<VAR Id="RDK:20725686" Name="cpId_1" Type="string" />
+						<VAR Id="RDK:20725688" Name="cpId_2" Type="string" />
+						<VAR Id="RDK:20725674" Name="UebergabeListe" Type="SSGParameter[]" />
+						<VAR Id="RDK:20725709" Name="ResultListe" Type="string[]" />
+						<VAR Id="RDK:20725733" Name="CpointsKreisel1" Type="SSGConnectionPoint[]" />
+						<VAR Id="RDK:20725735" Name="CpointsKreisel2" Type="SSGConnectionPoint[]" />
 					</GROUP>
 					<CALLFUNCTION Id="RDK:20579087">
 						<PAR Name="FuncName">
@@ -15568,7 +15798,18 @@ me.x
 						<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<COMMENTS Id="RDK:20689223" DesignTimeRemark="hole beide angebundenen Kreisel " DesignTimeNotes="Process Name:&#xD;&#xA;MAIN_SSG.rdx&#xD;&#xA;&#xD;&#xA;Process Requires:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Author:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Creation Date:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Functionality:&#xD;&#xA;&#xD;&#xA;Changes:&#xD;&#xA;20231005 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Gefällestrecke (Pufferstrecke)&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;20230928 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Kreisel" />
+					<COMMENTS Id="RDK:20689223" DesignTimeRemark="hole beide angebundenen Kreisel. Falls keine da sind, schluss" />
+					<IFTHENELSE Id="RDK:20719994">
+						<VALUECONDITION Value="true" Oper="OR">
+							<EXP><![CDATA[$=$Count(ShapeList[shape_index].links) = 0]]></EXP>
+						</VALUECONDITION>
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$Count(ShapeList[shape_index].links) = 1]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20719995" SubType="Then">
+							<EXIT_PROCESS Id="RDK:20720002" BreakType="4" ExitStatus="0" />
+						</GROUP>
+					</IFTHENELSE>
 					<SET Id="RDK:20689231" VarRef="shapeId_kreisel1">
 						<EXP><![CDATA[$=$StrAfter(ShapeList[shape_index].links[0], ";")]]></EXP>
 						<PAR Name="AdvancedOptions" />
@@ -15577,38 +15818,192 @@ me.x
 						<EXP><![CDATA[$=$StrAfter(ShapeList[shape_index].links[1], ";")]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<SET Id="RDK:20689918" VarRef="shape_kreisel1">
-						<EXP><![CDATA[$=$ShapeList["id=" shapeId_kreisel1]]]></EXP>
+					<COMMENTS Id="RDK:20725692" DesignTimeRemark="dazu die belegten Conection points im jeweiligen Kreisel feststellen" />
+					<SET_STRUCT Id="RDK:20725703" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$shapeId_0]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId_kreisel1]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725711" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$shapeId_1]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:20725694">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$ResultListe]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
+					<SET Id="RDK:20725721" VarRef="cpId_1">
+						<EXP><![CDATA[$=$ResultListe[0]]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<SET Id="RDK:20689928" VarRef="shape_kreisel2">
-						<EXP><![CDATA[$=$ShapeList["id=" shapeId_kreisel2]]]></EXP>
+					<SET Id="RDK:20725713" VarRef="UebergabeListe">
+						<EXP><![CDATA[$C$NOTHING]]></EXP>
 						<PAR Name="AdvancedOptions" />
 					</SET>
-					<COMMENTS Id="RDK:20689952" DesignTimeRemark="daraus die Connection points der Verbindenden Strecke" DesignTimeNotes="Process Name:&#xD;&#xA;MAIN_SSG.rdx&#xD;&#xA;&#xD;&#xA;Process Requires:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Author:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Creation Date:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Functionality:&#xD;&#xA;&#xD;&#xA;Changes:&#xD;&#xA;20231005 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Gefällestrecke (Pufferstrecke)&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;20230928 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Kreisel" />
+					<SET_STRUCT Id="RDK:20725723" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$shapeId_0]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId_kreisel2]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725725" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$shapeId_1]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<CALLFUNCTION Id="RDK:20725727">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
+						</PAR>
+						<PAR Name="InputExp">
+							<EXP><![CDATA[$=$UebergabeListe]]></EXP>
+						</PAR>
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$ResultListe]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
+					<SET Id="RDK:20725729" VarRef="cpId_2">
+						<EXP><![CDATA[$=$ResultListe[0]]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:20725731" VarRef="UebergabeListe">
+						<EXP><![CDATA[$C$NOTHING]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET_STRUCT Id="RDK:20725676" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$idKreisel1]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId_kreisel1]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725678" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$idKreisel2]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId_kreisel2]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725719" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$toCopy]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$shapeId]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725680" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$cp1]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$cpId_1]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20725715" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$cp2]]></EXP>
+						</PAR>
+						<PAR Name="Str">
+							<EXP><![CDATA[$=$cpId_2]]></EXP>
+						</PAR>
+						<PAR Name="Dbl" />
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<COMMENTS Id="RDK:20689952" DesignTimeRemark="daraus die Connection points welche auf den jeweiligen Innenseiten der Kreisel liegen" />
+					<IFTHENELSE Id="RDK:20725746">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$StrIndexOf(cpId_1, "M_G", 0) > 0]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20725747" SubType="Then">
+							<SET Id="RDK:20725737" VarRef="CpointsKreisel1">
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.M_Strecke]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+						<GROUP Id="RDK:20725748" SubType="Else">
+							<SET Id="RDK:20725739" VarRef="CpointsKreisel1">
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.S_Strecke]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+					</IFTHENELSE>
+					<IFTHENELSE Id="RDK:20725782">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$StrIndexOf(cpId_2, "M_G", 0) > 0]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:20725779" SubType="Then">
+							<SET Id="RDK:20725741" VarRef="CpointsKreisel2">
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.M_Strecke]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+						<GROUP Id="RDK:20725781" SubType="Else">
+							<SET Id="RDK:20725745" VarRef="CpointsKreisel2">
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId_kreisel1].KreiselDefinition.S_Strecke]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+					</IFTHENELSE>
 					<COMMENTS Id="RDK:20689954" DesignTimeRemark="Prüfe ob die Distanzen und hole die Connection points die gegenüberliegen" DesignTimeNotes="Process Name:&#xD;&#xA;MAIN_SSG.rdx&#xD;&#xA;&#xD;&#xA;Process Requires:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Author:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Creation Date:&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;Functionality:&#xD;&#xA;&#xD;&#xA;Changes:&#xD;&#xA;20231005 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Gefällestrecke (Pufferstrecke)&#xD;&#xA;&#xD;&#xA;&#xD;&#xA;20230928 -1- \DVR&#xD;&#xA;ERK-47&#xD;&#xA;Höhenänderung Kreisel" />
 					<SELECTCASE Id="RDK:20579308">
 						<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
 						<CASEGROUP Id="RDK:20579229" CaseType="0">
 							<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
-							<CALLFUNCTION Id="RDK:20579094">
+							<CALLFUNCTION Id="RDK:20722252">
 								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreatePrototype_Gefaellestrecke]]></EXP>
+									<EXP><![CDATA[$C$CreateCopy]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$shapeId]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<CALLFUNCTION Id="RDK:20579314">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$shapeId]]></EXP>
+									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 								</PAR>
 								<PAR Name="ResultRef">
 									<EXP><![CDATA[$V$]]></EXP>
@@ -15618,24 +16013,12 @@ me.x
 						</CASEGROUP>
 						<CASEGROUP Id="RDK:20579240" CaseType="0">
 							<EXP><![CDATA[$C$Foerderer]]></EXP>
-							<CALLFUNCTION Id="RDK:20579312">
+							<CALLFUNCTION Id="RDK:20725672">
 								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreatePrototype_Foerderer]]></EXP>
+									<EXP><![CDATA[$C$CreateCopy]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$shapeId]]></EXP>
-								</PAR>
-								<PAR Name="ResultRef">
-									<EXP><![CDATA[$V$]]></EXP>
-								</PAR>
-								<PAR Name="Options" />
-							</CALLFUNCTION>
-							<CALLFUNCTION Id="RDK:20579096">
-								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
-								</PAR>
-								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$shapeId]]></EXP>
+									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
 								</PAR>
 								<PAR Name="ResultRef">
 									<EXP><![CDATA[$V$]]></EXP>
@@ -16345,10 +16728,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
 								<PAR Name="KreiselDefinition" />
 								<PAR Name="EckradDefinition" />
 								<PAR Name="GefaelleDefinition" />
+								<PAR Name="StreckeDefinition" />
 								<PAR Name="FoerdererDefinition" />
 								<PAR Name="WeicheDefinition" />
 								<PAR Name="BTMTBeladungDefinition" />
 								<PAR Name="BTMTEntladungDefinition" />
+								<PAR Name="isDefined" />
 								<PAR Name="source">
 									<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
 								</PAR>
@@ -16919,7 +17304,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
 					</ACTION_CALL>
 				</GROUP>
 			</FUNCTION>
-			<FUNCTION Id="RDK:1630766" Name="GetNewShapeID" InputTypeName="string">
+			<FUNCTION Id="RDK:1630766" Name="GetNewShapeIDCounter" InputTypeName="string">
 				<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter">
 					<EXP><![CDATA[$=$FieldValue(LastOf(SortListOfStructs(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family), "IDCounter", false)), "IDCounter")+1]]></EXP>
 					<PAR Name="AdvancedOptions" />
@@ -25027,4 +25412,4 @@ ShapeList["id="+Param.Input[1].shapeID].name
 		</PROFILES_DATA>
 		<BOM_DATA />
 	</EXTERNAL_DATA>
-</PROCESS>
\ No newline at end of file
+</PROCESS>