From 7c0c8c045bea4512ebfa40db2149a93f97ef4a20 Mon Sep 17 00:00:00 2001
From: mistangl <m.stangl@schoenenberger.de>
Date: Wed, 25 Sep 2024 14:37:50 +0200
Subject: [PATCH] Gruppenroutinen implementiert

---
 MAIN_SSG.rdx | 653 +++++++++++++++++++++++++++++++++++++++++----------
 1 file changed, 531 insertions(+), 122 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 8f3bef8..e77724c 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -1,10 +1,10 @@
 <?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-09-23T19:06:26" LanguageVersion="2014.1.3.690" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-09-25T14:37:02" LanguageVersion="2014.1.3.690" />
 	<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">
-				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" Expanded="True" SubType="structure" HasArrayType="True">
+				<TYPE Id="RDK:313478" Name="SSGConnectionPoint" SubType="structure" HasArrayType="True">
 					<TYPE_VALUES />
 					<FIELD Id="RDK:609117" Name="id" Type="string" />
 					<FIELD Id="RDK:313462" Name="x_M" Type="double" />
@@ -998,6 +998,9 @@
 			<VAR Id="RDK:20857714" Name="groupIds" Type="string[]" />
 			<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" />
 			<VAR Id="RDK:20857934" Name="lineStr" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:20880189" Name="newLineStr" Type="string" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:20880286" Name="idx" Type="integer" DesignTimeRemark="Generated by RD" />
+			<VAR Id="RDK:20924240" Name="id" Type="variant" DesignTimeRemark="Generated by RD" />
 		</GROUP>
 		<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
 			<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -9692,54 +9695,98 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 							<PAR Name="AdvancedOptions" />
 						</SET>
 					</FUNCTION>
-					<FUNCTION Id="RDK:20857698" Name="CreateGroup" DesignTimeRemark="Erzeugt eine Gruppe aus den gegebenen zwei Ids" InputTypeName="list" ResultTypeName="boolean">
+					<FUNCTION Id="RDK:20857698" Name="CreateGroup" DesignTimeRemark="Erzeugt eine Gruppe aus den gegebenen (mindestens zwei) Ids" InputTypeName="list" ResultTypeName="boolean">
 						<GROUP Id="RDK:20857685" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20857677" Name="id0" Type="string">
-								<SET Id="RDK:20857676" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-							<VAR Id="RDK:20857679" Name="id1" Type="string">
-								<SET Id="RDK:20857678" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
+							<VAR Id="RDK:20857677" Name="id" Type="string" />
 							<VAR Id="RDK:20857936" Name="lineStr" Type="string" />
 						</GROUP>
-						<LIST_ADD Id="RDK:20857921" ListRef="GroupIds">
-							<PAR Name="VALUE_TO_ADD">
-								<EXP><![CDATA[$=$id0]]></EXP>
+						<FOREACHLOOP Id="RDK:20924239" ItemVarRef="id">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
 							</PAR>
-							<PAR Name="POS_TO_ADD" />
-						</LIST_ADD>
-						<LIST_ADD Id="RDK:20857923" ListRef="GroupIds">
-							<PAR Name="VALUE_TO_ADD">
-								<EXP><![CDATA[$=$id1]]></EXP>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
 							</PAR>
-							<PAR Name="POS_TO_ADD" />
-						</LIST_ADD>
+							<LIST_ADD Id="RDK:20857921" DesignTimeRemark="enthält alle ShapeIds, die in Gruppen verbaut wurden" ListRef="GroupIds">
+								<PAR Name="VALUE_TO_ADD">
+									<EXP><![CDATA[$=$id]]></EXP>
+								</PAR>
+								<PAR Name="POS_TO_ADD" />
+							</LIST_ADD>
+						</FOREACHLOOP>
 						<SET Id="RDK:20857933" VarRef="lineStr">
-							<EXP><![CDATA[$=$ListToStr(NewList(id0, id1), ";")]]></EXP>
+							<EXP><![CDATA[$=$ListToStr(Param.Input, ";")]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<LIST_ADD Id="RDK:20857927" ListRef="GroupIds">
+						<LIST_ADD Id="RDK:20857927" DesignTimeRemark="enthält alle Gruppen in Form von Strings, die aus Strichpunkten und ids zusammengesetzt sind" ListRef="groupStrings">
 							<PAR Name="VALUE_TO_ADD">
 								<EXP><![CDATA[$=$lineStr]]></EXP>
 							</PAR>
 							<PAR Name="POS_TO_ADD" />
 						</LIST_ADD>
 					</FUNCTION>
-					<FUNCTION Id="RDK:20817718" Name="DestroyGroup" DesignTimeRemark="Löscht die Gruppe mit dem Element der gegeben Id" InputTypeName="string" ResultTypeName="boolean">
+					<FUNCTION Id="RDK:20817718" Name="DestroyGroup" DesignTimeRemark="Löscht die Gruppe(n) mit den gegeben Ids" InputTypeName="string[]" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832590" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20832587" Name="id0" Type="string">
-								<SET Id="RDK:20832586" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
+							<VAR Id="RDK:20880201" Name="groupStr" Type="string" />
+							<VAR Id="RDK:20880352" Name="id" Type="string" />
+							<VAR Id="RDK:20880360" Name="removeGroup" Type="string[]" />
+							<VAR Id="RDK:20880394" Name="rg" Type="string" />
 						</GROUP>
+						<FOREACHLOOP Id="RDK:20880350" ItemVarRef="id">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<FOREACHLOOP Id="RDK:20880283" ItemVarRef="groupStr">
+								<PAR Name="ArrayValueExp">
+									<EXP><![CDATA[$=$groupStrings]]></EXP>
+								</PAR>
+								<PAR Name="ExitCondExp">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<IFTHENELSE Id="RDK:20880338" DesignTimeRemark="Wenn die Id in einer der Gruppe gefunden wurde, dann schmeisse diese weg">
+									<VALUECONDITION Value="true">
+										<EXP><![CDATA[$=$StrIndexOf(groupStr, id, 0) >= 0]]></EXP>
+									</VALUECONDITION>
+									<GROUP Id="RDK:20880345" SubType="Then">
+										<LIST_ADD Id="RDK:20880362" ListRef="removeGroup">
+											<PAR Name="VALUE_TO_ADD">
+												<EXP><![CDATA[$=$groupStr]]></EXP>
+											</PAR>
+											<PAR Name="POS_TO_ADD" />
+										</LIST_ADD>
+									</GROUP>
+								</IFTHENELSE>
+							</FOREACHLOOP>
+						</FOREACHLOOP>
+						<SET Id="RDK:20885953" VarRef="removeGroup">
+							<EXP><![CDATA[$=$ListDistinct(removeGroup)]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<FOREACHLOOP Id="RDK:20880332" ItemVarRef="rg">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$removeGroup]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<REMOVE_ADD Id="RDK:20892781" ListRef="groupStrings" Value="$=$rg">
+								<EXP />
+							</REMOVE_ADD>
+						</FOREACHLOOP>
+						<FOREACHLOOP Id="RDK:20880390" ItemVarRef="id">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$Param.Input]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<REMOVE_ADD Id="RDK:20892783" ListRef="GroupIds" Value="$=$id">
+								<EXP />
+							</REMOVE_ADD>
+						</FOREACHLOOP>
 					</FUNCTION>
 					<FUNCTION Id="RDK:20817720" Name="IsInGroup" DesignTimeRemark="Prüft ob das Element der gegeben Id in einer Gruppe ist" InputTypeName="string" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832570" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -9776,57 +9823,143 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 					<FUNCTION Id="RDK:20817722" Name="GetFollowingIds" DesignTimeRemark="Gibt Alle Ids in der Gruppe zurüc, die dem gegebenen Element folgen" InputTypeName="string" ResultTypeName="string[]">
 						<GROUP Id="RDK:20832564" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:20832563" Name="id0" Type="string">
-								<SET Id="RDK:20832562" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
+								<SET Id="RDK:20902227" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
+							<VAR Id="RDK:20902044" Name="item" Type="string" />
+							<VAR Id="RDK:20902221" Name="record" Type="boolean">
+								<SET Id="RDK:20832562" VarRef="Me">
+									<EXP><![CDATA[$=$False]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:20902069" Name="splitarr" Type="string[]" />
 						</GROUP>
+						<FOREACHLOOP Id="RDK:20901983" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="lineStr" IndexVarRef="idx">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$groupStrings]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<IFTHENELSE Id="RDK:20902131" DesignTimeRemark="suche ob die Id in der Gruppe ist">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$StrIndexOf(lineStr, id0, 0) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20902138" SubType="Then">
+									<SET Id="RDK:20901963" VarRef="splitarr">
+										<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<FOREACHLOOP Id="RDK:20902040" DesignTimeRemark="finde Anfang und Ende der beiden betroffenen Gruppen" ItemVarRef="item">
+										<PAR Name="ArrayValueExp">
+											<EXP><![CDATA[$=$splitarr]]></EXP>
+										</PAR>
+										<PAR Name="ExitCondExp">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<IFTHENELSE Id="RDK:20901982" DesignTimeRemark="Ab dem gegebenen Elemente alle folgenden zurück geben">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$record = True]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:20901981" SubType="Then">
+												<LIST_ADD Id="RDK:20902210" ListRef="Param.Result">
+													<PAR Name="VALUE_TO_ADD">
+														<EXP><![CDATA[$=$item]]></EXP>
+													</PAR>
+													<PAR Name="POS_TO_ADD" />
+												</LIST_ADD>
+											</GROUP>
+										</IFTHENELSE>
+										<IFTHENELSE Id="RDK:20902206" DesignTimeRemark="Id0 ist in der Gruppe">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$item = id0]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:20902211" SubType="Then">
+												<SET Id="RDK:20914613" VarRef="record">
+													<EXP><![CDATA[$C$True]]></EXP>
+													<PAR Name="AdvancedOptions" />
+												</SET>
+											</GROUP>
+										</IFTHENELSE>
+									</FOREACHLOOP>
+									<EXIT_PROCESS Id="RDK:20902144" BreakType="4" ExitStatus="0" />
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
 					</FUNCTION>
 					<FUNCTION Id="RDK:20817724" Name="GetPreviousIds" DesignTimeRemark="Gibt Alle Ids in der Gruppe zurück, die dem gegebenen Element in der Strecke voraus liegen" InputTypeName="string" ResultTypeName="string[]">
 						<GROUP Id="RDK:20832558" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20832557" Name="id0" Type="string">
-								<SET Id="RDK:20832556" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
+							<GROUP Id="RDK:20902095" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+								<VAR Id="RDK:20902089" Name="id0" Type="string">
+									<SET Id="RDK:20902088" VarRef="Me">
+										<EXP><![CDATA[$=$Param.Input]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</VAR>
+								<VAR Id="RDK:20902090" Name="item" Type="string" />
+								<VAR Id="RDK:20902093" Name="splitarr" Type="string[]" />
+							</GROUP>
 						</GROUP>
+						<FOREACHLOOP Id="RDK:20902115" DesignTimeRemark="finde betroffene Gruppe" ItemVarRef="lineStr" IndexVarRef="idx">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$groupStrings]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<IFTHENELSE Id="RDK:20902156" DesignTimeRemark="suche ob die Id in der Gruppe ist">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$StrIndexOf(lineStr, id0, 0) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20902159" SubType="Then">
+									<SET Id="RDK:20902106" VarRef="splitarr">
+										<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<FOREACHLOOP Id="RDK:20902114" DesignTimeRemark="sammle alle Elemente ein bis das gesuchte gefunden ist" ItemVarRef="item">
+										<PAR Name="ArrayValueExp">
+											<EXP><![CDATA[$=$splitarr]]></EXP>
+										</PAR>
+										<PAR Name="ExitCondExp">
+											<EXP><![CDATA[$V$]]></EXP>
+										</PAR>
+										<IFTHENELSE Id="RDK:20902113" DesignTimeRemark="Id0 ist in der Gruppe">
+											<VALUECONDITION Value="true">
+												<EXP><![CDATA[$=$item = id0]]></EXP>
+											</VALUECONDITION>
+											<GROUP Id="RDK:20902110" SubType="Then">
+												<EXIT_PROCESS Id="RDK:20902109" BreakType="4" ExitStatus="0" />
+											</GROUP>
+											<GROUP Id="RDK:20902112" SubType="Else">
+												<LIST_ADD Id="RDK:20902150" ListRef="Param.Result">
+													<PAR Name="VALUE_TO_ADD">
+														<EXP><![CDATA[$=$item]]></EXP>
+													</PAR>
+													<PAR Name="POS_TO_ADD" />
+												</LIST_ADD>
+											</GROUP>
+										</IFTHENELSE>
+									</FOREACHLOOP>
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
 					</FUNCTION>
-					<FUNCTION Id="RDK:20817727" Name="RemoveFromGroup" DesignTimeRemark="Löscht die gegebene Id aus der Gruppe " InputTypeName="string" ResultTypeName="boolean">
-						<GROUP Id="RDK:20832552" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20832551" Name="id0" Type="string">
-								<SET Id="RDK:20832550" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-						</GROUP>
-					</FUNCTION>
-					<FUNCTION Id="RDK:20817729" Name="AddToGroup" DesignTimeRemark="Fügt die gegebene Id in die Gruppe ein" DesignTimeTip="Params: &lt;Id to Add&gt;, &lt;Id in a Group&gt;" InputTypeName="string[]" ResultTypeName="boolean">
+					<FUNCTION Id="RDK:20817729" Name="RemoveFromGroup" DesignTimeRemark="Löscht die gegebene Id aus der Gruppe " InputTypeName="string" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832546" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20832545" Name="idToAdd" Type="string">
+							<VAR Id="RDK:20832545" Name="idToRemove" Type="string">
 								<SET Id="RDK:20832544" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
-							<VAR Id="RDK:20857913" Name="idInGroup" Type="string">
-								<SET Id="RDK:20857912" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
 							<VAR Id="RDK:20857944" Name="lineStr" Type="string" />
-							<VAR Id="RDK:20857948" Name="line" Type="string[]" />
+							<VAR Id="RDK:20870389" Name="newLineStr" Type="string" />
 							<VAR Id="RDK:20857950" Name="splitarr" Type="string[]" />
+							<VAR Id="RDK:20870438" Name="newGroups" Type="string[]" />
 						</GROUP>
-						<LIST_ADD Id="RDK:20857925" ListRef="GroupIds">
-							<PAR Name="VALUE_TO_ADD">
-								<EXP><![CDATA[$=$idToAdd]]></EXP>
-							</PAR>
-							<PAR Name="POS_TO_ADD" />
-						</LIST_ADD>
 						<FOREACHLOOP Id="RDK:20857942" ItemVarRef="lineStr">
 							<PAR Name="ArrayValueExp">
 								<EXP><![CDATA[$=$groupStrings]]></EXP>
@@ -9838,27 +9971,178 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<IFTHENELSE Id="RDK:20857975" Suppressed="True">
+							<IFTHENELSE Id="RDK:20870462" DesignTimeRemark="Wenn die Id in der Gruppe gefunden ist, dann ersetze diesen Gruppenstring">
 								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$splitarr[0] = idToAdd]]></EXP>
+									<EXP><![CDATA[$=$IndexOf(splitarr, idToRemove) >= 0]]></EXP>
 								</VALUECONDITION>
-								<VALUECONDITION Value="true">
-									<EXP><![CDATA[$=$IndexOf(splitarr, idToAdd) > 0]]></EXP>
-								</VALUECONDITION>
-								<GROUP Id="RDK:20857967" SubType="Then" />
-								<GROUP Id="RDK:20857974" SubType="Else" />
+								<GROUP Id="RDK:20870459" SubType="Then">
+									<IFTHENELSE Id="RDK:20857975" DesignTimeRemark="Eine Gruppe die nur aus zwei Elementen besteht, wird aufgelöst.Ansonsten nur Gruppe verkleinern bzw. splitten">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$Count(splitarr) > 2]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:20857967" SubType="Then">
+											<IFTHENELSE Id="RDK:20880422" DesignTimeRemark="Wenn die id vorne oder hinten an einer Gruppe hängt, dann nur die Gruppe verkleinern">
+												<VALUECONDITION Value="true" Oper="OR">
+													<EXP><![CDATA[$=$FirstOf(splitarr) = idToRemove]]></EXP>
+												</VALUECONDITION>
+												<VALUECONDITION Value="true">
+													<EXP><![CDATA[$=$LastOf(splitarr) = idToRemove]]></EXP>
+												</VALUECONDITION>
+												<GROUP Id="RDK:20880421" SubType="Then">
+													<SET Id="RDK:20857940" VarRef="newLineStr">
+														<EXP><![CDATA[$=$ListToStr(ListRemove(splitarr, idToRemove) , ";")]]></EXP>
+														<PAR Name="AdvancedOptions" />
+													</SET>
+													<LIST_ADD Id="RDK:20870440" ListRef="newGroups">
+														<PAR Name="VALUE_TO_ADD">
+															<EXP><![CDATA[$=$newLineStr]]></EXP>
+														</PAR>
+														<PAR Name="POS_TO_ADD" />
+													</LIST_ADD>
+												</GROUP>
+												<GROUP Id="RDK:20880467" SubType="Else">
+													<CALLFUNCTION Id="RDK:20880469">
+														<PAR Name="FuncName">
+															<EXP><![CDATA[$C$SplitGroups]]></EXP>
+														</PAR>
+														<PAR Name="InputExp">
+															<EXP><![CDATA[$=$idToRemove]]></EXP>
+														</PAR>
+														<PAR Name="ResultRef">
+															<EXP><![CDATA[$V$]]></EXP>
+														</PAR>
+														<PAR Name="Options" />
+													</CALLFUNCTION>
+													<EXIT_PROCESS Id="RDK:20880474" BreakType="4" ExitStatus="0" />
+												</GROUP>
+											</IFTHENELSE>
+										</GROUP>
+										<GROUP Id="RDK:20880156" SubType="Else">
+											<CALLFUNCTION Id="RDK:20880158">
+												<PAR Name="FuncName">
+													<EXP><![CDATA[$C$DestroyGroup]]></EXP>
+												</PAR>
+												<PAR Name="InputExp">
+													<EXP><![CDATA[$=$splitarr]]></EXP>
+												</PAR>
+												<PAR Name="ResultRef">
+													<EXP><![CDATA[$V$]]></EXP>
+												</PAR>
+												<PAR Name="Options" />
+											</CALLFUNCTION>
+											<EXIT_PROCESS Id="RDK:20880168" BreakType="4" ExitStatus="0" />
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
+								<GROUP Id="RDK:20870461" SubType="Else">
+									<LIST_ADD Id="RDK:20870460" ListRef="newGroups">
+										<PAR Name="VALUE_TO_ADD">
+											<EXP><![CDATA[$=$lineStr]]></EXP>
+										</PAR>
+										<PAR Name="POS_TO_ADD" />
+									</LIST_ADD>
+								</GROUP>
 							</IFTHENELSE>
-							<SET Id="RDK:20857940" VarRef="lineStr">
-								<EXP><![CDATA[$=$ListToStr(NewList(id0, id1), ";")]]></EXP>
+						</FOREACHLOOP>
+						<SET Id="RDK:20870498" VarRef="groupStrings">
+							<EXP><![CDATA[$=$newGroups]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
+						<REMOVE_ADD Id="RDK:20895519" ListRef="GroupIds" Value="$=$idToRemove">
+							<EXP />
+						</REMOVE_ADD>
+					</FUNCTION>
+					<FUNCTION Id="RDK:20880133" Name="AddToGroup" DesignTimeRemark="Fügt die gegebene Id in die Gruppe ein" DesignTimeTip="Params: &lt;Id to Add&gt;, &lt;Id in a Group&gt;" InputTypeName="string[]" ResultTypeName="boolean">
+						<GROUP Id="RDK:20880116" Name="Local Variables" SubType="VarSet" IncludeDate="0">
+							<VAR Id="RDK:20880108" Name="idToAdd" Type="string">
+								<SET Id="RDK:20880107" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:20880110" Name="idInGroup" Type="string">
+								<SET Id="RDK:20880109" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
+							<VAR Id="RDK:20880111" Name="lineStr" Type="string" />
+							<VAR Id="RDK:20880112" Name="newLineStr" Type="string" />
+							<VAR Id="RDK:20880113" Name="splitarr" Type="string[]" />
+							<VAR Id="RDK:20880114" Name="newGroups" Type="string[]" />
+							<VAR Id="RDK:20880115" Name="idx" Type="integer" />
+						</GROUP>
+						<LIST_ADD Id="RDK:20880117" ListRef="GroupIds">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$idToAdd]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
+						<FOREACHLOOP Id="RDK:20880131" ItemVarRef="lineStr" IndexVarRef="idx">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$groupStrings]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<SET Id="RDK:20880118" VarRef="splitarr">
+								<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<LIST_ADD Id="RDK:20857941" Suppressed="True" ListRef="GroupIds">
-								<PAR Name="VALUE_TO_ADD">
-									<EXP><![CDATA[$=$ListToStr(NewList(id0, id1), ";")]]></EXP>
-								</PAR>
-								<PAR Name="POS_TO_ADD" />
-							</LIST_ADD>
+							<IFTHENELSE Id="RDK:20880130" DesignTimeRemark="Wenn die Id in der Gruppe gefunden ist, dann ersetze diesen Gruppenstring">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$IndexOf(splitarr, idInGroup) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20880127" SubType="Then">
+									<IFTHENELSE Id="RDK:20880122" DesignTimeRemark="Wenn die Gruppenid vorne im string gefunden wird, dann füge die neue vorn ein">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$splitarr[0] = idInGroup]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:20880121" SubType="Then">
+											<SET Id="RDK:20880119" VarRef="newLineStr">
+												<EXP><![CDATA[$=$idToAdd+";"+lineStr]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+											<LIST_ADD Id="RDK:20880120" ListRef="newGroups">
+												<PAR Name="VALUE_TO_ADD">
+													<EXP><![CDATA[$=$newLineStr]]></EXP>
+												</PAR>
+												<PAR Name="POS_TO_ADD" />
+											</LIST_ADD>
+										</GROUP>
+									</IFTHENELSE>
+									<IFTHENELSE Id="RDK:20880126" DesignTimeRemark="Wenn die Gruppenid hinten im string gefunden wird, dann füge hinten an">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$LastOf(splitarr) = idInGroup]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:20880125" SubType="Then">
+											<SET Id="RDK:20880123" VarRef="newLineStr">
+												<EXP><![CDATA[$=$lineStr+";"+idToAdd]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+											<LIST_ADD Id="RDK:20880124" ListRef="newGroups">
+												<PAR Name="VALUE_TO_ADD">
+													<EXP><![CDATA[$=$newLineStr]]></EXP>
+												</PAR>
+												<PAR Name="POS_TO_ADD" />
+											</LIST_ADD>
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
+								<GROUP Id="RDK:20880129" SubType="Else">
+									<LIST_ADD Id="RDK:20880128" ListRef="newGroups">
+										<PAR Name="VALUE_TO_ADD">
+											<EXP><![CDATA[$=$lineStr]]></EXP>
+										</PAR>
+										<PAR Name="POS_TO_ADD" />
+									</LIST_ADD>
+								</GROUP>
+							</IFTHENELSE>
 						</FOREACHLOOP>
+						<SET Id="RDK:20880132" VarRef="groupStrings">
+							<EXP><![CDATA[$=$newGroups]]></EXP>
+							<PAR Name="AdvancedOptions" />
+						</SET>
 					</FUNCTION>
 					<FUNCTION Id="RDK:20817731" Name="MergeGroups" DesignTimeRemark="nimmt die gebenen beiden Ids aus den Enden von Gruppe1 und Gruppe2  macht eine neue Gruppe daraus" InputTypeName="string[]" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832580" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -9868,38 +10152,191 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
+							<VAR Id="RDK:20895605" Name="groupVorn" Type="string" />
 							<VAR Id="RDK:20832579" Name="id1" Type="string">
 								<SET Id="RDK:20832578" VarRef="Me">
 									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
+							<VAR Id="RDK:20895607" Name="groupHinten" Type="string" />
+							<VAR Id="RDK:20899146" Name="splitarr" Type="string[]" />
 						</GROUP>
+						<FOREACHLOOP Id="RDK:20895553" DesignTimeRemark="finde Anfang und Ende der beiden betroffenen Gruppen" ItemVarRef="lineStr" IndexVarRef="idx">
+							<PAR Name="ArrayValueExp">
+								<EXP><![CDATA[$=$groupStrings]]></EXP>
+							</PAR>
+							<PAR Name="ExitCondExp">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<SET Id="RDK:20895540" VarRef="splitarr">
+								<EXP><![CDATA[$=$splitStr(lineStr, ";")]]></EXP>
+								<PAR Name="AdvancedOptions" />
+							</SET>
+							<IFTHENELSE Id="RDK:20895552" DesignTimeRemark="Id0 ist in der Gruppe">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$IndexOf(splitarr, id0) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20895549" SubType="Then">
+									<IFTHENELSE Id="RDK:20895660" DesignTimeRemark="Id ist am Kopf der Gruppe">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FirstOf(spllitarr) = id0]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:20895659" SubType="Then">
+											<SET Id="RDK:20895676" VarRef="groupHinten">
+												<EXP><![CDATA[$=$lineStr]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+										<GROUP Id="RDK:20895674" SubType="Else">
+											<SET Id="RDK:20895545" VarRef="groupVorn">
+												<EXP><![CDATA[$=$lineStr]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
+							</IFTHENELSE>
+							<IFTHENELSE Id="RDK:20895692" DesignTimeRemark="Id1 ist in der Gruppe">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$IndexOf(splitarr, id1) >= 0]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20895691" SubType="Then">
+									<IFTHENELSE Id="RDK:20895690" DesignTimeRemark="Id ist am Kopf">
+										<VALUECONDITION Value="true">
+											<EXP><![CDATA[$=$FirstOf(spllitarr) = id1]]></EXP>
+										</VALUECONDITION>
+										<GROUP Id="RDK:20895687" SubType="Then">
+											<SET Id="RDK:20895688" VarRef="groupHinten">
+												<EXP><![CDATA[$=$lineStr]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+										<GROUP Id="RDK:20895689" SubType="Else">
+											<SET Id="RDK:20895686" VarRef="groupVorn">
+												<EXP><![CDATA[$=$lineStr]]></EXP>
+												<PAR Name="AdvancedOptions" />
+											</SET>
+										</GROUP>
+									</IFTHENELSE>
+								</GROUP>
+							</IFTHENELSE>
+						</FOREACHLOOP>
+						<COMMENTS Id="RDK:20895724" DesignTimeRemark="entferne beide alten Gruppenstrings" />
+						<REMOVE_ADD Id="RDK:20895718" ListRef="groupStrings" Value="$=$groupVorn">
+							<EXP />
+						</REMOVE_ADD>
+						<REMOVE_ADD Id="RDK:20895720" ListRef="groupStrings" Value="$=$groupHinten">
+							<EXP />
+						</REMOVE_ADD>
+						<COMMENTS Id="RDK:20895726" DesignTimeRemark="und füge den neuen ein" />
+						<LIST_ADD Id="RDK:20895722" DesignTimeRemark="ist die neue Gruppe" ListRef="groupStrings">
+							<PAR Name="VALUE_TO_ADD">
+								<EXP><![CDATA[$=$groupVorn+";"+groupHinten]]></EXP>
+							</PAR>
+							<PAR Name="POS_TO_ADD" />
+						</LIST_ADD>
 					</FUNCTION>
-					<FUNCTION Id="RDK:20817733" Name="SplitGroups" DesignTimeRemark="macht aus einer Gruppe zwei. Split erfolgt zwischen den beiden gegebenen Ids" InputTypeName="string[]" ResultTypeName="boolean">
+					<FUNCTION Id="RDK:20817733" Name="SplitGroups" DesignTimeRemark="macht aus einer Gruppe zwei. Split erfolgt an der gegebenen Id, welche anschliessend auch als Element frei gestellt ist" InputTypeName="string" ResultTypeName="boolean">
 						<GROUP Id="RDK:20832540" Name="Local Variables" SubType="VarSet" IncludeDate="0">
 							<VAR Id="RDK:20832537" Name="id0" Type="string">
 								<SET Id="RDK:20832536" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
+									<EXP><![CDATA[$=$Param.Input]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
+							<VAR Id="RDK:20902294" Name="following" Type="string[]" />
+							<VAR Id="RDK:20902296" Name="previous" Type="string[]" />
 						</GROUP>
+						<CALLFUNCTION Id="RDK:20906398">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetFollowingIds]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$id0]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$following]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<CALLFUNCTION Id="RDK:20906400">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$GetPreviousIds]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$id0]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$previous]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<CALLFUNCTION Id="RDK:20918713">
+							<PAR Name="FuncName">
+								<EXP><![CDATA[$C$DestroyGroup]]></EXP>
+							</PAR>
+							<PAR Name="InputExp">
+								<EXP><![CDATA[$=$NewList(id0)]]></EXP>
+							</PAR>
+							<PAR Name="ResultRef">
+								<EXP><![CDATA[$V$]]></EXP>
+							</PAR>
+							<PAR Name="Options" />
+						</CALLFUNCTION>
+						<IFTHENELSE Id="RDK:20918756" DesignTimeRemark="Eine Gruppe die nur aus zwei Elementen besteht, wird aufgelöst.Ansonsten nur Gruppe verkleinern bzw. splitten">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(following) > 1]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20918752" SubType="Then">
+								<CALLFUNCTION Id="RDK:20918715">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateGroup]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$following]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
+						<IFTHENELSE Id="RDK:20918775" DesignTimeRemark="Eine Gruppe die nur aus zwei Elementen besteht, wird aufgelöst.Ansonsten nur Gruppe verkleinern bzw. splitten">
+							<VALUECONDITION Value="true">
+								<EXP><![CDATA[$=$Count(previous) > 1]]></EXP>
+							</VALUECONDITION>
+							<GROUP Id="RDK:20918774" SubType="Then">
+								<CALLFUNCTION Id="RDK:20918719">
+									<PAR Name="FuncName">
+										<EXP><![CDATA[$C$CreateGroup]]></EXP>
+									</PAR>
+									<PAR Name="InputExp">
+										<EXP><![CDATA[$=$previous]]></EXP>
+									</PAR>
+									<PAR Name="ResultRef">
+										<EXP><![CDATA[$V$]]></EXP>
+									</PAR>
+									<PAR Name="Options" />
+								</CALLFUNCTION>
+							</GROUP>
+						</IFTHENELSE>
 					</FUNCTION>
 					<FUNCTION Id="RDK:20857710" Name="MergeIdsToGroup" DesignTimeRemark="nimmt die gebenen beiden Ids und macht bei Bedarf eine neue Gruppe oder Merged vorhandene" InputTypeName="string[]" ResultTypeName="boolean">
 						<GROUP Id="RDK:20857709" Name="Local Variables" SubType="VarSet" IncludeDate="0">
-							<VAR Id="RDK:20857708" Name="id1" Type="string">
-								<SET Id="RDK:20857707" VarRef="Me">
-									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
-									<PAR Name="AdvancedOptions" />
-								</SET>
-							</VAR>
 							<VAR Id="RDK:20857706" Name="id0" Type="string">
 								<SET Id="RDK:20857705" VarRef="Me">
 									<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
 									<PAR Name="AdvancedOptions" />
 								</SET>
 							</VAR>
+							<VAR Id="RDK:20857708" Name="id1" Type="string">
+								<SET Id="RDK:20857707" VarRef="Me">
+									<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
+									<PAR Name="AdvancedOptions" />
+								</SET>
+							</VAR>
 							<VAR Id="RDK:20857741" Name="IsUsed0" Type="boolean" />
 							<VAR Id="RDK:20863471" Name="IsUsed1" Type="boolean" />
 						</GROUP>
@@ -10012,7 +10449,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
 								</IFTHENELSE>
 							</GROUP>
 						</IFTHENELSE>
-						<CALLFUNCTION Id="RDK:20857853">
+						<CALLFUNCTION Id="RDK:20857853" Suppressed="True">
 							<PAR Name="FuncName">
 								<EXP><![CDATA[$C$IsInGroup]]></EXP>
 							</PAR>
@@ -16011,35 +16448,7 @@ me.x
 					<GROUP Id="RDK:20833971" SubType="Then">
 						<CALLFUNCTION Id="RDK:20833968">
 							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SplitGroup]]></EXP>
-							</PAR>
-							<PAR Name="InputExp">
-								<EXP><![CDATA[$=$id0]]></EXP>
-							</PAR>
-							<PAR Name="ResultRef">
-								<EXP><![CDATA[$V$]]></EXP>
-							</PAR>
-							<PAR Name="Options" />
-						</CALLFUNCTION>
-					</GROUP>
-				</IFTHENELSE>
-				<IFTHENELSE Id="RDK:20843772">
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+id0].family = "Strecke"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+id0].family = "Foerderer"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true" Oper="OR">
-						<EXP><![CDATA[$=$ShapeList["id="+id0].family = "Gefaellestrecke"]]></EXP>
-					</VALUECONDITION>
-					<VALUECONDITION Value="true">
-						<EXP><![CDATA[$=$ShapeList["id="+id0].family = "Gefaellestrecke"]]></EXP>
-					</VALUECONDITION>
-					<GROUP Id="RDK:20843771" SubType="Then">
-						<CALLFUNCTION Id="RDK:20843770">
-							<PAR Name="FuncName">
-								<EXP><![CDATA[$C$SplitGroup]]></EXP>
+								<EXP><![CDATA[$C$RemoveFromGroup]]></EXP>
 							</PAR>
 							<PAR Name="InputExp">
 								<EXP><![CDATA[$=$id0]]></EXP>
@@ -16055,8 +16464,8 @@ me.x
 			<FUNCTION Id="RDK:296" Name="OnEditor2DRegrouped" InputTypeName="Editor2DShapePropertyType" Options="(TYPEFUNCTION)">
 				<COMMENTS Id="RDK:32100" />
 			</FUNCTION>
-			<FUNCTION Id="RDK:297" Name="OnEditor2DConfigure" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:298" Name="OnEditor2DValidate" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
+			<FUNCTION Id="RDK:297" Name="OnEditor2DConfigure" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:299" Name="OnEditor2DSmartCopy" InputTypeName="string[]" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:300" Name="OnEditor2DSave" Options="(TYPEFUNCTION)" />
 			<FUNCTION Id="RDK:301" Name="OnEditor2DUndo" Options="(TYPEFUNCTION)" />