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

Abfrage ob ein Kreisel/Eckrad mit fixer Höhe an einer Gefällestrecke angebunden ist. Wenn dem so ist, dann die Höhenänderung des Nutzers hier wieder korrigieren, bzw. rückgängig machen

Browse Source
This commit is contained in:
Michael Stangl
2024-10-02 20:56:39 +02:00
parent 2b581684ef
commit d3bc7fd12b
1 changed files with 359 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+359 -84
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-01T16:27:38" LanguageVersion="2014.1.3.690" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2024-10-02T20:55:37" 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">
@@ -64,15 +64,15 @@
<TYPE_VALUES />
<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:880709" Name="L1" Type="double" />
<FIELD Id="RDK:18539540" Name="L_th" Type="double" DesignTimeRemark="Theoretische Länge berechnet aus Winkel und L1 (projezierte Länge)" />
<FIELD Id="RDK:18539540" Name="L_th" Type="double" DesignTimeRemark="Theoretische Länge berechnet aus Winkel und L1 (projizierte Länge)" />
<FIELD Id="RDK:18530486" Name="LH_fits" Type="boolean" DesignTimeRemark="True wenn Länge L1 und L_toleranz zueinander passen und damit zur Höhendifferenz" />
<FIELD Id="RDK:18530589" Name="LH_toleranz" Type="double" DesignTimeRemark="Toleranz in mm für den Längenunterschied, bei dem eine Differenz akzeptiert wird" />
<FIELD Id="RDK:302584" Name="winkel" Type="double" />
<FIELD Id="RDK:20543121" Name="FesteL1" Type="boolean" />
<FIELD Id="RDK:302573" Name="HoeheOben" Type="double" />
<FIELD Id="RDK:302583" Name="HoeheUnten" Type="double" />
<FIELD Id="RDK:19866070" Name="winkel_th" Type="double" DesignTimeRemark="winkel_th berechnet aus Höhendifferenz (Abs(HoeheOben-HoeheUnten)) und L1 (projezierte Länge)" />
<FIELD Id="RDK:18539542" Name="H_th" Type="double" DesignTimeRemark="Theoretische Höhendifferenz berechnet aus Winkel und L1 (projezierte Länge)" />
<FIELD Id="RDK:19866070" Name="winkel_th" Type="double" DesignTimeRemark="winkel_th berechnet aus Höhendifferenz (Abs(HoeheOben-HoeheUnten)) und L1 (projizierte Länge)" />
<FIELD Id="RDK:18539542" Name="H_th" Type="double" DesignTimeRemark="Theoretische Höhendifferenz berechnet aus Winkel und L1 (projizierte Länge)" />
<FIELD Id="RDK:302575" Name="n_Sep" Type="integer" />
<FIELD Id="RDK:302576" Name="n_Scan" Type="integer" />
</TYPE>
@@ -91,8 +91,8 @@
<FIELD Id="RDK:18116683" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:18116696" Name="Typ" Type="string" DesignTimeRemark="Auf oder Ab" />
<FIELD Id="RDK:18116684" Name="L1" Type="double" DesignTimeRemark="Gesamtlänge" />
<FIELD Id="RDK:18129305" Name="L_s" Type="double" DesignTimeRemark="Projezierte Länge der Gefällestrecke" />
<FIELD Id="RDK:18305535" Name="L_f" Type="double" DesignTimeRemark="Projezierte Länge des Förderers" />
<FIELD Id="RDK:18129305" Name="L_s" Type="double" DesignTimeRemark="Projizierte Länge der Gefällestrecke" />
<FIELD Id="RDK:18305535" Name="L_f" Type="double" DesignTimeRemark="Projizierte Länge des Förderers" />
<FIELD Id="RDK:18116685" Name="winkel_f" Type="double" DesignTimeRemark="Winkel Förderer" />
<FIELD Id="RDK:18129301" Name="winkel_s" Type="double" DesignTimeRemark="Winkel Gefällestrecke" />
<FIELD Id="RDK:18598343" Name="Richtung" Type="integer" DesignTimeRemark="Richtung des Förderers, 1=Auf, 0=Ab" />
@@ -1008,7 +1008,6 @@
<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" />
@@ -4384,7 +4383,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition">
<EXP><![CDATA[$=$]]></EXP>
<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition]]></EXP>
</PAR>
<PAR Name="KurveDefinition" />
<PAR Name="FoerdererDefinition" />
@@ -4545,7 +4544,9 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition" />
<PAR Name="KurveDefinition" />
<PAR Name="KurveDefinition">
<EXP><![CDATA[$=$Shape_Prototype.KurveDefinition]]></EXP>
</PAR>
<PAR Name="FoerdererDefinition" />
<PAR Name="WeicheDefinition" />
<PAR Name="BTMTBeladungDefinition" />
@@ -9258,6 +9259,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474066" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
@@ -10657,6 +10659,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:19841626" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -12467,6 +12470,7 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<PAR Name="includeInBOM" />
<PAR Name="StreckeDefinition" />
<PAR Name="isDefined" />
<PAR Name="KurveDefinition" />
</SET_STRUCT>
<SET Id="RDK:18556791" VarRef="Shape_Prototype.height">
<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.L1]]></EXP>
@@ -12555,17 +12559,133 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$FieldAffected="L1"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="FesteL1"]]></EXP>
</VALUECONDITION>
<COMMENTS Id="RDK:18348402" DesignTimeRemark="Änderung von Winkel und Länge" />
<CALLFUNCTION Id="RDK:18348398">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CalcGFTheoretischeLänge_Prototype]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:21224910" Name="Group" SubType="Generic">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
</VALUECONDITION>
<COMMENTS Id="RDK:18348402" DesignTimeRemark="Shape_Prototype.GefaelleDefinition.winkel" />
<CALLFUNCTION Id="RDK:18348398">
<COMMENTS Id="RDK:21224908" DesignTimeRemark="Änderung der Höhen" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
<GROUP Id="RDK:21231332" Name="localVars" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21231334" Name="isConnected" Type="boolean" DesignTimeRemark="ist an Kreisel angebunden oder nicht" />
<VAR Id="RDK:21231359" Name="UebergabeListe" Type="SSGParameter[]">
<SET_STRUCT Id="RDK:21231361" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeId]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21231363" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$FieldAffected]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="Str">
<EXP><![CDATA[$=$FieldAffected]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
</VAR>
</GROUP>
<CALLFUNCTION Id="RDK:21231154">
<PAR Name="FuncName">
<EXP><![CDATA[$C$isConnectedToFixHeight]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$UebergabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$isConnected]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:21231157">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$isConnected]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21231158" SubType="Then">
<COMMENTS Id="RDK:21240551" DesignTimeRemark="Setzte die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
<SET Id="RDK:21240547" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<ACTION_CALL Id="RDK:21245443" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$Punkt ist mit Kreisel verbunden. Verändern Sie die Höhe durch die Änderunge der Kreiselhöhe.]]></EXP>
</PAR>
<PAR Name="MsgStyle" />
<PAR Name="BtnLayout" />
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:21240627">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$isConnected]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21240626" SubType="Then">
<COMMENTS Id="RDK:21240624" DesignTimeRemark="Setzte die Höhe wieder zurück auf die Höhe des Kreisels/Eckrads" DesignTimeTip="Wenn sich eine der Höhen ändert dann prüfe welche sich ändern darf, bzw. ob eine an einem Kreisel angebunden ist." />
<SET Id="RDK:21240625" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$ShapeList["id="+Shape_Prototype.id].GefaelleDefinition.HoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<ACTION_CALL Id="RDK:21245445" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$Punkt ist mit Kreisel verbunden. Verändern Sie die Höhe durch die Änderunge der Kreiselhöhe.]]></EXP>
</PAR>
<PAR Name="MsgStyle" />
<PAR Name="BtnLayout" />
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
</GROUP>
</IFTHENELSE>
<CALLFUNCTION Id="RDK:21224909">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CalcGFTheoretischeLänge_Prototype]]></EXP>
</PAR>
@@ -16124,9 +16244,12 @@ me.x
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Kurve"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<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>
<GROUP Id="RDK:18827050" SubType="Then">
<CALLFUNCTION Id="RDK:18827049">
<PAR Name="FuncName">
@@ -19647,8 +19770,8 @@ ShapeList["id="+Param.Input[1].shapeID].name
</CASEGROUP>
</SELECTCASE>
</FUNCTION>
<FUNCTION Id="RDK:18326311" Name="CalculateSecondHeight" InputTypeName="string">
<COMMENTS Id="RDK:1792975" DesignTimeRemark="Berechne die zweite Höhe der Gefällestrecke/Kurve/Förderer, wenn eine Höhe vorgegeben ist" />
<FUNCTION Id="RDK:18326311" Name="isConnectedToFixHeight" InputTypeName="SSGParameter[]">
<COMMENTS Id="RDK:1792975" DesignTimeRemark="Prüfe ob dieser Anschluss an einem Kreisel hängt" />
<SET Id="RDK:21176872" VarRef="Param.Result">
<EXP><![CDATA[$=$False]]></EXP>
<PAR Name="AdvancedOptions" />
@@ -19665,43 +19788,194 @@ ShapeList["id="+Param.Input[1].shapeID].name
<GROUP Id="RDK:18329391" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18376628" Name="shape_item" Type="Editor2DShapeType">
<SET Id="RDK:21161039" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
<EXP><![CDATA[$=$ShapeList["id="+Param.Input["key=shapeId"].Str]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:21231377" Name="FieldAffected" Type="string">
<SET Id="RDK:21231383" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=FieldAffected"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<IFTHENELSE Id="RDK:21038333">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$Count(shape_item.links)= 1]]></EXP>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Count(shape_item.links)= 0]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21038334" SubType="Then">
<EXIT_PROCESS Id="RDK:21069425" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<SELECTCASE Id="RDK:21071592">
<GROUP Id="RDK:21076531" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21076530" Name="cpId_cshapeId" Type="string" />
<VAR Id="RDK:21239153" Name="cpId" Type="string" />
<VAR Id="RDK:21239155" Name="cshapeId" Type="string" />
<VAR Id="RDK:21239131" Name="splitarr" Type="string[]" />
</GROUP>
<COMMENTS Id="RDK:21070831" DesignTimeRemark="schauen ob ein Kreisel oder Eckrad an einem Ende angebunden ist. " />
<FOREACHLOOP Id="RDK:21239115" ItemVarRef="cpId_cshapeId">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$shape_item.links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<SET Id="RDK:21239123" VarRef="splitarr">
<EXP><![CDATA[$=$splitStr(cpId_cshapeId, ";")]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21239148" VarRef="cpId">
<EXP><![CDATA[$=$splitarr[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21239151" VarRef="cshapeId">
<EXP><![CDATA[$=$splitarr[1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SELECTCASE Id="RDK:21236995">
<EXP><![CDATA[$=$ShapeList["id="+cshapeId].family]]></EXP>
<CASEGROUP Id="RDK:21236953" CaseType="0">
<EXP><![CDATA[$C$Kreisel]]></EXP>
<IFTHENELSE Id="RDK:21236952">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21236949" SubType="Then">
<SET Id="RDK:21237028" VarRef="Param.Result">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21239118" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:21264023">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp2"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21264022" SubType="Then">
<SET Id="RDK:21264020" VarRef="Param.Result">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21264021" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:21236972" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
<IFTHENELSE Id="RDK:21237040">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheOben"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21237039" SubType="Then">
<SET Id="RDK:21237038" VarRef="Param.Result">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21239120" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:21264055">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp2"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$FieldAffected="HoeheUnten"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21264054" SubType="Then">
<SET Id="RDK:21264052" VarRef="Param.Result">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21264053" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:21236994" CaseType="1">
<EXP />
<ACTION_CALL Id="RDK:21236993" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText" />
<PAR Name="MsgStyle" />
<PAR Name="BtnLayout" />
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
<EXIT_PROCESS Id="RDK:21237003" BreakType="4" ExitStatus="0" />
</CASEGROUP>
</SELECTCASE>
</FOREACHLOOP>
</FUNCTION>
<FUNCTION Id="RDK:21231295" Name="CalculateSecondHeight" InputTypeName="string">
<COMMENTS Id="RDK:21231231" DesignTimeRemark="Berechne die zweite Höhe der Gefällestrecke/Kurve/Förderer, wenn eine Höhe vorgegeben ist" />
<SET Id="RDK:21231232" VarRef="Param.Result">
<EXP><![CDATA[$=$False]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:21231235">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21231234" SubType="Then">
<EXIT_PROCESS Id="RDK:21231233" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<COMMENTS Id="RDK:21231236" DesignTimeRemark="Param.Input" />
<GROUP Id="RDK:21231239" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21231238" Name="shape_item" Type="Editor2DShapeType">
<SET Id="RDK:21231237" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<IFTHENELSE Id="RDK:21231242">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$Count(shape_item.links)= 1]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21231241" SubType="Then">
<EXIT_PROCESS Id="RDK:21231240" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<SELECTCASE Id="RDK:21231257">
<EXP><![CDATA[$=$shape_item.family]]></EXP>
<CASEGROUP Id="RDK:21071579" CaseType="0">
<CASEGROUP Id="RDK:21231248" CaseType="0">
<EXP><![CDATA[$C$Kurve]]></EXP>
<IFTHENELSE Id="RDK:21071618">
<IFTHENELSE Id="RDK:21231247">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(shape_item.KurveDefinition.H_0)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(shape_item.KurveDefinition.H_1)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21071616" SubType="Then">
<SET Id="RDK:21071614" VarRef="Param.Result">
<GROUP Id="RDK:21231245" SubType="Then">
<SET Id="RDK:21231243" VarRef="Param.Result">
<EXP><![CDATA[$C$False]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21071615" BreakType="4" ExitStatus="0" />
<EXIT_PROCESS Id="RDK:21231244" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:21071617" SubType="Else" />
<GROUP Id="RDK:21231246" SubType="Else" />
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:21071589" CaseType="0">
<CASEGROUP Id="RDK:21231254" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<IFTHENELSE Id="RDK:18330617">
<IFTHENELSE Id="RDK:21231253">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(shape_item.GefaelleDefinition.HoeheOben)]]></EXP>
</VALUECONDITION>
@@ -19711,32 +19985,33 @@ ShapeList["id="+Param.Input[1].shapeID].name
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Abs(shape_item.GefaelleDefinition.winkel) < 0.0001]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18330618" SubType="Then">
<SET Id="RDK:19474686" VarRef="Param.Result">
<GROUP Id="RDK:21231251" SubType="Then">
<SET Id="RDK:21231249" VarRef="Param.Result">
<EXP><![CDATA[$C$False]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:21069415" BreakType="4" ExitStatus="0" />
<EXIT_PROCESS Id="RDK:21231250" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18330619" SubType="Else" />
<GROUP Id="RDK:21231252" SubType="Else" />
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:21071591" CaseType="1">
<CASEGROUP Id="RDK:21231256" CaseType="1">
<EXP />
<EXIT_PROCESS Id="RDK:21071603" BreakType="4" ExitStatus="0" />
<EXIT_PROCESS Id="RDK:21231255" 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 Id="RDK:21231265" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:21231258" Name="L_th" Type="double" />
<VAR Id="RDK:21231259" Name="H_th" Type="double" />
<VAR Id="RDK:21231260" Name="winkel_th" Type="double" />
<VAR Id="RDK:21248190" Name="hoehe" Type="double" />
<VAR Id="RDK:21231261" Name="RueckgabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21231262" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:21231263" Name="ResultListe" Type="string[]" />
<VAR Id="RDK:21231264" Name="cpId" Type="string" />
</GROUP>
<COMMENTS Id="RDK:21070831" DesignTimeRemark="feststellen, welche der beiden Enden verbunden ist (oben oder unten)" />
<CALLFUNCTION Id="RDK:21069439">
<COMMENTS Id="RDK:21231266" DesignTimeRemark="feststellen, welche der beiden Enden verbunden ist (oben oder unten)" />
<CALLFUNCTION Id="RDK:21231267">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetUsedCps]]></EXP>
</PAR>
@@ -19748,11 +20023,11 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21070834" VarRef="cpId">
<SET Id="RDK:21231268" VarRef="cpId">
<EXP><![CDATA[$=$ResultListe[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:21070823" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<SET_STRUCT Id="RDK:21231269" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
@@ -19764,7 +20039,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21070825" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<SET_STRUCT Id="RDK:21231270" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$cpId]]></EXP>
</PAR>
@@ -19776,7 +20051,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21050070">
<CALLFUNCTION Id="RDK:21231271">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetHeightOfItem]]></EXP>
</PAR>
@@ -19788,70 +20063,70 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:21050074" VarRef="hoehe">
<SET Id="RDK:21231272" VarRef="hoehe">
<EXP><![CDATA[$=$RueckgabeListe["key=Hoehe"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<COMMENTS Id="RDK:21070829" DesignTimeRemark="Zweite Höhe bestimmen." />
<SELECTCASE Id="RDK:21070842">
<COMMENTS Id="RDK:21231273" DesignTimeRemark="Zweite Höhe bestimmen." />
<SELECTCASE Id="RDK:21231293">
<EXP><![CDATA[$=$shape_item.family]]></EXP>
<CASEGROUP Id="RDK:21070844" CaseType="0">
<CASEGROUP Id="RDK:21231280" CaseType="0">
<EXP><![CDATA[$C$Kurve]]></EXP>
<IFTHENELSE Id="RDK:21161033">
<IFTHENELSE Id="RDK:21231278">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21161030" SubType="Then">
<SET Id="RDK:21161029" VarRef="shape_item.KurveDefinition.H_1">
<GROUP Id="RDK:21231275" SubType="Then">
<SET Id="RDK:21231274" VarRef="shape_item.KurveDefinition.H_1">
<EXP><![CDATA[$=$shape_item.KurveDefinition.H_0 - KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21161032" SubType="Else">
<SET Id="RDK:21161031" VarRef="shape_item.KurveDefinition.H_0">
<GROUP Id="RDK:21231277" SubType="Else">
<SET Id="RDK:21231276" VarRef="shape_item.KurveDefinition.H_0">
<EXP><![CDATA[$=$shape_item.KurveDefinition.H_1 + KurveData_defaults.Delta_h]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<SET Id="RDK:21176868" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
<SET Id="RDK:21231279" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
<EXP><![CDATA[$=$shape_item]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:21070846" CaseType="0">
<CASEGROUP Id="RDK:21231292" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<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">
<COMMENTS Id="RDK:21231281" DesignTimeRemark="Wenn die Gefällestrecke nur einseitig angebunden ist, kann man von Länge und Winkel als wahre Größe ausgehen" />
<SET Id="RDK:21231282" 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">
<SET Id="RDK:21231283" VarRef="H_th">
<EXP><![CDATA[$=$Round(H_th,1)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:21157583">
<IFTHENELSE Id="RDK:21231288">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$cpId="cp1"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:21157580" SubType="Then">
<SET Id="RDK:21038345" VarRef="shape_item.GefaelleDefinition.HoeheUnten">
<GROUP Id="RDK:21231285" SubType="Then">
<SET Id="RDK:21231284" VarRef="shape_item.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben - H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:21157582" SubType="Else">
<SET Id="RDK:21038361" VarRef="shape_item.GefaelleDefinition.HoeheOben">
<GROUP Id="RDK:21231287" SubType="Else">
<SET Id="RDK:21231286" VarRef="shape_item.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheUnten + H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
<SET Id="RDK:18330639" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
<SET Id="RDK:21231289" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
<EXP><![CDATA[$=$shape_item]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:21119118">
<CALLFUNCTION Id="RDK:21231290">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Gefaellestrecke]]></EXP>
</PAR>
@@ -19863,7 +20138,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:21168638">
<CALLFUNCTION Id="RDK:21231291">
<PAR Name="FuncName">
<EXP><![CDATA[$C$SetStatus]]></EXP>
</PAR>
@@ -19877,7 +20152,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</CALLFUNCTION>
</CASEGROUP>
</SELECTCASE>
<SET Id="RDK:19474679" VarRef="Param.Result">
<SET Id="RDK:21231294" VarRef="Param.Result">
<EXP><![CDATA[$=$True]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -19956,6 +20231,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.LH_fits]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21211830" VarRef="shape_item.z">
<EXP><![CDATA[$=$shape_item.GefaelleDefinition.HoeheOben/2 + shape_item.GefaelleDefinition.HoeheUnten/2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:21069365" VarRef="ShapeList[&quot;id=&quot;+Param.Input]">
<EXP><![CDATA[$=$shape_item]]></EXP>
<PAR Name="AdvancedOptions" />
@@ -19979,7 +20258,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Abs(Shape_Prototype.GefaelleDefinition.winkel) < 0.0001]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<VALUECONDITION Value="false" Oper="OR">
<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
@@ -20392,10 +20671,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:19937409" VarRef="ShapeList[&quot;id=&quot;+shapeId].z">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].GefaelleDefinition.HoeheOben/2 + ShapeList["id="+shapeId].GefaelleDefinition.HoeheUnten/2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:19595364" CaseType="0">
<EXP><![CDATA[$C$Foerderer]]></EXP>
@@ -25026,7 +25301,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="ParentId" />
<PAR Name="Label">
<EXP><![CDATA[$C$Theoretische projezierte Länge]]></EXP>
<EXP><![CDATA[$C$Theoretische projizierte Länge]]></EXP>
</PAR>
<PAR Name="Field">
<EXP><![CDATA[$C$L_th]]></EXP>
@@ -25157,12 +25432,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Action" />
<PAR Name="Required" />
<PAR Name="Hidden" />
<PAR Name="ROnly">
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="ROnly" />
<PAR Name="Disabled" />
<PAR Name="Pressed" />
<PAR Name="AutoCommit" />
<PAR Name="AutoCommit">
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="ValidateFail" />
<PAR Name="ValidateMsg" />
<PAR Name="DataSource" />
@@ -25210,12 +25485,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Action" />
<PAR Name="Required" />
<PAR Name="Hidden" />
<PAR Name="ROnly">
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="ROnly" />
<PAR Name="Disabled" />
<PAR Name="Pressed" />
<PAR Name="AutoCommit" />
<PAR Name="AutoCommit">
<EXP><![CDATA[$=$True]]></EXP>
</PAR>
<PAR Name="ValidateFail" />
<PAR Name="ValidateMsg" />
<PAR Name="DataSource" />