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

getHeight gibt jetzt immer eine Höhe zurück. Messagebox aus der Funktion rausgeworfen. Höhe aus Connectionpoint label für Gefällestrecke beim Setzen relevant

Browse Source
This commit is contained in:
Michael Stangl
2024-10-01 14:58:08 +02:00
parent 16b26e4e59
commit 0e533764cc
1 changed files with 103 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+103 -66
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-09-30T15:43:26" LanguageVersion="2014.1.3.690" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-01T14:56:04" 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">
@@ -1008,6 +1008,7 @@
<VAR Id="RDK:1007444" Name="Point2D" Type="Point2D" />
<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" DesignTimeRemark="Enthält ; separtiert alle Strings, damit die Gruppen beschrieben werden können. a;b;c wäre z.B. eine Gruppe aus den Objekten a, b und c" />
<VAR Id="RDK:21093041" Name="hoehe" Type="double" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -10474,6 +10475,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:19795626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -10485,6 +10487,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19795628">
<PAR Name="FuncName">
@@ -10659,6 +10662,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:19841627">
<PAR Name="FuncName">
@@ -16586,9 +16590,6 @@ me.x
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Kurve"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Foerderer"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family = "Gefaellestrecke"]]></EXP>
</VALUECONDITION>
@@ -16611,9 +16612,6 @@ me.x
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Kurve"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Foerderer"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family = "Gefaellestrecke"]]></EXP>
</VALUECONDITION>
@@ -18109,6 +18107,7 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:20733293">
<PAR Name="FuncName">
@@ -19654,13 +19653,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</IFTHENELSE>
<COMMENTS Id="RDK:18530478" DesignTimeRemark="Param.Input" />
<GROUP Id="RDK:18329391" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18329384" Name="L_th" Type="double" />
<VAR Id="RDK:18539553" Name="H_th" Type="double" />
<VAR Id="RDK:19881503" Name="winkel_th" Type="double" />
<VAR Id="RDK:18376628" Name="shape_item" Type="Editor2DShapeType" />
<VAR Id="RDK:21050072" Name="RueckgabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21070814" Name="ResultListe" Type="string[]" />
<VAR Id="RDK:21070838" Name="cpId" Type="string" />
</GROUP>
<SET Id="RDK:18376630" VarRef="shape_item">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
@@ -19747,11 +19740,24 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXIT_PROCESS Id="RDK:21071603" BreakType="4" ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
<GROUP Id="RDK:21076531" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21076523" Name="L_th" Type="double" />
<VAR Id="RDK:21076524" Name="H_th" Type="double" />
<VAR Id="RDK:21076525" Name="winkel_th" Type="double" />
<VAR Id="RDK:21076527" Name="RueckgabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21076528" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21076529" Name="ResultListe" Type="string[]" />
<VAR Id="RDK:21076530" Name="cpId" Type="string" />
</GROUP>
<COMMENTS Id="RDK:21038320" DesignTimeRemark="Wenn die Gefällestrecke nur einseitig angebunden ist, kann man von Länge und Winkel als wahre Größe ausgehen" />
<SET Id="RDK:21038363" VarRef="H_th">
<EXP><![CDATA[$=$Tan(DegToRad(shape_item.GefaelleDefinition.winkel)) * shape_item.GefaelleDefinition.L1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21104691" VarRef="H_th">
<EXP><![CDATA[$=$Round(H_th,1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:21070831" DesignTimeRemark="feststellen, welche der beiden Enden verbunden ist (oben oder unten)" />
<CALLFUNCTION Id="RDK:21069439">
<PAR Name="FuncName">
@@ -19817,36 +19823,48 @@ ShapeList["id="+Param.Input[1].shapeID].name
</CASEGROUP>
<CASEGROUP Id="RDK:21070846" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<IFTHENELSE Id="RDK:21038349">
<IFTHENELSE Id="RDK:21157583">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben > shape_item.GefaelleDefinition.HoeheUnten]]></EXP>
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21038350" SubType="Then">
<GROUP Id="RDK:21157580" SubType="Then">
<SET Id="RDK:21038345" VarRef="shape_item.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben - H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21038351" SubType="Else">
<GROUP Id="RDK:21157582" SubType="Else">
<SET Id="RDK:21038361" VarRef="shape_item.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheUnten + H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<SET Id="RDK:21048675" VarRef="shape_item.GefaelleDefinition.L_th">
<CALLFUNCTION Id="RDK:21119118">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shape_item.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21048675" VarRef="shape_item.GefaelleDefinition.L_th" Suppressed="True">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.L1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21048677" VarRef="shape_item.GefaelleDefinition.H_th">
<EXP><![CDATA[$=$Abs(Round(H_th, 0))]]></EXP>
<SET Id="RDK:21048677" VarRef="shape_item.GefaelleDefinition.H_th" Suppressed="True">
<EXP><![CDATA[$=$Abs(H_th)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21048679" VarRef="shape_item.GefaelleDefinition.winkel_th">
<SET Id="RDK:21048679" VarRef="shape_item.GefaelleDefinition.winkel_th" Suppressed="True">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.winkel]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21046617" VarRef="shape_item.GefaelleDefinition.LH_fits">
<SET Id="RDK:21046617" VarRef="shape_item.GefaelleDefinition.LH_fits" Suppressed="True">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -20484,6 +20502,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Key">
<EXP><![CDATA[$C$ShapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$item_1.id]]></EXP>
</PAR>
@@ -21746,6 +21765,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827092" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -22017,6 +22037,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$item.KurveDefinition.H_1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:21114298">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$h1>h2]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21114295" SubType="Then" DesignTimeRemark="richtung=1, von cp1 nach cp2 abfallen">
<SET Id="RDK:21114294" VarRef="richtung">
<EXP><![CDATA[$=$1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21114297" SubType="Else" DesignTimeRemark="richtung=0, von cp2 nach cp1 abfallen">
<SET Id="RDK:21114296" VarRef="richtung">
<EXP><![CDATA[$=$0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18895307">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
@@ -22062,29 +22099,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18912104">
<IFTHENELSE Id="RDK:18912104" Suppressed="True" DesignTimeNotes="Abfrage ob das definiert ist, sollte ausserhalb dieser Funktion für eine Entscheidung stattfinden. Die Funktion selbst soll nur die enthaltenen Höhen zurück geben">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$item.GefaelleDefinition.LH_fits]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18912101" SubType="Then">
<IFTHENELSE Id="RDK:18827185">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18827182" SubType="Then">
<SET Id="RDK:18827181" VarRef="hoehe">
<EXP><![CDATA[$=$h1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:18827184" SubType="Else">
<SET Id="RDK:18827183" VarRef="hoehe">
<EXP><![CDATA[$=$h0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</GROUP>
<GROUP Id="RDK:18912101" SubType="Then" />
<GROUP Id="RDK:18912103" SubType="Else">
<COMMENTS Id="RDK:21041036" DesignTimeRemark="//Gefällehoehe sind nicht definiert." />
<ACTION_CALL Id="RDK:21041038" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -22112,6 +22131,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18827185">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18827182" SubType="Then">
<SET Id="RDK:18827181" VarRef="hoehe">
<EXP><![CDATA[$=$h1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:18827184" SubType="Else">
<SET Id="RDK:18827183" VarRef="hoehe">
<EXP><![CDATA[$=$h2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:18741926" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -22143,29 +22179,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18928848">
<IFTHENELSE Id="RDK:18928848" Suppressed="True" DesignTimeNotes="Abfrage ob das definiert ist, sollte ausserhalb dieser Funktion für eine Entscheidung stattfinden. Die Funktion selbst soll nur die enthaltenen Höhen zurück geben">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$item.FoerdererDefinition.LH_fits]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18928841" SubType="Then">
<IFTHENELSE Id="RDK:18928840">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18928837" SubType="Then">
<SET Id="RDK:18928836" VarRef="hoehe">
<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:18928839" SubType="Else">
<SET Id="RDK:18928838" VarRef="hoehe">
<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</GROUP>
<GROUP Id="RDK:18928841" SubType="Then" />
<GROUP Id="RDK:18928847" SubType="Else">
<COMMENTS Id="RDK:18928861" DesignTimeRemark="//Foerdererhoehe sind nicht definiert." />
<ACTION_CALL Id="RDK:18928865" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -22193,6 +22211,23 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18928840">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18928837" SubType="Then">
<SET Id="RDK:18928836" VarRef="hoehe">
<EXP><![CDATA[$=$item.FoerdererDefinition.H_1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:18928839" SubType="Else">
<SET Id="RDK:18928838" VarRef="hoehe">
<EXP><![CDATA[$=$item.FoerdererDefinition.H_0]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:18741920" CaseType="1">
<EXP />
@@ -22221,6 +22256,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Key">
<EXP><![CDATA[$C$Hoehe]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$hoehe]]></EXP>
@@ -22232,6 +22268,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Key">
<EXP><![CDATA[$C$Richtung]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$richtung]]></EXP>
@@ -25075,7 +25112,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="DataSource" />
<PAR Name="Options" />
</ACTION_CALL>
<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
<ACTION_CALL Id="RDK:837490" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp2 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only &#xD;&#xA;">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
@@ -25118,7 +25155,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Required" />
<PAR Name="Hidden" />
<PAR Name="ROnly">
<EXP><![CDATA[$=$]]></EXP>
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="Disabled" />
<PAR Name="Pressed" />
@@ -25128,7 +25165,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="DataSource" />
<PAR Name="Options" />
</ACTION_CALL>
<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed">
<ACTION_CALL Id="RDK:314381" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only ">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
@@ -25171,7 +25208,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Required" />
<PAR Name="Hidden" />
<PAR Name="ROnly">
<EXP><![CDATA[$=$]]></EXP>
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="Disabled" />
<PAR Name="Pressed" />