From 7dc6980bc6ab4c4c34d5d9b9e15dfc7b9ad9bf4f Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 23 Jul 2024 16:37:28 +0200
Subject: [PATCH] =?UTF-8?q?erste=20Fassung=20der=20Erstellung=20der=20Kopi?=
 =?UTF-8?q?e=20eines=20Shapes=20f=C3=BCr=20das=20Mustern=20impl.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 489 +++++++++++++++++++++++++++++++++------------------
 1 file changed, 318 insertions(+), 171 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 6a684b4..5cbc3e2 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="m.stangl [ENTW-NB08]" ModDate="2024-07-23T14:40:17" LanguageVersion="2014.1.3.680" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-07-23T16:37:00" 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">
@@ -17,7 +17,7 @@
 					<FIELD Id="RDK:313476" Name="label" Type="string" />
 					<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -115,7 +115,7 @@
 					<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
 					<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -130,7 +130,7 @@
 					<FIELD Id="RDK:16525361" Name="BTMTEntladungDefinition" Type="BTMTEntladungType" />
 					<FIELD Id="RDK:19961198" Name="isDefined" Type="boolean" />
 				</TYPE>
-				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" Expanded="True" SubType="structure">
+				<TYPE Id="RDK:18530527" Name="SSG_ShapeType_limit" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:18530520" Name="KreiselDefinition" Type="KreiselType" />
 					<FIELD Id="RDK:18530521" Name="EckradDefinition" Type="EckradType" />
@@ -757,7 +757,7 @@
 					<FIELD Id="RDK:1516706" Name="Planquadrat" Type="string" DesignTimeNotes="Planquadrat ist die Position des Objekts auf der 2D Ebene. Wurde kein Planquadrat definiert, sollen einfach die X/Y Koordinaten des Objekts ausgegeben werden" />
 					<FIELD Id="RDK:1516707" Name="Merkmale" Type="string" DesignTimeNotes="Merkmale sind die vom Nutzer angegebenen Merkmale dieses Objeks, Z.B. Abstand der Motor zur Spannstation, Höhe, usw." />
 				</TYPE>
-				<TYPE Id="RDK:900066" Name="KreiselMerkmaleType" Expanded="True" SubType="structure" DesignTimeNotes="{ &quot;Abstand (Kreiselachse A - Kreiselachse) in Meter&quot;: &quot;4.5&quot;, &quot;Anzahl der Separatoren&quot;:&quot;2&quot;, &quot;Anzahl der Scanner&quot;:&quot;1&quot;, &quot;Anzahl der Scanner&quot;:&quot;1&quot;, &quot;Anzahl der Weichen&quot;: &quot;4&quot;  }">
+				<TYPE Id="RDK:900066" Name="KreiselMerkmaleType" SubType="structure" DesignTimeNotes="{ &quot;Abstand (Kreiselachse A - Kreiselachse) in Meter&quot;: &quot;4.5&quot;, &quot;Anzahl der Separatoren&quot;:&quot;2&quot;, &quot;Anzahl der Scanner&quot;:&quot;1&quot;, &quot;Anzahl der Scanner&quot;:&quot;1&quot;, &quot;Anzahl der Weichen&quot;: &quot;4&quot;  }">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:900067" Name="Abstand (Kreiselachse A - Kreiselachse) in Meter" Type="string" />
 					<FIELD Id="RDK:900069" Name="Anzahl der Separatoren" Type="string" />
@@ -5972,6 +5972,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<PAR Name="selected" />
 							<PAR Name="includeInBOM" />
 							<PAR Name="StreckeDefinition" />
+							<PAR Name="isDefined" />
 						</EXEC_ON_VALUES>
 						<FOREACHLOOP Id="RDK:1007456" ItemVarRef="PolyLineShapeItem" ByRefMode="True">
 							<PAR Name="ArrayValueExp">
@@ -15460,25 +15461,245 @@ 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" />
+			<FUNCTION Id="RDK:20722220" Name="CreateCopyShapePrototype" InputTypeName="SSGParameter[]" ResultTypeName="string" Options="(TYPEFUNCTION)">
+				<COMMENTS Id="RDK:20722250" DesignTimeRemark="Erstellt Kopie des ShapeItems. Bekommt die Daten im Shape_Prototype überreicht. Offset für das neue Item ist im Parameter" />
+				<GROUP Id="RDK:20733309" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:20733308" Name="x_offset" Type="double">
+						<SET Id="RDK:20733323" VarRef="me">
+							<EXP><![CDATA[$=$Param.Input["key=x_offset"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
+					<VAR Id="RDK:20733319" Name="y_offset" Type="double">
+						<SET Id="RDK:20733325" VarRef="me">
+							<EXP><![CDATA[$=$Param.Input["key=y_offset"].Dbl]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</VAR>
 				</GROUP>
-				<SET Id="RDK:20722136" VarRef="shapeItem">
-					<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+				<SET Id="RDK:20732581" VarRef="Property_Prototype">
+					<EXP><![CDATA[$C$NOTHING]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
-				<SET Id="RDK:20729863" VarRef="newId">
+				<ACTION_CALL Id="RDK:20732583" Name="RDEngineering_E2DManageShape" DesignTimeRemark="Eigenschaften des Shape_Prototype nach Property_Prototype kopieren">
+					<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[$=$Shape_Prototype.id]]></EXP>
+					</PAR>
+					<PAR Name="catId" />
+					<PAR Name="shpItemId" />
+					<PAR Name="shpItem">
+						<EXP><![CDATA[$=$Property_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:20732585" VarRef="Shape_Prototype">
+					<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" />
+					<PAR Name="sourceLibrary" />
+					<PAR Name="signature" />
+					<PAR Name="id">
+						<EXP><![CDATA[$C$NOTHING]]></EXP>
+					</PAR>
+					<PAR Name="name" />
+					<PAR Name="family" />
+					<PAR Name="description" />
+					<PAR Name="x">
+						<EXP><![CDATA[$=$Shape_Prototype.x + x_offset]]></EXP>
+					</PAR>
+					<PAR Name="y">
+						<EXP><![CDATA[$=$Shape_Prototype.y + y_offset]]></EXP>
+					</PAR>
+					<PAR Name="z" />
+					<PAR Name="width" />
+					<PAR Name="height" />
+					<PAR Name="depth" />
+					<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" />
+					<PAR Name="shapeFromPointIndex" />
+					<PAR Name="shapeToId" />
+					<PAR Name="shapeToPointIndex" />
+					<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" />
+					<PAR Name="connectionPoints" />
+					<PAR Name="modified" />
+					<PAR Name="pinned" />
+					<PAR Name="selected" />
+					<PAR Name="includeInBOM" />
+				</SET_STRUCT>
+				<SET_STRUCT Id="RDK:20732587" VarRef="Property_Prototype" DesignTimeRemark="Id Nullen, damit in Folge eine neue erzeugt wird.">
+					<PAR Name="id">
+						<EXP><![CDATA[$C$NOTHING]]></EXP>
+					</PAR>
+					<PAR Name="name" />
+					<PAR Name="family" />
+					<PAR Name="description" />
+					<PAR Name="text" />
+					<PAR Name="shapeMode" />
+					<PAR Name="icon" />
+					<PAR Name="iconBig" />
+					<PAR Name="image" />
+					<PAR Name="srcSVG" />
+					<PAR Name="src3D" />
+					<PAR Name="srcTexture3D" />
+					<PAR Name="width" />
+					<PAR Name="height" />
+					<PAR Name="depth" />
+					<PAR Name="behaviour" />
+					<PAR Name="help" />
+					<PAR Name="eventClass" />
+					<PAR Name="linkClass" />
+					<PAR Name="collisionClass" />
+					<PAR Name="containerClass" />
+					<PAR Name="snapClass" />
+					<PAR Name="color" />
+					<PAR Name="colorOpacity" />
+					<PAR Name="lineColor" />
+					<PAR Name="lineColorOpacity" />
+					<PAR Name="color3D" />
+					<PAR Name="colorOpacity3D" />
+					<PAR Name="lineColor3D" />
+					<PAR Name="lineColorOpacity3D" />
+					<PAR Name="custom" />
+					<PAR Name="connectionPoints" />
+					<PAR Name="group2dShapes" />
+					<PAR Name="group2dConnectors" />
+					<PAR Name="group3d" />
+					<PAR Name="eventHandler" />
+					<PAR Name="eventHandlers" />
+				</SET_STRUCT>
+				<ACTION_CALL Id="RDK:20732589" 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$2]]></EXP>
+					</PAR>
+					<PAR Name="shpId">
+						<EXP><![CDATA[$C$c_Session]]></EXP>
+					</PAR>
+					<PAR Name="catId">
+						<EXP><![CDATA[$C$c_Session]]></EXP>
+					</PAR>
+					<PAR Name="shpItemId" />
+					<PAR Name="shpItem">
+						<EXP><![CDATA[$=$Property_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>
+				<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:20733271" VarRef="Shape_Prototype.name">
+					<EXP><![CDATA[$=$Shape_Prototype.family+" :"+Shape_Prototype.IDCounter]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+				<SET Id="RDK:20733269" VarRef="Shape_Prototype.id">
 					<EXP><![CDATA[$=$"Copy_"+CreateGUID()]]></EXP>
 					<PAR Name="AdvancedOptions" />
 				</SET>
+				<LIST_ADD Id="RDK:20732591" ListRef="ShapeList">
+					<PAR Name="VALUE_TO_ADD">
+						<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
+					</PAR>
+					<PAR Name="POS_TO_ADD" />
+				</LIST_ADD>
+				<SET Id="RDK:20733340" VarRef="Param.Result">
+					<EXP><![CDATA[$=$Shape_Prototype.id
+]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
+			</FUNCTION>
+			<FUNCTION Id="RDK:20733273" Name="LinkToKreisel" InputTypeName="SSGParameter[]" Options="(TYPEFUNCTION)">
+				<GROUP Id="RDK:20733289" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+					<VAR Id="RDK:20733282" Name="shapeItem" Type="Editor2DShapeType" />
+					<VAR Id="RDK:20733283" Name="UebergabeListe" Type="SSGParameter[]" />
+					<VAR Id="RDK:20733284" Name="kreisel1" Type="string" />
+					<VAR Id="RDK:20733344" Name="newItem" Type="string" />
+					<VAR Id="RDK:20733285" Name="cpk1" Type="string" />
+					<VAR Id="RDK:20733286" Name="kreisel2" Type="string" />
+					<VAR Id="RDK:20733287" Name="cpk2" Type="string" />
+					<VAR Id="RDK:20733288" Name="newId" Type="string" />
+				</GROUP>
+				<SET Id="RDK:20733346" VarRef="newItem">
+					<EXP><![CDATA[$=$Param.Input["key=newId"].Str]]></EXP>
+					<PAR Name="AdvancedOptions" />
+				</SET>
 				<SET Id="RDK:20725788" VarRef="kreisel1">
 					<EXP><![CDATA[$=$Param.Input["key=idKreisel1"].Str]]></EXP>
 					<PAR Name="AdvancedOptions" />
@@ -15495,145 +15716,7 @@ me.x
 					<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">
+				<ACTION_CALL Id="RDK:20725664" Name="RDEngineering_E2DLinkShapes" Suppressed="True">
 					<PAR Name="RDLibraryName">
 						<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
 					</PAR>
@@ -15756,6 +15839,7 @@ me.x
 					</PAR>
 					<GROUP Id="RDK:20689948" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:20689950" Name="shape_index" Type="string" />
+						<VAR Id="RDK:20733338" Name="newId" Type="string" />
 						<VAR Id="RDK:20689944" Name="shapeId_kreisel1" Type="string" />
 						<VAR Id="RDK:20689945" Name="shapeId_kreisel2" Type="string" />
 						<VAR Id="RDK:20689946" Name="shape_kreisel1" Type="Editor2DShapeType" />
@@ -15763,6 +15847,7 @@ me.x
 						<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:20733327" Name="Offsets" 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[]" />
@@ -15910,17 +15995,6 @@ me.x
 						<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>
@@ -15978,14 +16052,64 @@ me.x
 							</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" />
+					<COMMENTS Id="RDK:20689954" DesignTimeRemark="Prüfe ob die Distanzen und hole die Connection points die gegenüberliegen" />
+					<COMMENTS Id="RDK:20733350" DesignTimeRemark="TODO" />
+					<SET Id="RDK:20733329" VarRef="Offsets">
+						<EXP><![CDATA[$C$NOTHING]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET_STRUCT Id="RDK:20733331" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$x_offset]]></EXP>
+						</PAR>
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$300]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
+					<SET_STRUCT Id="RDK:20733333" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
+						<PAR Name="Key">
+							<EXP><![CDATA[$C$y_offset]]></EXP>
+						</PAR>
+						<PAR Name="Str" />
+						<PAR Name="Dbl">
+							<EXP><![CDATA[$=$0]]></EXP>
+						</PAR>
+						<PAR Name="Int" />
+						<PAR Name="Boo" />
+					</SET_STRUCT>
 					<SELECTCASE Id="RDK:20579308">
 						<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
 						<CASEGROUP Id="RDK:20579229" CaseType="0">
 							<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
 							<CALLFUNCTION Id="RDK:20722252">
 								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreateCopy]]></EXP>
+									<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Offsets]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$NewId]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<SET_STRUCT Id="RDK:20733335" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$newId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$NewId]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:20733291">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$UebergabeListe]]></EXP>
@@ -16000,7 +16124,30 @@ me.x
 							<EXP><![CDATA[$C$Foerderer]]></EXP>
 							<CALLFUNCTION Id="RDK:20725672">
 								<PAR Name="FuncName">
-									<EXP><![CDATA[$C$CreateCopy]]></EXP>
+									<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Offsets]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$NewId]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<SET_STRUCT Id="RDK:20733342" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
+								<PAR Name="Key">
+									<EXP><![CDATA[$C$newId]]></EXP>
+								</PAR>
+								<PAR Name="Str">
+									<EXP><![CDATA[$=$NewId]]></EXP>
+								</PAR>
+								<PAR Name="Dbl" />
+								<PAR Name="Int" />
+								<PAR Name="Boo" />
+							</SET_STRUCT>
+							<CALLFUNCTION Id="RDK:20733293">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$LinkToKreisel]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
 									<EXP><![CDATA[$=$UebergabeListe]]></EXP>