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

TEFGerade soll gestretcht werden

Browse Source
This commit is contained in:
Michael Stangl
2025-11-26 12:54:29 +01:00
parent 0cf9b6d8e5
commit 103bd9bea8
1 changed files with 109 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+109 -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="p.wolok [AZUBI-NB10]" ModDate="2025-11-26T11:50:23" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-26T12:52:38" LanguageVersion="2014.1.3.712" />
<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">
@@ -1463,6 +1463,7 @@
<VAR Id="RDK:23222658" Name="OFWeichenData" Type="OFWeicheType[]" DesignTimeRemark="Dropdown Liste aller Weichen im Interface" />
<VAR Id="RDK:23747696" Name="TEFBogenData" Type="TEFBogenType[]" DesignTimeRemark="Liste aller TEF Bögen" />
<VAR Id="RDK:26514277" Name="KurvenWinkel" Type="string" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:26515397" Name="cpId" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -7840,6 +7841,7 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
</PAR>
<PAR Name="TEFUmlenkDefinition" />
<PAR Name="KurveFoerdererDefinition" />
<PAR Name="KettenFoerdererDefinition" />
<PAR Name="OFGeradeDefinition" />
<PAR Name="OFBogenDefinition" />
<PAR Name="OFWeicheDefinition" />
@@ -10997,38 +10999,53 @@ SSGConnectionPoint.x_M
</SET_STRUCT>
</FUNCTION>
<GROUP Id="RDK:26484590" Name="TEF" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:26448110" Name="stretchTEFGerade" DesignTimeRemark="increases the lenght of the TEFGerade that it fits to the next connectionPoint" InputTypeName="Editor2DEventArgumentsTypeList" ResultTypeName="string">
<FUNCTION Id="RDK:26448110" Name="stretchTEFGerade" DesignTimeRemark="increases the lenght of the TEFGerade that it fits to the next connectionPoint" InputTypeName="SSGParameter[]" ResultTypeName="string">
<GROUP Id="RDK:26448101" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26448089" Name="partner1" Type="string">
<VAR Id="RDK:26515312" Name="shapeId" Type="string">
<SET Id="RDK:26448088" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[0].shapeid]]></EXP>
<EXP><![CDATA[$=$Param.Input["key=id_TEFGerade"].Str]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26448091" Name="partner2" Type="string">
<SET Id="RDK:26448090" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[1].shapeid]]></EXP>
<VAR Id="RDK:26448100" Name="distance" Type="double">
<SET Id="RDK:26515399" VarRef="Me">
<EXP><![CDATA[$=$Param.Input["key=distance"].Dbl]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26448093" Name="Shape1" Type="Editor2DShapeType">
<SET Id="RDK:26448092" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+partner1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26448095" Name="Shape2" Type="Editor2DShapeType">
<SET Id="RDK:26448094" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+partner2]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26448096" Name="cp1" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26448097" Name="cp2" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26448098" Name="ConTypeList1" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26448099" Name="ConTypeList2" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26448100" Name="distance" Type="double" />
</GROUP>
<SET Id="RDK:26515304" VarRef="ShapeList[&quot;id=&quot;+shapeId].TEFGeradeDefinition.L1">
<EXP><![CDATA[$=$ShapeList["id="+shapeId].TEFGeradeDefinition.L1+distance]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26515306" VarRef="Shape_Prototype">
<EXP><![CDATA[$=$ShapeList["id="+shapeId]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<CALLFUNCTION Id="RDK:26515308">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreatePrototype_TEFGerade]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26515310">
<PAR Name="FuncName">
<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$shapeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FUNCTION>
<FUNCTION Id="RDK:26409350" Name="createTEFConnection" DesignTimeRemark="creates a TEF Connection" ResultTypeName="string">
<GROUP Id="RDK:26409353" Name="Local Variables" SubType="VarSet" IncludeDate="0">
@@ -12313,7 +12330,7 @@ SSGConnectionPoint.x_M
</FUNCTION>
</GROUP>
<GROUP Id="RDK:26409349" Name="LINE" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:26443144" Name="getDistance" DesignTimeRemark="returns the length of the line, if connected between (TEFGerade to TEFBogen) or (TEFGerade to TEFUmlenk)" ResultTypeName="string">
<FUNCTION Id="RDK:26443144" Name="getDistance" DesignTimeRemark="returns the length of the line, if connected between (TEFGerade to TEFBogen) or (TEFGerade to TEFUmlenk)" ResultTypeName="SSGParameter[]">
<GROUP Id="RDK:26443123" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26450288" Name="partner1" Type="string">
<SET Id="RDK:26450287" VarRef="Me">
@@ -12356,6 +12373,7 @@ SSGConnectionPoint.x_M
<VAR Id="RDK:26443118" Name="ConTypeList1" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26443119" Name="ConTypeList2" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26443120" Name="distance" Type="double" />
<VAR Id="RDK:26515329" Name="RueckgabeListe" Type="SSGParameter[]" />
</GROUP>
<IFTHENELSE Id="RDK:26443143">
<VALUECONDITION Value="true">
@@ -12427,8 +12445,56 @@ SSGConnectionPoint.x_M
<EXP><![CDATA[$=$IIF(Abs(cp1.x - cp2.x)>=Abs(cp1.y - cp2.y), Abs(cp1.x - cp2.x), Abs(cp1.y - cp2.y))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:26515368">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "TEFGerade"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26515369" SubType="Then">
<SET_STRUCT Id="RDK:26515331" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$id_TEFGerade]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$partner1]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
</GROUP>
<GROUP Id="RDK:26515370" SubType="Else">
<SET_STRUCT Id="RDK:26515394" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$id_TEFGerade]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$partner2]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
</GROUP>
</IFTHENELSE>
<SET_STRUCT Id="RDK:26515327" VarRef="SSGParameter" ClearAll="True" ListRef="RueckgabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$distance]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$distance]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<SET Id="RDK:26443141" VarRef="Param.Result">
<EXP><![CDATA[$=$distance
<EXP><![CDATA[$=$RueckgabeListe
]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
@@ -12718,7 +12784,7 @@ SSGConnectionPoint.x_M
</GROUP>
<GROUP Id="RDK:22744530" SubType="Else">
<SET Id="RDK:26481178" VarRef="H_th">
<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)).0))]]></EXP>
<EXP><![CDATA[$=$Abs(Round(L1*Tan(DegToRad(winkel)),2))]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:26481316" DesignTimeRemark="Es gibt zwei Höhenangaben, aber keine ist fest gegeben: Winkel und Länge zählen">
@@ -13148,11 +13214,11 @@ SSGConnectionPoint.x_M
<CASEGROUP Id="RDK:23472857" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<SET Id="RDK:23472848" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$Abs(Round(HoeheOben,0))]]></EXP>
<EXP><![CDATA[$=$HoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472849" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$Abs(Round(HoeheUnten,0))]]></EXP>
<EXP><![CDATA[$=$HoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472850" VarRef="Shape_Prototype.GefaelleDefinition.winkel">
@@ -13180,7 +13246,7 @@ SSGConnectionPoint.x_M
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472856" VarRef="Shape_Prototype.GefaelleDefinition.H_th">
<EXP><![CDATA[$=$Abs(Round(H_th,0))]]></EXP>
<EXP><![CDATA[$=$H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
@@ -13296,11 +13362,11 @@ SSGConnectionPoint.x_M
<CASEGROUP Id="RDK:23472809" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<SET Id="RDK:23472800" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$Abs(Round(HoeheOben,0))]]></EXP>
<EXP><![CDATA[$=$HoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472801" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$Abs(Round(HoeheUnten,0))]]></EXP>
<EXP><![CDATA[$=$HoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472802" VarRef="Shape_Prototype.GefaelleDefinition.winkel">
@@ -13328,7 +13394,7 @@ SSGConnectionPoint.x_M
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23472808" VarRef="Shape_Prototype.GefaelleDefinition.H_th">
<EXP><![CDATA[$=$Abs(Round(H_th,0))]]></EXP>
<EXP><![CDATA[$=$H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
@@ -13581,11 +13647,11 @@ SSGConnectionPoint.x_M
<CASEGROUP Id="RDK:23183139" CaseType="0">
<EXP><![CDATA[$C$Gefaellestrecke]]></EXP>
<SET Id="RDK:23134391" VarRef="Shape_Prototype.GefaelleDefinition.HoeheOben">
<EXP><![CDATA[$=$Abs(Round(HoeheOben,0))]]></EXP>
<EXP><![CDATA[$=$HoeheOben]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23134392" VarRef="Shape_Prototype.GefaelleDefinition.HoeheUnten">
<EXP><![CDATA[$=$Abs(Round(HoeheUnten,0))]]></EXP>
<EXP><![CDATA[$=$HoeheUnten]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23134393" VarRef="Shape_Prototype.GefaelleDefinition.winkel">
@@ -13613,7 +13679,7 @@ SSGConnectionPoint.x_M
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:23134402" VarRef="Shape_Prototype.GefaelleDefinition.H_th">
<EXP><![CDATA[$=$Abs(Round(H_th,0))]]></EXP>
<EXP><![CDATA[$=$H_th]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
@@ -37528,7 +37594,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$Shape_Prototype.source="line"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26484586" Name="localVars" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26484587" Name="UebergabeListe" Type="SSGParameter[]" />
<VAR Id="RDK:26515316" Name="ReturnValues" Type="SSGParameter[]" />
<VAR Id="RDK:26501204" Name="distance" Type="double" />
</GROUP>
<CALLFUNCTION Id="RDK:26409338" DesignTimeRemark="Funktion agiert nur bei TEF Umlenk und Motorstation mit TEFGerade">
@@ -37539,29 +37605,16 @@ ShapeList["id="+Param.Input[1].shapeID].name
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$distance]]></EXP>
<EXP><![CDATA[$V$ReturnValues]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET_STRUCT Id="RDK:26484589" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
<EXP><![CDATA[$C$distance]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str" />
<PAR Name="Dbl">
<EXP><![CDATA[$=$distance]]></EXP>
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:26451294" Suppressed="True">
<CALLFUNCTION Id="RDK:26451294">
<PAR Name="FuncName">
<EXP><![CDATA[$C$stretchTEFGerade]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<EXP><![CDATA[$=$ReturnValues]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
@@ -40949,18 +41002,6 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26448115">
<PAR Name="FuncName">
<EXP><![CDATA[$C$stretchTEFGerade]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Param.Input]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:26439091" SubType="Else">
<ACTION_CALL Id="RDK:26439090" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -50881,6 +50922,7 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21554466">
<PAR Name="FuncName">
@@ -53434,6 +53476,7 @@ me.x
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<SET Id="RDK:18850809" VarRef="Param.Result">
<EXP><![CDATA[$=$RueckgabeListe]]></EXP>
@@ -66729,4 +66772,4 @@ me.x
</PROFILES_DATA>
<BOM_DATA />
</EXTERNAL_DATA>
</PROCESS>
</PROCESS>