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

Förderer berechnung bei Verbindung von Kreisel und Förderern mit Höhenübergabe

Browse Source
This commit is contained in:
Simon Schmutzler
2024-03-01 14:38:56 +01:00
parent c4188b94ac
commit fb1c073150
1 changed files with 615 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+615 -86
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-02-27T15:52:50" LanguageVersion="2014.1.3.615" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="s.schmutzler [ANGEBOT-NB06]" ModDate="2024-03-01T14:20:06" LanguageVersion="2014.1.3.627" />
<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" SubType="structure" HasArrayType="True">
<TYPE Id="RDK:313478" Name="SSGConnectionPoint" Expanded="True" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:609117" Name="id" Type="string" />
<FIELD Id="RDK:313462" Name="x_M" Type="double" />
@@ -17,7 +17,7 @@
<FIELD Id="RDK:313476" Name="label" Type="string" />
<FIELD Id="RDK:721671" Name="aktiv" Type="boolean" />
</TYPE>
<TYPE Id="RDK:26388" Name="KreiselType" SubType="structure">
<TYPE Id="RDK:26388" Name="KreiselType" Expanded="True" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:95024" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:26389" Name="AbstandMS" Type="double" />
@@ -54,7 +54,6 @@
<TYPE_VALUES />
<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:880709" Name="L1" Type="double" />
<FIELD Id="RDK:18320801" Name="L_th" Type="double" />
<FIELD Id="RDK:302584" Name="winkel" Type="integer" />
<FIELD Id="RDK:302573" Name="HoeheOben" Type="double" />
<FIELD Id="RDK:302583" Name="HoeheUnten" Type="double" />
@@ -724,7 +723,7 @@
<FIELD Id="RDK:903600" Name="Länge in Meter" Type="string" />
<FIELD Id="RDK:1674242" Name="Anzahl der Scanner" Type="integer" />
</TYPE>
<TYPE Id="RDK:18111807" Name="FoerdererMerkmaleType" Expanded="True" SubType="structure">
<TYPE Id="RDK:18111807" Name="FoerdererMerkmaleType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18131140" Name="Höhe ETF oben in Meter" Type="string" />
<FIELD Id="RDK:18131142" Name="Höhe ETF unten in Meter" Type="string" />
@@ -924,10 +923,9 @@
<VAR Id="RDK:1712885" Name="gefaellestrecke" Type="Editor2DShapeType" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:18115984" Name="foerderer" Type="Editor2DShapeType" />
<VAR Id="RDK:1732132" Name="label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:1745170" Name="Var2" Type="variant" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:1759312" Name="cp_label" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:1783790" Name="stringList" Type="string" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:18295767" Name="L_s" Type="string" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:18295767" Name="L_s" Type="string" Suppressed="True" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -5519,7 +5517,6 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
<VAR Id="RDK:18150246" Name="HoeheOben" Type="double" DesignTimeRemark="Höhe am oberen Anschlusspunkt" />
<VAR Id="RDK:18150248" Name="HoeheUnten" Type="double" DesignTimeRemark="Höhe am unteren Anschlusspunkt" />
</GROUP>
<COMMENTS Id="RDK:18146464" DesignTimeRemark="Shape_Prototype.FoerdererDefinition.L1" />
<SET Id="RDK:18150201" VarRef="winkel_s">
<EXP><![CDATA[$=$Shape_Prototype.FoerdererDefinition.winkel_s]]></EXP>
<PAR Name="AdvancedOptions" />
@@ -6139,6 +6136,268 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:18462370" Name="Calculate Foerderer Data" InputTypeName="string" ResultTypeName="SSGParameter[]">
<GROUP Id="RDK:18462326" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18462319" Name="shape_item" Type="Editor2DShapeType" />
<VAR Id="RDK:18462320" Name="x_verhaeltnis" Type="double" DesignTimeRemark="Verhältnis von Förderstrecke und Gesamtlänge" />
<VAR Id="RDK:18462321" Name="winkel_f" Type="double" DesignTimeRemark="Winkel von Förderstrecke" />
<VAR Id="RDK:18462322" Name="winkel_s" Type="double" DesignTimeRemark="Winkel von Gefällestrecke" />
<VAR Id="RDK:18462323" Name="L1" Type="double" DesignTimeRemark="Gesamtlänge" />
<VAR Id="RDK:18462324" Name="HoeheOben" Type="double" DesignTimeRemark="Höhe am oberen Anschlusspunkt" />
<VAR Id="RDK:18462325" Name="HoeheUnten" Type="double" DesignTimeRemark="Höhe am unteren Anschlusspunkt" />
<VAR Id="RDK:18474052" Name="RueckgabeListe" Type="SSGParameter[]" />
</GROUP>
<IFTHENELSE Id="RDK:18462329">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(Param.Input)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18462328" SubType="Then">
<SET Id="RDK:18474082" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18462327" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<SET Id="RDK:18462330" VarRef="shape_item">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18462331" VarRef="winkel_s">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition.winkel_s]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18462332" VarRef="winkel_f">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition.winkel_f]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18462333" VarRef="L1">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition.L1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18462334" VarRef="HoeheOben">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition.HoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18462335" VarRef="HoeheUnten">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition.HoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18462338">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(HoeheOben)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(HoeheUnten)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18462337" SubType="Then">
<SET Id="RDK:18474080" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18462336" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18462369">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$winkel_s < -89]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$winkel_s > 89]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$winkel_f < -89]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$winkel_f > 89]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$L1 < 0]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(HoeheOben)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(HoeheUnten)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18462341" SubType="Then">
<ACTION_CALL Id="RDK:18462339" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$Die Winkel dürfen 90 Grad nicht überschreiten und die Gesamtlänge des Elements muss positiv sein.]]></EXP>
</PAR>
<PAR Name="MsgStyle" />
<PAR Name="BtnLayout" />
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
<SET Id="RDK:18474078" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18462340" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18462368" SubType="Else">
<SET Id="RDK:18462342" VarRef="x_verhaeltnis">
<EXP><![CDATA[$=$(Tan(DegToRad(winkel_f))+Tan(DegToRad(winkel_s)))/((HoeheOben-HoeheUnten)/L1+Tan(DegToRad(winkel_s)))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18462367">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$x_verhaeltnis > 1]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18462356" SubType="Then">
<SET_STRUCT Id="RDK:18474064" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_hf]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Round(Tan(DegToRad(winkel_f))*L1/x_verhaeltnis, 2)]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474066" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_hs]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Round(Tan(DegToRad(winkel_s))*L1*(x_verhaeltnis-1)/x_verhaeltnis, 2)]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474068" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$L_s]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Round(L1-L1/x_verhaeltnis, 2)]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474070" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$L_f]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$Round(L1/x_verhaeltnis, 2)]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474072" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_h]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$HoeheOben-HoeheUnten]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET Id="RDK:18474076" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18481557" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18462366" SubType="Else">
<ACTION_CALL Id="RDK:18462357" Name="RDEngineering_MsgBox" Suppressed="True" DesignTimeRemark="{Text}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="MsgText">
<EXP><![CDATA[$C$Das Verhältnis Förderlänge und Höhendifferenz ist zu groß]]></EXP>
</PAR>
<PAR Name="MsgStyle">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="BtnLayout">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="MsgCaption" />
<PAR Name="BaloonType" />
<PAR Name="BtnPressed">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
</ACTION_CALL>
<SET_STRUCT Id="RDK:18474054" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_hf]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474056" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_hs]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474058" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$L_s]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474062" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$L_f]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18474060" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$Delta_h]]></EXP>
</PAR>
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$HoeheOben-HoeheUnten]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET Id="RDK:18474074" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18481559" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:1653110" Name="CreatePrototype_BTMTBeladung">
<GROUP Id="RDK:1653106" Name="Local Variables" SubType="VarSet" IncludeDate="0" />
<COMMENTS Id="RDK:1653107" DesignTimeRemark="Angle definition in GS2D" DesignTimeNotes=" 0&#xD;&#xA; |&#xD;&#xA;270 &lt;-------&gt;90&#xD;&#xA; |&#xD;&#xA; 180&#xD;&#xA;" />
@@ -11126,7 +11385,7 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18397858">
<IFTHENELSE Id="RDK:18397858" Suppressed="True">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
</VALUECONDITION>
@@ -11149,6 +11408,109 @@ me.x
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
<IFTHENELSE Id="RDK:18466094">
<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[1].shapeID].family="Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18466091" SubType="Then">
<IFTHENELSE Id="RDK:18503552">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18503553" SubType="Then">
<CALLFUNCTION Id="RDK:18474084">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RückgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18479093">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18479094" SubType="Then">
<SET_STRUCT Id="RDK:18479090" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18474195">
<PAR Name="FuncName">
<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$RückgabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</GROUP>
<GROUP Id="RDK:18503554" SubType="Else">
<CALLFUNCTION Id="RDK:18474199">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RückgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18479111">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18479110" SubType="Then">
<SET_STRUCT Id="RDK:18479108" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18479109">
<PAR Name="FuncName">
<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$RückgabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:1576710" CaseType="0">
<EXP><![CDATA[$C$Eckrad]]></EXP>
@@ -11327,7 +11689,7 @@ me.x
<EXP><![CDATA[$=$RückgabeListe["key=ShapeId"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:18399137">
<CALLFUNCTION Id="RDK:18399137" Suppressed="True">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CalcGFTheoretischeLänge]]></EXP>
</PAR>
@@ -11368,6 +11730,99 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18462393">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[0].shapeID].family="Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18462394" SubType="Then">
<CALLFUNCTION Id="RDK:18503573">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RückgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18503589">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18503588" SubType="Then">
<SET_STRUCT Id="RDK:18503586" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18503587">
<PAR Name="FuncName">
<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$RückgabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</GROUP>
<GROUP Id="RDK:18462395" SubType="Else">
<CALLFUNCTION Id="RDK:18503593">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Calculate Foerderer Data]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$RückgabeListe]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<IFTHENELSE Id="RDK:18503603">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(RückgabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18503602" SubType="Then">
<SET_STRUCT Id="RDK:18503600" VarRef="SSGParameter" ClearAll="True" ListRef="RückgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:18503601">
<PAR Name="FuncName">
<EXP><![CDATA[$C$WriteShapeDataFoerderer]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$RückgabeListe]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
</IFTHENELSE>
</GROUP>
</IFTHENELSE>
</CASEGROUP>
<CASEGROUP Id="RDK:1653223" CaseType="0">
<EXP><![CDATA[$C$BTMTBeladung]]></EXP>
@@ -11485,6 +11940,126 @@ me.x
<FUNCTION Id="RDK:302" Name="OnEditor2DRedo" Options="(TYPEFUNCTION)" />
<FUNCTION Id="RDK:529790" Name="OnEditor2DEditConnectionPoints" InputTypeName="Editor2DShapeType" Options="(TYPEFUNCTION)" />
<FUNCTION Id="RDK:529791" Name="OnEditor2DCreateCategory" Options="(TYPEFUNCTION)" />
<FUNCTION Id="RDK:18474112" Name="WriteShapeDataFoerderer" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:18474116" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18474115" Name="ÜbergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:18474151" Name="shape_id" Type="string" />
<VAR Id="RDK:18474166" Name="ind" Type="integer" />
<VAR Id="RDK:18474167" Name="shape_item" Type="Editor2DShapeType" />
</GROUP>
<SET Id="RDK:18474121" VarRef="ÜbergabeListe">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:18474143">
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$IsEmpty(ÜbergabeListe)]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18474142" SubType="Then">
<SET Id="RDK:18474140" VarRef="shape_id">
<EXP><![CDATA[$=$ÜbergabeListe["key=shapeID"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474171" VarRef="shape_item">
<EXP><![CDATA[$=$ShapeList["id=" + shape_id]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474186" VarRef="shape_item.FoerdererDefinition.L_s">
<EXP><![CDATA[$=$Param.Input["key=L_s"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474188" VarRef="shape_item.FoerdererDefinition.L_f">
<EXP><![CDATA[$=$Param.Input["key=L_f"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474190" VarRef="shape_item.FoerdererDefinition.Delta_hs">
<EXP><![CDATA[$=$Param.Input["key=Delta_hs"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474194" VarRef="shape_item.FoerdererDefinition.Delta_hf">
<EXP><![CDATA[$=$Param.Input["key=Delta_hf"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18474192" VarRef="shape_item.FoerdererDefinition.Delta_h">
<EXP><![CDATA[$=$Param.Input["key=Delta_h"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<GROUP Id="RDK:18474160" Name="Write Properties" SubType="Generic">
<SET Id="RDK:18474158" VarRef="ind">
<EXP><![CDATA[$=$IndexOfByFieldValue(ShapeList, "id", shape_item.id)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:18474159" VarRef="Shape_Prototype" ListRef="ShapeList" Options="$=$&quot;(REPLACEIDX=&quot;+i+&quot;)&quot;" DesignTimeNotes="Tan(winkel_f)*L1*x_verhaeltnis">
<PAR Name="SivasNummer" />
<PAR Name="Rotationsklasse" />
<PAR Name="IDCounter" />
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition" />
<PAR Name="FoerdererDefinition">
<EXP><![CDATA[$=$shape_item.FoerdererDefinition]]></EXP>
</PAR>
<PAR Name="WeicheDefinition" />
<PAR Name="BTMTBeladungDefinition" />
<PAR Name="BTMTEntladungDefinition" />
<PAR Name="source">
<EXP><![CDATA[$=$shape_item.source]]></EXP>
</PAR>
<PAR Name="sourceLibrary">
<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
</PAR>
<PAR Name="signature" />
<PAR Name="id">
<EXP><![CDATA[$=$shape_item.id]]></EXP>
</PAR>
<PAR Name="name" />
<PAR Name="family" />
<PAR Name="description" />
<PAR Name="x" />
<PAR Name="y" />
<PAR Name="z" />
<PAR Name="width" />
<PAR Name="height" />
<PAR Name="depth" />
<PAR Name="rotation" />
<PAR Name="text" />
<PAR Name="behaviour" />
<PAR Name="datadump" />
<PAR Name="path" />
<PAR Name="ctrl1x" />
<PAR Name="ctrl1y" />
<PAR Name="ctrl2x" />
<PAR Name="ctrl2y" />
<PAR Name="shapeFromId" />
<PAR Name="shapeFromPointIndex" />
<PAR Name="shapeToId" />
<PAR Name="shapeToPointIndex" />
<PAR Name="dimStack" />
<PAR Name="dimType" />
<PAR Name="dimDriving" />
<PAR Name="dimValue" />
<PAR Name="color" />
<PAR Name="colorOpacity" />
<PAR Name="color3D" />
<PAR Name="colorOpacity3D" />
<PAR Name="lineWidth" />
<PAR Name="lineColor" />
<PAR Name="lineOpacity" />
<PAR Name="lineColor3D" />
<PAR Name="lineOpacity3D" />
<PAR Name="links" />
<PAR Name="group" />
<PAR Name="layer" />
<PAR Name="connectionPoints" />
<PAR Name="modified" />
<PAR Name="pinned" />
<PAR Name="selected" />
<PAR Name="includeInBOM" />
</SET_STRUCT>
</GROUP>
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:1516909" Name="CSVExport" Bookmarked="True">
<GROUP Id="RDK:1516850" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<GROUP Id="RDK:1516849" Name="CSV Export" SubType="VarSet" IncludeDate="0">
@@ -12254,9 +12829,9 @@ ShapeList["id="+Param.Input[1].shapeID].name
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:18326311" Name="CalcGFTheoretischeLänge" InputTypeName="string">
<FUNCTION Id="RDK:18326311" Name="CalcGFTheoretischeLänge" Suppressed="True" InputTypeName="string">
<GROUP Id="RDK:18329391" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18329384" Name="L_th" Type="double" />
<VAR Id="RDK:18329384" Name="L_f" Type="double" />
<VAR Id="RDK:18376628" Name="shape_item" Type="Editor2DShapeType" />
</GROUP>
<IFTHENELSE Id="RDK:18396608">
@@ -12274,54 +12849,60 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SET>
<IFTHENELSE Id="RDK:18330617">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(shape_item.GefaelleDefinition.HoeheOben)]]></EXP>
<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheOben)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(shape_item.GefaelleDefinition.HoeheUnten)]]></EXP>
<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheUnten)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Abs(shape_item.FoerdererDefinition.winkel_f) < 0.0001]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$shape_item.family = "Gefaellestrecke"]]></EXP>
<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18330618" SubType="Then">
<EXIT_PROCESS Id="RDK:18330627" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18330619" SubType="Else">
<SET Id="RDK:18330638" VarRef="L_th">
<EXP><![CDATA[$=$(shape_item.GefaelleDefinition.HoeheOben-shape_item.GefaelleDefinition.HoeheUnten)/Tan(DegToRad(shape_item.GefaelleDefinition.winkel))]]></EXP>
<SET Id="RDK:18330638" VarRef="L_f">
<EXP><![CDATA[$=$(shape_item.FoerdererDefinition.HoeheOben-shape_item.FoerdererDefinition.HoeheUnten)/Tan(DegToRad(shape_item.FoerdererDefinition.winkel_f))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18330639" VarRef="ShapeList[&quot;id=&quot;+Param.Input].GefaelleDefinition.L_th">
<EXP><![CDATA[$=$Round(L_th, 0)]]></EXP>
<SET Id="RDK:18330639" VarRef="ShapeList[&quot;id=&quot;+Param.Input].FoerdererDefinition.L_f">
<EXP><![CDATA[$=$Round(L_f, 0)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:18376615" Name="CalcGFTheoretischeLänge_Prototype" InputTypeName="string">
<FUNCTION Id="RDK:18376615" Name="CalcGFTheoretischeLänge_Prototype" Suppressed="True" InputTypeName="string">
<GROUP Id="RDK:18376607" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18376606" Name="L_th" Type="double" />
<VAR Id="RDK:18376606" Name="L_f" Type="double" />
</GROUP>
<COMMENTS Id="RDK:18376608" DesignTimeRemark="Param.Input" />
<IFTHENELSE Id="RDK:18376614">
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(Shape_Prototype.GefaelleDefinition.HoeheOben)]]></EXP>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheOben)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$IsEmpty(Shape_Prototype.GefaelleDefinition.HoeheUnten)]]></EXP>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(shape_item.FoerdererDefinition.HoeheUnten)]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="false">
<EXP><![CDATA[$=$Shape_Prototype.family = "Gefaellestrecke"]]></EXP>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Abs(shape_item.FoerdererDefinition.winkel_f) < 0.0001]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$shape_item.family = "Foerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18376610" SubType="Then">
<EXIT_PROCESS Id="RDK:18376609" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18376613" SubType="Else">
<SET Id="RDK:18376611" VarRef="L_th">
<EXP><![CDATA[$=$(Shape_Prototype.GefaelleDefinition.HoeheOben-Shape_Prototype.GefaelleDefinition.HoeheUnten)/Tan(DegToRad(Shape_Prototype.GefaelleDefinition.winkel))]]></EXP>
<SET Id="RDK:18376611" VarRef="L_f">
<EXP><![CDATA[$=$(Shape_Prototype.FoerdererDefinition.HoeheOben-Shape_Prototype.FoerdererDefinition.HoeheUnten)/Tan(DegToRad(Shape_Prototype.FoerdererDefinition.winkel_f))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:18376612" VarRef="Shape_Prototype.GefaelleDefinition.L_th">
<EXP><![CDATA[$=$Round(L_th, 0)]]></EXP>
<SET Id="RDK:18376612" VarRef="Shape_Prototype.FoerdererDefinition.L_f">
<EXP><![CDATA[$=$Round(L_f, 0)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
@@ -12524,6 +13105,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:18435232" BreakType="4" ExitStatus="0" />
</GROUP>
<GROUP Id="RDK:18396546" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18396545" Name="RueckgabeListe" Type="SSGParameter[]" />
@@ -14676,59 +15258,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="DataSource" />
<PAR Name="Options" />
</ACTION_CALL>
<ACTION_CALL Id="RDK:18320798" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="RenderList">
<EXP><![CDATA[$=$Render_Gefaelle]]></EXP>
</PAR>
<PAR Name="PanelName">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="CustomPanel" />
<PAR Name="ActionType">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="Id">
<EXP><![CDATA[$C$L_th]]></EXP>
</PAR>
<PAR Name="ParentId" />
<PAR Name="Label">
<EXP><![CDATA[$C$Theoretische Länge durch Winkel und Höhendifferenz]]></EXP>
</PAR>
<PAR Name="Field">
<EXP><![CDATA[$C$L_th]]></EXP>
</PAR>
<PAR Name="Value" />
<PAR Name="Uom" />
<PAR Name="Tooltip" />
<PAR Name="Styles" />
<PAR Name="Classes">
<EXP><![CDATA[$C$col-3]]></EXP>
</PAR>
<PAR Name="Rules" />
<PAR Name="Image" />
<PAR Name="ControlType">
<EXP><![CDATA[$C$textbox]]></EXP>
</PAR>
<PAR Name="ButtonSubType" />
<PAR Name="DropdownSubType" />
<PAR Name="TextboxSubType" />
<PAR Name="Action" />
<PAR Name="Required" />
<PAR Name="Hidden" />
<PAR Name="ROnly">
<EXP><![CDATA[$C$True]]></EXP>
</PAR>
<PAR Name="Disabled" />
<PAR Name="Pressed" />
<PAR Name="AutoCommit" />
<PAR Name="ValidateFail" />
<PAR Name="ValidateMsg" />
<PAR Name="DataSource" />
<PAR Name="Options" />
</ACTION_CALL>
<ACTION_CALL Id="RDK:880711" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
@@ -15713,10 +16242,10 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="ParentId" />
<PAR Name="Label">
<EXP><![CDATA[$C$projizierte Länge der Gefällestrecke]]></EXP>
<EXP><![CDATA[$C$projizierte Länge des Förderers]]></EXP>
</PAR>
<PAR Name="Field">
<EXP><![CDATA[$C$L_s]]></EXP>
<EXP><![CDATA[$C$L_f]]></EXP>
</PAR>
<PAR Name="Value" />
<PAR Name="Uom" />