Feststellen der Connection Point NAmen aus der Linie

This commit is contained in:
2025-11-14 16:52:14 +01:00
parent 77c2c4410d
commit 8a0d890ef5
+85 -22
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="2025-11-13T18:52:10" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-14T13:39:08" 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">
@@ -1430,7 +1430,6 @@
<VAR Id="RDK:23222557" Name="OFBogenData" Type="OFBogenType[]" DesignTimeRemark="Dropdown Liste aller Bögen im Interface" />
<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:26417372" Name="ID" Type="string" DesignTimeRemark="Generated by RD" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -12207,12 +12206,24 @@ SSGConnectionPoint.x_M
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26452356" Name="cp1_name" Type="string">
<SET Id="RDK:26456333" VarRef="Me">
<EXP><![CDATA[$=$Shape_Prototype.shapeFormPointIndex]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26450292" Name="partner2" Type="string">
<SET Id="RDK:26450291" VarRef="Me">
<EXP><![CDATA[$=$Shape_Prototype.shapeToId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26452358" Name="cp2_name" Type="string">
<SET Id="RDK:26456335" VarRef="Me">
<EXP><![CDATA[$=$Shape_Prototype.shapeToId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26443111" Name="Shape1" Type="Editor2DShapeType">
<SET Id="RDK:26443110" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+partner1]]]></EXP>
@@ -12230,11 +12241,31 @@ 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:26456363" Name="linkname" Type="string" />
<VAR Id="RDK:26456365" Name="item_index" Type="integer" />
</GROUP>
<IFTHENELSE Id="RDK:26443143">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Shape2.family = "OFBogen"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "OFBogen"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Shape2.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$Shape2.family = "OFGerade"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "OFGerade"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape2.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
@@ -12243,18 +12274,50 @@ SSGConnectionPoint.x_M
<EXP><![CDATA[$=$FromJSON(Shape1.connectionPoints)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26443125" VarRef="cp1" DesignTimeRemark="Motor und Spannstation haben nur zwei Cps. Tef sind die Verbindung von cp1">
<EXP><![CDATA[$=$ConTypeList1[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<FOREACHLOOP Id="RDK:26456338" ItemVarRef="linkname" IndexVarRef="item_index">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$Shape1.links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:26456366">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$splitStr(linkname, ";") = cp1_name]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26456367" SubType="Then">
<SET Id="RDK:26443125" VarRef="cp1">
<EXP><![CDATA[$=$ConTypeList1[item_index]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:26456389" BreakType="3" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<FOREACHLOOP Id="RDK:26456382" ItemVarRef="linkname" IndexVarRef="item_index">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$Shape2.links]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:26456381">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$splitStr(linkname, ";") = cp2_name]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26456380" SubType="Then">
<SET Id="RDK:26456379" VarRef="cp2">
<EXP><![CDATA[$=$ConTypeList2[item_index]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:26456387" BreakType="3" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET Id="RDK:26443126" VarRef="ConTypeList2">
<EXP><![CDATA[$=$FromJSON(Shape2.connectionPoints)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26443127" VarRef="cp2" DesignTimeRemark="Motor und Spannstation haben nur zwei Cps. Tef sind die Verbindung von cp1">
<EXP><![CDATA[$=$ConTypeList2[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26443128" VarRef="distance">
<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" />
@@ -36998,6 +37061,18 @@ ShapeList["id="+Param.Input[1].shapeID].name
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:26451294" Suppressed="True">
<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>
<CALLFUNCTION Id="RDK:26450280" Suppressed="True" DesignTimeRemark="Funktion agiert nur bei TEF Umlenk und Motorstation">
<PAR Name="FuncName">
<EXP><![CDATA[$C$createTEFConnection]]></EXP>
@@ -40336,18 +40411,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}">