Schoenenberger_Systeme_GmbH/SSG-Ruledesigner-Konfigurator
3
0
Fork 0
Code Issues Pull Requests Packages Projects 1 Releases Wiki Activity

Gruppenroutinen implementiert

Browse Source
This commit is contained in:
Michael Stangl
2024-09-25 14:37:50 +02:00
parent 10afb965ea
commit 7c0c8c045b
1 changed files with 531 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+531 -122
View File
@@ -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)" />