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

Erste FAssung der Vorgänger Höhenrechnung eingestellt

Browse Source
This commit is contained in:
Michael Stangl
2024-10-28 12:30:40 +01:00
parent 52c26994be
commit 14bc47d82f
1 changed files with 25 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+25 -76
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="m.stangl [ENTW-NB08]" ModDate="2024-10-28T11:46:15" LanguageVersion="2014.1.3.699" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-28T12:30:13" LanguageVersion="2014.1.3.699" />
<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">
@@ -13197,6 +13197,18 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:21840223">
<PAR Name="FuncName">
<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:21689206" Name="Kurve HoeheOben OR HoeheUnten was changed" SubType="Generic" Suppressed="True" DesignTimeNotes="20231005 -1-&#xD;&#xA;&#xD;&#xA;Inherit height to direct Shaps and set others to Gelb (except Kreisel Groups).">
<VALUECONDITION Value="true" Oper="OR">
@@ -21712,6 +21724,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<VAR Id="RDK:21477403" Name="previous" Type="string[]" />
<VAR Id="RDK:21484286" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21556604" Name="UebergabeCps" Type="SSGParameter[]" />
<VAR Id="RDK:21827703" Name="splitarr" Type="string[]" />
</GROUP>
<CALLFUNCTION Id="RDK:21477364">
<PAR Name="FuncName">
@@ -21800,14 +21813,14 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:21543317" Suppressed="True" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
<IFTHENELSE Id="RDK:21543317" DesignTimeRemark="Falls es vorhergehende Elemente gibt">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Count(previous) > 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21543316" SubType="Then">
<SET_STRUCT Id="RDK:21543313" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_0]]></EXP>
<EXP><![CDATA[$C$shapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
@@ -21817,14 +21830,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21543314" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<SET Id="RDK:21827701" VarRef="splitarr" Suppressed="True">
<EXP><![CDATA[$=$ListReverse(splitStr(lineStr, ";"))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21827689" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeCps">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId_1]]></EXP>
<EXP><![CDATA[$C$shape_ids]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$previous[0]]]></EXP>
<PAR Name="StrArr">
<EXP><![CDATA[$=$previous]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
@@ -21841,74 +21858,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<GROUP Id="RDK:21554338" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21554331" Name="item_vorher" Type="Editor2DShapeType" />
</GROUP>
<FOREACHLOOP Id="RDK:21525457" ItemVarRef="itemId">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$previous]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<COMMENTS Id="RDK:21554316" DesignTimeRemark="Hole dir die Höhe die der Vorgänger haben soll" />
<SET Id="RDK:21554320" VarRef="UebergabeListe">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21525454" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$itemId]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21543337" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$cps_verbunden[1]]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21525456">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RueckgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21546774" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:21554344">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetCpsOfConnectedShapes]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$cps_verbunden]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FOREACHLOOP>
</GROUP>
</IFTHENELSE>
</FUNCTION>