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

Vereinfachung Algorithmus inherit Height, sodass die Höhen der angebundenen SSG_Shapes neu gesetzt werden

Browse Source
This commit is contained in:
Simon Schmutzler
2024-06-17 11:46:50 +02:00
parent 575576dd8e
commit 8d6c844bc4
1 changed files with 131 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+131 -8
View File
@@ -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.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T10:30:02" LanguageVersion="2014.1.3.674" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-06-17T11:44:40" LanguageVersion="2014.1.3.674" />
<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">
@@ -839,7 +839,7 @@
<FIELD Id="RDK:1007739" Name="Withdraw_Start" Type="double" />
<FIELD Id="RDK:1007740" Name="Withdraw_End" Type="double" />
</TYPE>
<TYPE Id="RDK:1345483" Name="InheritHeightType" SubType="structure" DesignTimeNotes="20231005 -1-">
<TYPE Id="RDK:1345483" Name="InheritHeightType" Expanded="True" SubType="structure" DesignTimeNotes="20231005 -1-">
<TYPE_VALUES />
<FIELD Id="RDK:1345484" Name="ParentIndex" Type="integer" />
<FIELD Id="RDK:1345485" Name="NewHoehe" Type="double" />
@@ -1018,6 +1018,7 @@
<VAR Id="RDK:19440102" Name="shapeID" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19603024" Name="isDefined" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19632171" Name="shapeList_idx" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:19798335" Name="TempKreiselLink" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -8115,7 +8116,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" DesignTimeNotes="20231011 -1-">
<GROUP Id="RDK:1528230" Name="Set IndirectConnGefaellestreckeList" SubType="Generic" Suppressed="True" DesignTimeNotes="20231011 -1-">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
</VALUECONDITION>
@@ -9126,14 +9127,136 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
</GROUP>
</FOREACHLOOP>
</GROUP>
<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<GROUP Id="RDK:19787372" Name="Set KreiselHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
<FOREACHLOOP Id="RDK:19787371" ItemVarRef="TempKreiselLink">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<GROUP Id="RDK:19787362" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
<VAR Id="RDK:19787415" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:19790136" Name="shape_item" Type="Editor2DShapeType" />
</GROUP>
<SET_STRUCT Id="RDK:19795624" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$TempKreiselLink]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19795626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Param.Input.NewHoehe]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19795628">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FOREACHLOOP>
</GROUP>
<GROUP Id="RDK:19795603" Name="Set IndirectConnHeights" SubType="Generic" DesignTimeNotes="20231011 -1-">
<FOREACHLOOP Id="RDK:19795602" ItemVarRef="TempKreisel">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$KreiselGroupList]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<GROUP Id="RDK:19795593" Name="Local Vars" SubType="VarSet" IncludeDate="0" DesignTimeNotes="20230928 -1-">
<VAR Id="RDK:19795588" Name="TempKreiselLink" Type="string" />
<VAR Id="RDK:19795589" Name="TempIndirectConn" Type="IndirectConnGefaellestreckeType" />
<VAR Id="RDK:19795590" Name="TempNewHoehe" Type="string" />
<VAR Id="RDK:19795591" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:19795592" Name="shape_item" Type="Editor2DShapeType" />
</GROUP>
<FOREACHLOOP Id="RDK:19795601" ItemVarRef="TempKreiselLink">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$ShapeList["id=" + TempKreisel].Links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<SET Id="RDK:19795594" VarRef="shape_item">
<EXP><![CDATA[$=$ShapeList["id=" + StrAfter(TempKreiselLink, ";")]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:19795600">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:19795598" SubType="Then">
<SET_STRUCT Id="RDK:19795595" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_0]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$TempKreisel]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19795596" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_1]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$shape_item.id]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19795597">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOnConnect]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:19795599" SubType="Else" />
</IFTHENELSE>
</FOREACHLOOP>
</FOREACHLOOP>
</GROUP>
<SET Id="RDK:18768030" VarRef="ShapeList[TempIndex].lineColor" Suppressed="True">
<EXP><![CDATA[$C$#f33256]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:1134513" VarRef="ShapeList[TempIndex].text" Suppressed="True">
<EXP><![CDATA[$=$Param.Input.Text + Lf() + "Höhe vererbt"]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</FUNCTION>
<GROUP Id="RDK:314269" Name="MUI" SubType="FunctionSet" IncludeDate="0">
@@ -9405,7 +9528,7 @@ Contains(IndirectConnKreiselList, Link) AND Shape_Prototype.family = "Gefaellest
<EXP><![CDATA[$=$TempText]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18768039" VarRef="ShapeList[InheritHeightData.ParentIndex].lineColor">
<SET Id="RDK:18768039" VarRef="ShapeList[InheritHeightData.ParentIndex].lineColor" Suppressed="True">
<EXP><![CDATA[$=$TempColor]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>