From 72b1ce7ae0e95db4b433094b2d6c7b7c677ac1c2 Mon Sep 17 00:00:00 2001
From: Simon Hensch <s.hensch@schoenenberger.de>
Date: Tue, 16 Sep 2025 16:13:31 +0200
Subject: [PATCH] =?UTF-8?q?[Fix]=20falsche=20indezes=20f=C3=BCr=20Shapelis?=
 =?UTF-8?q?te=20korrigiert=20um=20Absturz=20zu=20verhindern.=20CSV=20Expor?=
 =?UTF-8?q?t=20f=C3=BCr=20einzelne=20Bauteile=20(keine=20Streckengruppen)?=
 =?UTF-8?q?=20um=20Drehung=20des=20Shapes=20erweitert,=20sodass=20die=20Er?=
 =?UTF-8?q?zeugung=20der=20DXF=20Datei=20mit=20richtigen=20Orientierungen?=
 =?UTF-8?q?=20der=20Bauteile=20arbeiten=20kann.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 50 +++++++++++++++++++++++++++++++++++---------------
 1 file changed, 35 insertions(+), 15 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 4434359..eaef48e 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="s.hensch [ANGEBOT-NB06]" ModDate="2025-09-16T15:56:38" 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">
@@ -122,7 +122,7 @@
 					<FIELD Id="RDK:24351631" Name="AsmName" Type="string" />
 					<FIELD Id="RDK:24351633" Name="Parts" Type="string" DesignTimeTip=";separated string with all necessary files for this assembly" />
 				</TYPE>
-				<TYPE Id="RDK:21686352" Name="KurveFoerdererType" SubType="structure">
+				<TYPE Id="RDK:21686352" Name="KurveFoerdererType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:21686345" Name="Beschreibung" Type="string" />
 					<FIELD Id="RDK:21686346" Name="L1" Type="double" />
@@ -251,7 +251,7 @@
 					<FIELD Id="RDK:1652523" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
 					<FIELD Id="RDK:1657744" Name="Beschreibung" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:16525251" Name="BTMTEntladungType" SubType="structure">
+				<TYPE Id="RDK:16525251" Name="BTMTEntladungType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:16525221" Name="Hoehe" Type="double" />
 					<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
@@ -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:25712467" 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:25712469" 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:25712471" 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:25712473" 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:25712475" Name="Drehung" Type="double" />
 				</TYPE>
 				<TYPE Id="RDK:973721" Name="WeicheMerkmaleType" SubType="structure">
 					<TYPE_VALUES />
@@ -1036,7 +1041,7 @@
 					<FIELD Id="RDK:24365630" Name="Drehung" Type="double" />
 					<FIELD Id="RDK:24300973" Name="SivasNummer" Type="string" />
 				</TYPE>
-				<TYPE Id="RDK:23017792" Name="OFBogenMerkmaleType" SubType="structure">
+				<TYPE Id="RDK:23017792" Name="OFBogenMerkmaleType" Expanded="True" SubType="structure">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:23017787" Name="Länge in Meter" Type="string" />
 					<FIELD Id="RDK:23017789" Name="Kurvenwinkel" Type="double" />
@@ -23302,7 +23307,7 @@ SSGConnectionPoint.x_M
 									<EXP><![CDATA[$C$CalculateFoerdererData]]></EXP>
 								</PAR>
 								<PAR Name="InputExp">
-									<EXP><![CDATA[$=$ShapeList[shapeList_idx].FoerdererDefinition]]></EXP>
+									<EXP><![CDATA[$=$ShapeList["id="+shapeId].FoerdererDefinition]]></EXP>
 								</PAR>
 								<PAR Name="ResultRef">
 									<EXP><![CDATA[$V$foerdererData]]></EXP>
@@ -23314,13 +23319,13 @@ SSGConnectionPoint.x_M
 									<EXP><![CDATA[$=$IsEmpty(foerdererData)]]></EXP>
 								</VALUECONDITION>
 								<GROUP Id="RDK:19927897" SubType="Then">
-									<SET Id="RDK:19927901" VarRef="ShapeList[shapeList_idx].FoerdererDefinition.LH_fits">
+									<SET Id="RDK:19927901" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.LH_fits">
 										<EXP><![CDATA[$C$False]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
 								</GROUP>
 								<GROUP Id="RDK:19927898" SubType="Else">
-									<SET Id="RDK:19927903" VarRef="ShapeList[shapeList_idx].FoerdererDefinition.LH_fits">
+									<SET Id="RDK:19927903" VarRef="ShapeList[&quot;id=&quot;+shapeId].FoerdererDefinition.LH_fits">
 										<EXP><![CDATA[$C$True]]></EXP>
 										<PAR Name="AdvancedOptions" />
 									</SET>
@@ -39585,7 +39590,7 @@ me.x
 							<EXP><![CDATA[$=$False]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET Id="RDK:22885644" VarRef="ShapeList[&quot;id=&quot;+id0].GefaelleDefinition..HoeheUnten" DesignTimeRemark="Wenn Unlinked erfolgt, wird der Flag istfixiert auf false gesetzt.">
+						<SET Id="RDK:22885644" VarRef="ShapeList[&quot;id=&quot;+id0].GefaelleDefinition.HoeheUnten" DesignTimeRemark="Wenn Unlinked erfolgt, wird der Flag istfixiert auf false gesetzt.">
 							<EXP><![CDATA[$=$0]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
@@ -42733,6 +42738,9 @@ me.x
 										<PAR Name="Höhe unten">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.GefaelleDefinition.HoeheUnten/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270633" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(GefaellestreckeMerkmale)]]></EXP>
@@ -42793,10 +42801,13 @@ me.x
 											<EXP><![CDATA[$=$ShapeItem.FoerdererDefinition.n_Scan]]></EXP>
 										</PAR>
 										<PAR Name="Höhe Anfang">
-											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.H_0/1000, ",", ".")]]></EXP>
+											<EXP><![CDATA[$=$StrReplace(ShapeItem.FoerdererDefinition.H_0/1000, ",", ".")]]></EXP>
 										</PAR>
 										<PAR Name="Höhe Ende">
-											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.H_1/1000, ",", ".")]]></EXP>
+											<EXP><![CDATA[$=$StrReplace(ShapeItem.FoerdererDefinition.H_1/1000, ",", ".")]]></EXP>
+										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
 										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270644" VarRef="CSV_Item.Merkmale">
@@ -42863,6 +42874,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.VarioFoerdererDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270655" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(VarioFoerdererMerkmale)]]></EXP>
@@ -42963,6 +42977,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270677" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(KurveMerkmale)]]></EXP>
@@ -43019,6 +43036,9 @@ me.x
 										<PAR Name="Höhe Ende">
 											<EXP><![CDATA[$=$StrReplace(ShapeItem.KurveFoerdererDefinition.H_Ende/1000, ",", ".")]]></EXP>
 										</PAR>
+										<PAR Name="Drehung">
+											<EXP><![CDATA[$=$IIF(IsEmpty(ShapeItem.rotation),0,ShapeItem.rotation)]]></EXP>
+										</PAR>
 									</SET_STRUCT>
 									<SET Id="RDK:24270688" VarRef="CSV_Item.Merkmale">
 										<EXP><![CDATA[$=$ToJSON(KurveFoerdererMerkmale)]]></EXP>
@@ -48106,7 +48126,7 @@ me.x
 						<EXP><![CDATA[$C$Foerderer]]></EXP>
 						<IFTHENELSE Id="RDK:19603049">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList[shapeList_idx].FoerdererDefinition.LH_fits]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId].FoerdererDefinition.LH_fits]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19603046" SubType="Then">
 								<CALLFUNCTION Id="RDK:19603045">
@@ -48178,7 +48198,7 @@ me.x
 						<EXP><![CDATA[$C$Kurve]]></EXP>
 						<IFTHENELSE Id="RDK:21032034">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList[shapeList_idx].KurveDefinition.isOk]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveDefinition.isOk]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:21032047" SubType="Then">
 								<CALLFUNCTION Id="RDK:21032046">
@@ -48214,7 +48234,7 @@ me.x
 						<EXP><![CDATA[$C$KurveFoerderer]]></EXP>
 						<IFTHENELSE Id="RDK:21692417">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList[shapeList_idx].KurveFoerdererDefinition.isOk]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId].KurveFoerdererDefinition.isOk]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:21692414" SubType="Then">
 								<CALLFUNCTION Id="RDK:21692413">
@@ -48250,7 +48270,7 @@ me.x
 						<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
 						<IFTHENELSE Id="RDK:19603057">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList[shapeList_idx].BTMTBeladungDefinition.Drehung > 0]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung > 0]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19603063" SubType="Then">
 								<CALLFUNCTION Id="RDK:19603069">
@@ -48286,7 +48306,7 @@ me.x
 						<EXP><![CDATA[$C$BTMTEntladung]]></EXP>
 						<IFTHENELSE Id="RDK:19603081">
 							<VALUECONDITION Value="true">
-								<EXP><![CDATA[$=$ShapeList[shapeList_idx].BTMTBeladungDefinition.Drehung < 0]]></EXP>
+								<EXP><![CDATA[$=$ShapeList["id="+shapeId].BTMTBeladungDefinition.Drehung < 0]]></EXP>
 							</VALUECONDITION>
 							<GROUP Id="RDK:19603078" SubType="Then">
 								<CALLFUNCTION Id="RDK:19603077">