From 922068c8549e390138107abdc526b27de49f942f Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Tue, 16 Sep 2025 18:49:27 +0200
Subject: [PATCH] =?UTF-8?q?Beim=202D=20Export=20wird=20nun=20f=C3=BCr=20di?=
 =?UTF-8?q?e=20x/y=20koordinaten=20und=20Rotationen=20der=20Objekte=20auf?=
 =?UTF-8?q?=20ein=20Rechtssystem=20umgerechnet?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 303 ++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 287 insertions(+), 16 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 4434359..4396efa 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="s.hensch [ANGEBOT-NB06]" ModDate="2025-09-16T09:33:39" LanguageVersion="2014.1.3.712" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-09-16T18:47:28" 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">
@@ -970,6 +970,7 @@
 					<FIELD Id="RDK:1674242" Name="Anzahl der Scanner" Type="integer" />
 					<FIELD Id="RDK:22305665" Name="Höhe oben" Type="string" />
 					<FIELD Id="RDK:22305679" Name="Höhe unten" Type="string" />
+					<FIELD Id="RDK:25719742" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:18732296" Name="KurveMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -978,6 +979,7 @@
 					<FIELD Id="RDK:22010915" Name="Kurvenwinkel" Type="double" />
 					<FIELD Id="RDK:22305667" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:22305681" Name="Höhe Ende" Type="string" />
+					<FIELD Id="RDK:25719740" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:21693243" Name="KurveFoerdererMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -986,6 +988,7 @@
 					<FIELD Id="RDK:22010913" Name="Kurvenwinkel" Type="double" />
 					<FIELD Id="RDK:22305684" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:22305686" Name="Höhe Ende" Type="string" />
+					<FIELD Id="RDK:25719738" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:18111807" Name="FoerdererMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -997,6 +1000,7 @@
 					<FIELD Id="RDK:18131148" Name="Anzahl Scanner" Type="string" />
 					<FIELD Id="RDK:22305692" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:22305694" Name="Höhe Ende" Type="string" />
+					<FIELD Id="RDK:25719736" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:22028983" Name="VarioFoerdererMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -1008,6 +1012,7 @@
 					<FIELD Id="RDK:22028982" Name="Anzahl der Scanner" Type="integer" />
 					<FIELD Id="RDK:22305688" Name="Höhe Anfang" Type="string" />
 					<FIELD Id="RDK:22305690" Name="Höhe Ende" Type="string" />
+					<FIELD Id="RDK:25719734" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:973721" Name="WeicheMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -1209,6 +1214,8 @@
 				<VAR Id="RDK:966822" Name="OverlappingSSGConnectionPointList" Type="SSGConnectionPoint[]" DesignTimeRemark="Generated by RD" />
 				<VAR Id="RDK:414248" Name="Property_Prototype" Type="Editor2DShapePropertyType" />
 				<VAR Id="RDK:892547" Name="GridEnabled" Type="boolean" />
+				<VAR Id="RDK:25712613" Name="TransformExportToRightCoords" Type="boolean" />
+				<VAR Id="RDK:25712615" Name="TransformExportYTranslation" Type="double" />
 				<VAR Id="RDK:973208" Name="ViewPortData" Type="string" DesignTimeRemark="Generated by RD" />
 				<VAR Id="RDK:1519287" Name="Editor2DCategory" Type="Editor2DCategory" />
 				<VAR Id="RDK:1519833" Name="SnapshotFile" Type="string" />
@@ -8911,10 +8918,27 @@ SSGConnectionPoint.x_M
 							</SET>
 						</GROUP>
 						<GROUP Id="RDK:892585" SubType="Else">
-							<SET Id="RDK:892592" VarRef="CSV_Item.Planquadrat">
-								<EXP><![CDATA[$=$"X:"+StrReplace(ShapeItem.x, ",", ".")+" Y:"+StrReplace(ShapeItem.y, ",", ".")]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
+							<IFTHENELSE Id="RDK:25712675">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$TransformExportToRightCoords]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:25712676" SubType="Then">
+									<SET Id="RDK:25712695" VarRef="PosY">
+										<EXP><![CDATA[$=$(ShapeItem.Y-TransformExportYTranslation)*-1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:25712681" VarRef="CSV_Item.Planquadrat">
+										<EXP><![CDATA[$=$"X:"+StrReplace(ShapeItem.x, ",", ".")+" Y:"+StrReplace(PosY, ",", ".")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:25712677" SubType="Else">
+									<SET Id="RDK:25712689" VarRef="CSV_Item.Planquadrat">
+										<EXP><![CDATA[$=$"X:"+StrReplace(ShapeItem.x, ",", ".")+" Y:"+StrReplace(ShapeItem.y, ",", ".")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
 						</GROUP>
 					</IFTHENELSE>
 					<SET Id="RDK:900077" VarRef="CSV_Item.Planquadrat">
@@ -8922,6 +8946,110 @@ SSGConnectionPoint.x_M
 						<PAR Name="AdvancedOptions" />
 					</SET>
 				</FUNCTION>
+				<FUNCTION Id="RDK:25712493" Name="GetMaxYCoordinate" ResultTypeName="double">
+					<GROUP Id="RDK:25712484" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:25712497" Name="MaxY" Type="double">
+							<SET Id="RDK:25712593" VarRef="Me">
+								<EXP><![CDATA[$C$0]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
+					</GROUP>
+					<FOREACHLOOP Id="RDK:25712575" DesignTimeRemark="Alle gleichartigen Elemente in jeweils ein CSV Element wandeln" ItemVarRef="ShapeItem">
+						<PAR Name="ArrayValueExp">
+							<EXP><![CDATA[$=$ShapeList]]></EXP>
+						</PAR>
+						<PAR Name="ExitCondExp">
+							<EXP><![CDATA[$V$]]></EXP>
+						</PAR>
+						<SET Id="RDK:25712595" VarRef="MaxY">
+							<EXP><![CDATA[$=$Max(ShapeItem.y, MaxY)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+					</FOREACHLOOP>
+					<SET Id="RDK:25712492" VarRef="Param.Result">
+						<EXP><![CDATA[$=$MaxY]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</FUNCTION>
+				<FUNCTION Id="RDK:25712717" Name="GetRotation" DesignTimeRemark="gives back the rotation angle in case it a right system (transformed) or a left system (default)" InputTypeName="double">
+					<GROUP Id="RDK:25712713" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:25712722" Name="Rotation" Type="double">
+							<SET Id="RDK:25712721" VarRef="Me">
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
+					</GROUP>
+					<IFTHENELSE Id="RDK:25719781">
+						<VALUECONDITION Value="true">
+							<EXP><![CDATA[$=$TransformExportToRightCoords]]></EXP>
+						</VALUECONDITION>
+						<GROUP Id="RDK:25719778" SubType="Then">
+							<IFTHENELSE Id="RDK:25712723">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Rotation = 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:25712724" SubType="Then">
+									<SET Id="RDK:25712733" VarRef="Param.Result" DesignTimeRemark="Der Wert 0 würde sonst nur zu 360 Grad. ">
+										<EXP><![CDATA[$=$0]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:25719791" SubType="Else">
+									<SET Id="RDK:25719777" VarRef="Param.Result">
+										<EXP><![CDATA[$=$-(Rotation - 360)]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</GROUP>
+						<GROUP Id="RDK:25719780" SubType="Else">
+							<SET Id="RDK:25719779" VarRef="Param.Result" DesignTimeRemark="Keine Transformation muss stattfinden">
+								<EXP><![CDATA[$=$Rotation]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</GROUP>
+					</IFTHENELSE>
+				</FUNCTION>
+				<FUNCTION Id="RDK:25712635" Name="SetCoordExportToRightSystem" DesignTimeRemark="Erzeugt beim Export ein Rechtssystem mit KOS in der linken unteren Ecke des Modells" DesignTimeTip="Geht alle existierenden Items durch um die nötige verschiebung zu bestimmen, um aus dem Linkssystem am Bildschirm ein Rechtssystem zu erzeugen. Setzt die Globalen Variablen zur Bestimmung der Koordinatentransformation entsprechend.">
+					<GROUP Id="RDK:25712652" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+						<VAR Id="RDK:25712651" Name="MaxY" Type="double">
+							<SET Id="RDK:25712650" VarRef="Me">
+								<EXP><![CDATA[$C$0]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+						</VAR>
+					</GROUP>
+					<SET Id="RDK:25712637" VarRef="TransformExportToRightCoords">
+						<EXP><![CDATA[$C$True]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<CALLFUNCTION Id="RDK:25712642">
+						<PAR Name="FuncName">
+							<EXP><![CDATA[$C$GetMaxYCoordinate]]></EXP>
+						</PAR>
+						<PAR Name="InputExp" />
+						<PAR Name="ResultRef">
+							<EXP><![CDATA[$V$MaxY]]></EXP>
+						</PAR>
+						<PAR Name="Options" />
+					</CALLFUNCTION>
+					<SET Id="RDK:25712640" VarRef="TransformExportYTranslation">
+						<EXP><![CDATA[$=$MaxY]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</FUNCTION>
+				<FUNCTION Id="RDK:25712666" Name="SetCoordExportToLeftSystem">
+					<SET Id="RDK:25712663" VarRef="TransformExportToRightCoords">
+						<EXP><![CDATA[$C$False]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+					<SET Id="RDK:25712665" VarRef="TransformExportYTranslation">
+						<EXP><![CDATA[$C$0]]></EXP>
+						<PAR Name="AdvancedOptions" />
+					</SET>
+				</FUNCTION>
 				<FUNCTION Id="RDK:22341543" Name="getAttributeIdOfShapeItem" DesignTimeRemark="Erzeugt eine Id spezifisch für alle Attribute eines Elements, so dass diese als &quot;gleichartig&quot; erkannt werden, z.B. zwei Kreisel mit 5m Länge erhalten diesselbe AttributId. " InputTypeName="string" ResultTypeName="string">
 					<GROUP Id="RDK:22341587" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:22341567" Name="shapeId" Type="string">
@@ -9919,6 +10047,12 @@ SSGConnectionPoint.x_M
 						</VAR>
 						<VAR Id="RDK:22029361" Name="result" Type="AngetriebeneStreckeMerkmaleType" />
 					</GROUP>
+					<LIST_ADD Id="RDK:25714724" ListRef="hoehenInMeter">
+						<PAR Name="VALUE_TO_ADD">
+							<EXP><![CDATA[$C$0]]></EXP>
+						</PAR>
+						<PAR Name="POS_TO_ADD" />
+					</LIST_ADD>
 					<FOREACHLOOP Id="RDK:22029330" ItemVarRef="shapeId" IndexVarRef="i">
 						<PAR Name="ArrayValueExp">
 							<EXP><![CDATA[$=$groupIds]]></EXP>
@@ -42267,7 +42401,19 @@ me.x
 					<VAR Id="RDK:22305573" Name="CSVFileName" Type="string" />
 					<VAR Id="RDK:22305575" Name="CSVFile" Type="string" />
 				</GROUP>
-				<CALLFUNCTION Id="RDK:22305566">
+				<CALLFUNCTION Id="RDK:25712617">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$SetCoordExportToRightSystem]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:25712697">
 					<PAR Name="FuncName">
 						<EXP><![CDATA[$C$CreateCsvItems]]></EXP>
 					</PAR>
@@ -42279,6 +42425,18 @@ me.x
 					</PAR>
 					<PAR Name="Options" />
 				</CALLFUNCTION>
+				<CALLFUNCTION Id="RDK:25712699">
+					<PAR Name="FuncName">
+						<EXP><![CDATA[$C$SetCoordExportToLeftSystem]]></EXP>
+					</PAR>
+					<PAR Name="InputExp">
+						<EXP><![CDATA[$=$]]></EXP>
+					</PAR>
+					<PAR Name="ResultRef">
+						<EXP><![CDATA[$V$]]></EXP>
+					</PAR>
+					<PAR Name="Options" />
+				</CALLFUNCTION>
 				<GROUP Id="RDK:22304433" Name="WriteCSVFile" SubType="Generic">
 					<GROUP Id="RDK:22304424" Name="CheckCSVFolder" SubType="Generic">
 						<VALUECONDITION Value="true">
@@ -42370,13 +42528,14 @@ me.x
 					<PAR Name="Options" />
 				</ACTION_CALL>
 			</FUNCTION>
-			<FUNCTION Id="RDK:22305553" Name="CreateCsvItems" Bookmarked="True" DesignTimeRemark="Erzeugt aus jedem Element ein CSV Item" InputTypeName="boolean" ResultTypeName="CSVType[]">
+			<FUNCTION Id="RDK:22305553" Name="CreateCsvItems" Bookmarked="True" DesignTimeRemark="Erzeugt aus jedem Element ein CSV Item" DesignTimeTip="Parameter withGroups sagt ob man Gruppen zusammengefasst ausgeben soll oder nicht. " InputTypeName="boolean" ResultTypeName="CSVType[]">
 				<GROUP Id="RDK:22305396" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 					<GROUP Id="RDK:22305394" Name="CSV Export" SubType="VarSet" IncludeDate="0">
 						<VAR Id="RDK:22305392" Name="CSVFileName" Type="string" />
 						<VAR Id="RDK:22305393" Name="CSVFile" Type="string" />
 					</GROUP>
 					<VAR Id="RDK:22305395" Name="inGroup" Type="boolean" />
+					<VAR Id="RDK:25712609" Name="StateGridEnabled" Type="boolean" />
 					<VAR Id="RDK:22305639" Name="withGroups" Type="boolean">
 						<SET Id="RDK:22305650" VarRef="Me">
 							<EXP><![CDATA[$=$Param.Input]]></EXP>
@@ -42499,6 +42658,7 @@ me.x
 						<PAR Name="Merkmale">
 							<EXP><![CDATA[$=$CSV_Item.Merkmale]]></EXP>
 						</PAR>
+						<PAR Name="rotation" />
 					</SET_STRUCT>
 					<SET Id="RDK:24361657" VarRef="lineNumber">
 						<EXP><![CDATA[$=$lineNumber + 1]]></EXP>
@@ -42545,6 +42705,7 @@ me.x
 						</SET>
 					</VAR>
 					<VAR Id="RDK:24270600" Name="CSV_List" Type="CSVType[]" />
+					<VAR Id="RDK:25719726" Name="Drehung" Type="double" />
 				</GROUP>
 				<FOREACHLOOP Id="RDK:24270761" DesignTimeRemark="Alle Elemente die nicht in einer Gruppe sind in CSV Elemente wandeln" ItemVarRef="ShapeItem">
 					<PAR Name="ArrayValueExp">
@@ -42714,6 +42875,18 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270634" Name="Merkmale" SubType="Generic">
+									<CALLFUNCTION Id="RDK:25719732">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetRotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$Drehung]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
 									<SET_STRUCT Id="RDK:24270632" VarRef="GefaellestreckeMerkmale" ClearAll="True">
 										<PAR Name="Anzahl der Separatoren">
 											<EXP><![CDATA[$=$ShapeItem.GefaelleDefinition.n_Sep]]></EXP>
@@ -42773,6 +42946,18 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270645" Name="Merkmale" SubType="Generic">
+									<CALLFUNCTION Id="RDK:25719750">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetRotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$Drehung]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
 									<SET_STRUCT Id="RDK:24270643" VarRef="FoerdererMerkmale" ClearAll="True">
 										<PAR Name="Höhe ETF oben in Meter">
 											<EXP><![CDATA[$=$StrReplace((ShapeItem.FoerdererDefinition.H_1 + ShapeItem.FoerdererDefinition.Delta_hf)/1000, ",", ".")]]></EXP>
@@ -42798,6 +42983,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.H_1/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$Drehung]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270644" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(FoerdererMerkmale)]]></EXP>
@@ -42838,6 +43026,18 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270656" Name="Merkmale" SubType="Generic">
+									<CALLFUNCTION Id="RDK:25719753">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetRotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$Drehung]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
 									<SET_STRUCT Id="RDK:24270654" VarRef="VarioFoerdererMerkmale" ClearAll="True">
 										<PAR Name="Förderrichtung">
 											<EXP><![CDATA[$=$ShapeItem.VarioFoerdererDefinition.Typ]]></EXP>
@@ -42863,6 +43063,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$Drehung]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270655" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(VarioFoerdererMerkmale)]]></EXP>
@@ -42947,6 +43150,18 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270678" Name="Merkmale" SubType="Generic">
+									<CALLFUNCTION Id="RDK:25719756">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetRotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$Drehung]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
 									<SET_STRUCT Id="RDK:24270676" VarRef="KurveMerkmale" ClearAll="True">
 										<PAR Name="Länge in Meter">
 											<EXP><![CDATA[$=$ShapeItem.KurveDefinition.L1]]></EXP>
@@ -42963,6 +43178,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$Drehung]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270677" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(KurveMerkmale)]]></EXP>
@@ -43003,6 +43221,18 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270689" Name="Merkmale" SubType="Generic">
+									<CALLFUNCTION Id="RDK:25719759">
+										<PAR Name="FuncName">
+											<EXP><![CDATA[$C$GetRotation]]></EXP>
+										</PAR>
+										<PAR Name="InputExp">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
+										<PAR Name="ResultRef">
+											<EXP><![CDATA[$V$Drehung]]></EXP>
+										</PAR>
+										<PAR Name="Options" />
+									</CALLFUNCTION>
 									<SET_STRUCT Id="RDK:24270687" VarRef="KurveFoerdererMerkmale" ClearAll="True">
 										<PAR Name="Länge in Meter">
 											<EXP><![CDATA[$=$ShapeItem.KurveFoerdererDefinition.L1]]></EXP>
@@ -43019,6 +43249,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveFoerdererDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$Drehung]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270688" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(KurveFoerdererMerkmale)]]></EXP>
@@ -43059,9 +43292,7 @@ me.x
 									</CALLFUNCTION>
 								</GROUP>
 								<GROUP Id="RDK:24270700" Name="Merkmale" SubType="Generic">
-									<SET_STRUCT Id="RDK:24270698" VarRef="BTMTBeladungMerkmale" ClearAll="True">
-										<PAR Name="Höhe in m" />
-									</SET_STRUCT>
+									<SET_STRUCT Id="RDK:24270698" VarRef="BTMTBeladungMerkmale" ClearAll="True" />
 									<SET Id="RDK:24270699" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(BTMTBeladungMerkmale)]]></EXP>
 										<PAR Name="AdvancedOptions" />
@@ -43203,6 +43434,7 @@ me.x
 						</SET>
 					</VAR>
 					<VAR Id="RDK:24271001" Name="CSV_List" Type="CSVType[]" />
+					<VAR Id="RDK:25719724" Name="Drehung" Type="double" />
 				</GROUP>
 				<IFTHENELSE Id="RDK:24271151" DesignTimeRemark="Elemente in Gruppen nicht doppelt raus schreiben">
 					<VALUECONDITION Value="true">
@@ -43296,6 +43528,7 @@ me.x
 					<VAR Id="RDK:24270149" Name="CSV_List" Type="CSVType[]" />
 					<VAR Id="RDK:24271549" Name="bezeichnungen" Type="string[]" />
 					<VAR Id="RDK:24271551" Name="name" Type="string" />
+					<VAR Id="RDK:25717711" Name="Drehung" Type="double" />
 					<VAR Id="RDK:24271587" Name="toCheck" Type="string" />
 					<VAR Id="RDK:24271589" Name="isWritten" Type="boolean" />
 				</GROUP>
@@ -43353,6 +43586,18 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 							<GROUP Id="RDK:24270159" Name="Merkmale" SubType="Generic">
+								<CALLFUNCTION Id="RDK:25717724">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$GetRotation]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$Drehung]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
 								<SET_STRUCT Id="RDK:24270157" VarRef="OFGeradeMerkmale" ClearAll="True">
 									<PAR Name="Anzahl der Separatoren">
 										<EXP><![CDATA[$=$ShapeItem.OFGeradeDefinition.n_Sep]]></EXP>
@@ -43367,13 +43612,13 @@ me.x
 										<EXP><![CDATA[$=$ShapeItem.OFGeradeDefinition.n_Scan]]></EXP>
 									</PAR>
 									<PAR Name="Höhe oben">
-										<EXP><![CDATA[$=$StrReplace(ShapeItem.OFGeradeDefinition.HoeheOben/1000, ",", ".")]]></EXP>
+										<EXP><![CDATA[$=$StrReplace(ShapeItem.OFGeradeDefinition.HoeheOben, ",", ".")]]></EXP>
 									</PAR>
 									<PAR Name="Höhe unten">
-										<EXP><![CDATA[$=$StrReplace(ShapeItem.OFGeradeDefinition.HoeheUnten/1000, ",", ".")]]></EXP>
+										<EXP><![CDATA[$=$StrReplace(ShapeItem.OFGeradeDefinition.HoeheUnten, ",", ".")]]></EXP>
 									</PAR>
 									<PAR Name="Drehung">
-										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										<EXP><![CDATA[$=$Drehung]]></EXP>
 									</PAR>
 									<PAR Name="SivasNummer">
 										<EXP><![CDATA[$=$ShapeItem.OFGeradeDefinition.Sivasnr]]></EXP>
@@ -43418,9 +43663,21 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 							<GROUP Id="RDK:24270171" Name="Merkmale" SubType="Generic">
+								<CALLFUNCTION Id="RDK:25717727">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$GetRotation]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$Drehung]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
 								<SET_STRUCT Id="RDK:24270169" VarRef="OFBogenMerkmale" ClearAll="True">
 									<PAR Name="Länge in Meter">
-										<EXP><![CDATA[$=$ShapeItem.OFBogenDefinition.L1]]></EXP>
+										<EXP><![CDATA[$=$ShapeItem.OFBogenDefinition.L1/1000]]></EXP>
 									</PAR>
 									<PAR Name="Kurvenwinkel">
 										<EXP><![CDATA[$=$ShapeItem.OFBogenDefinition.KurvenWinkel]]></EXP>
@@ -43432,7 +43689,7 @@ me.x
 										<EXP><![CDATA[$=$ShapeItem.OFBogenDefinition.Hoehe]]></EXP>
 									</PAR>
 									<PAR Name="Drehung">
-										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										<EXP><![CDATA[$=$Drehung]]></EXP>
 									</PAR>
 									<PAR Name="SivasNummer">
 										<EXP><![CDATA[$=$ShapeItem.OFBogenDefinition.Sivasnr]]></EXP>
@@ -43477,6 +43734,18 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 							<GROUP Id="RDK:24270183" Name="Merkmale" SubType="Generic">
+								<CALLFUNCTION Id="RDK:25717730">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$GetRotation]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$Drehung]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
 								<SET_STRUCT Id="RDK:24270181" VarRef="OFWeicheMerkmale" ClearAll="True">
 									<PAR Name="Länge in Meter links" />
 									<PAR Name="Länge in Meter rechts" />
@@ -43494,7 +43763,7 @@ me.x
 										<EXP><![CDATA[$=$ShapeItem.OFWeicheDefinition.Hoehe]]></EXP>
 									</PAR>
 									<PAR Name="Drehung">
-										<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										<EXP><![CDATA[$=$Drehung]]></EXP>
 									</PAR>
 									<PAR Name="Antrieb Kurve">
 										<EXP><![CDATA[$=$ShapeItem.OFWeicheDefinition.AntriebKurve]]></EXP>
@@ -55570,6 +55839,7 @@ me.x
 								<EXP><![CDATA[$=$PlatzierungList]]></EXP>
 							</PAR>
 							<PAR Name="Options" />
+							<PAR Name="WebviewSubType" />
 						</ACTION_CALL>
 						<ACTION_CALL Id="RDK:21686392" Name="RDEngineering_ModernUIControl" Suppressed="True" Bookmarked="True" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
 							<PAR Name="RDLibraryName">
@@ -56456,6 +56726,7 @@ me.x
 								<EXP><![CDATA[$=$PlatzierungVFList]]></EXP>
 							</PAR>
 							<PAR Name="Options" />
+							<PAR Name="WebviewSubType" />
 						</ACTION_CALL>
 						<ACTION_CALL Id="RDK:22069056" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
 							<PAR Name="RDLibraryName">