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

Änderung der Höhen einer Strecke nach Änderung einer Höhe eines Elements

Browse Source
This commit is contained in:
Michael Stangl
2024-10-09 17:41:55 +02:00
parent 9da6d4e7ae
commit f0f101d310
1 changed files with 88 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+88 -41
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-10-08T12:06:40" LanguageVersion="2014.1.3.690" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-09T17:40:22" 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" />
@@ -60,7 +60,7 @@
<FIELD Id="RDK:1520421" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:1520424" Name="Durchmesser" Type="double" />
</TYPE>
<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" SubType="structure">
<TYPE Id="RDK:302581" Name="GefaelleType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:880709" Name="L1" Type="double" />
@@ -157,7 +157,7 @@
<FIELD Id="RDK:1783800" Name="Int" Type="integer" />
<FIELD Id="RDK:1783798" Name="Boo" Type="boolean" />
</TYPE>
<TYPE Id="RDK:18530545" Name="SSG_Limits" Expanded="True" SubType="structure">
<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
<FIELD Id="RDK:18530546" Name="Kreisel_bot" Type="KreiselType" />
@@ -10966,15 +10966,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<PAR Name="aktiv">
<EXP><![CDATA[$=$IIF(me.x_M<=(Shape_Prototype.KreiselDefinition.AbstandMS-Shape_Prototype.KreiselDefinition.d_min),TRUE,FALSE)]]></EXP>
</PAR>
<PAR Name="id" />
<PAR Name="x_M" />
<PAR Name="x_S" />
<PAR Name="x" />
<PAR Name="y" />
<PAR Name="z" />
<PAR Name="direction" />
<PAR Name="linkClass" />
<PAR Name="label" />
</EXEC_ON_VALUES>
<EXEC_ON_VALUES Id="RDK:812298" VarRef="Shape_Prototype.KreiselDefinition.S_Strecke">
<PAR Name="aktiv">
@@ -12500,35 +12491,12 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:1332808" Name="Gefaellestrecke 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">
<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheOben <> Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id=" + Shape_Prototype.id].GefaelleDefinition.HoeheUnten <> Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
</VALUECONDITION>
<SET_STRUCT Id="RDK:1345493" VarRef="InheritHeightData" ClearAll="True">
<PAR Name="ParentIndex">
<EXP><![CDATA[$=$i]]></EXP>
</PAR>
<PAR Name="NewHoehe" />
<PAR Name="NewHoeheOben">
<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
</PAR>
<PAR Name="NewHoeheUnten">
<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
</PAR>
<PAR Name="Text">
<EXP><![CDATA[$C$^]]></EXP>
</PAR>
</SET_STRUCT>
<CALLFUNCTION Id="RDK:1332784">
<CALLFUNCTION Id="RDK:21477339">
<PAR Name="FuncName">
<EXP><![CDATA[$C$InheritHeight]]></EXP>
<EXP><![CDATA[$C$ResetHeightsOfStrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$InheritHeightData]]></EXP>
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
@@ -16412,6 +16380,25 @@ me.x
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:21455965">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kurve"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21455964" SubType="Then">
<CALLFUNCTION Id="RDK:21455963">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetHeightOfStreckeOnConnect]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:18221764" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -20534,10 +20521,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
<IFTHENELSE Id="RDK:21376926">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Laenge>SSG_Limits_data.Gefaelle_top.winkel]]></EXP>
<EXP><![CDATA[$=$winkel>SSG_Limits_data.Gefaelle_top.winkel]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Laenge<SSG_Limits_data.Gefaelle_bot.winkel]]></EXP>
<EXP><![CDATA[$=$winkel<SSG_Limits_data.Gefaelle_bot.winkel]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21376923" SubType="Then">
<SET Id="RDK:21382439" VarRef="Param.Result">
@@ -20932,6 +20919,66 @@ ShapeList["id="+Param.Input[1].shapeID].name
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:21477331" Name="ResetHeightsOfStrecke" InputTypeName="string">
<GROUP Id="RDK:21477304" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21477296" Name="shapeId" Type="string">
<SET Id="RDK:21477295" VarRef="Me">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:21477298" Name="label" Type="string" />
<VAR Id="RDK:21477300" Name="hoehe" Type="double" />
<VAR Id="RDK:21477302" Name="shape_item" Type="Editor2DShapeType" />
<VAR Id="RDK:21477384" Name="inGroup" Type="boolean" />
<VAR Id="RDK:21477401" Name="following" Type="string[]" />
<VAR Id="RDK:21477403" Name="previous" Type="string[]" />
</GROUP>
<CALLFUNCTION Id="RDK:21477364">
<PAR Name="FuncName">
<EXP><![CDATA[$C$IsInGroup]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$inGroup]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:21477370" DesignTimeRemark="Wenn beide Ids noch keiner Gruppe angehören, dann erzeuge eine neue Gruppe">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$inGroup]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21477369" SubType="Then">
<EXIT_PROCESS Id="RDK:21477377" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:21477397">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetFollowingIds]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$following]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:21477405">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetPreviousIds]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$previous]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FUNCTION>
<FUNCTION Id="RDK:1698052" Name="SetHeightOnConnect" InputTypeName="SSGParameter[]" ResultTypeName="SSGParameter[]">
<GROUP Id="RDK:1772339" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:1772341" Name="item_0" Type="Editor2DShapeType" />