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

erste Funktion createTEFConnection impl.

Browse Source
This commit is contained in:
Michael Stangl
2025-11-03 17:14:08 +01:00
parent bbcc736d69
commit bf8d17731a
1 changed files with 130 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+130 -8
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-10-22T16:42:27" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-03T17:13:37" 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">
@@ -439,7 +439,7 @@
<FIELD Id="RDK:1013871" Name="PageActiveBackground" Type="boolean" />
<FIELD Id="RDK:1013872" Name="PageZoomFit" Type="boolean" />
<FIELD Id="RDK:1013873" Name="PageZoomPage" Type="boolean" />
<FIELD Id="RDK:1013874" Name="ShapeEvents" Type="string" DesignTimeRemark="INSERTED,PASTED,REMOVED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED" />
<FIELD Id="RDK:1013874" Name="ShapeEvents" Type="string" DesignTimeRemark="INSERTED,PASTED,REMOVED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED, LINEINSERTED" />
<FIELD Id="RDK:1013875" Name="ShapeLibrary" Type="string" />
<FIELD Id="RDK:1013876" Name="ShapeLibraryHideList" Type="string" DesignTimeRemark="Comma separated list of categories and shapes to hide | * to hide all" />
<FIELD Id="RDK:1013877" Name="ShapeLibraryOpenList" Type="string" DesignTimeRemark="Comma separated list of categories and shapes to open | * to hide all" />
@@ -1558,7 +1558,7 @@
<EXP><![CDATA[$C$True]]></EXP>
</PAR>
<PAR Name="ShapeEvents">
<EXP><![CDATA[$C$INSERTED,PASTED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED,REMOVED]]></EXP>
<EXP><![CDATA[$C$INSERTED,PASTED,ROTATED,LINKED,STRETCHED,DOUBLECLICK,REGROUPED,POLYINSERTED,LINEINSERTED,REMOVED]]></EXP>
</PAR>
<PAR Name="ShapeLibrary">
<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
@@ -3591,6 +3591,22 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<PAR Name="id">
<EXP><![CDATA[$=$"defcp"+Me_idx]]></EXP>
</PAR>
<PAR Name="x" />
<PAR Name="y" />
<PAR Name="z" />
<PAR Name="xMin" />
<PAR Name="xMax" />
<PAR Name="xStep" />
<PAR Name="yMin" />
<PAR Name="yMax" />
<PAR Name="yStep" />
<PAR Name="zMin" />
<PAR Name="zMax" />
<PAR Name="zStep" />
<PAR Name="direction" />
<PAR Name="linkClass" />
<PAR Name="label" />
<PAR Name="isDimension" />
</EXEC_ON_VALUES>
<SET Id="RDK:187101" VarRef="Property_Prototype.connectionPoints">
<EXP><![CDATA[$=$ToJSON(ConnectionPointList)]]></EXP>
@@ -10907,7 +10923,7 @@ SSGConnectionPoint.x_M
<GROUP Id="RDK:1004851" Name="POLYLINE" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:1007457" Name="ConvertPolyLineToShapes">
<GROUP Id="RDK:1007450" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:1007443" Name="Segment" Type="double" />
<VAR Id="RDK:1007443" Name="Segment" Type="double" DesignTimeRemark="Param" />
<VAR Id="RDK:1007445" Name="Item" Type="string" DesignTimeRemark="Generated by RD" />
<VAR Id="RDK:1007764" Name="TempPolyLineShapeList" Type="Editor2DShapeTypeList" />
<VAR Id="RDK:1007449" Name="PolyLineShapeItem" Type="Editor2DShapeType" />
@@ -10919,10 +10935,19 @@ SSGConnectionPoint.x_M
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition" />
<PAR Name="FoerdererDefinition" />
<PAR Name="VarioFoerdererDefinition" />
<PAR Name="KurveDefinition" />
<PAR Name="TEFBogenDefinition" />
<PAR Name="TEFGeradeDefinition" />
<PAR Name="TEFUmlenkDefinition" />
<PAR Name="KurveFoerdererDefinition" />
<PAR Name="OFGeradeDefinition" />
<PAR Name="OFBogenDefinition" />
<PAR Name="OFWeicheDefinition" />
<PAR Name="WeicheDefinition" />
<PAR Name="BTMTBeladungDefinition" />
<PAR Name="BTMTEntladungDefinition" />
<PAR Name="isDefined" />
<PAR Name="source" />
<PAR Name="sourceLibrary" />
<PAR Name="signature" />
@@ -10970,8 +10995,6 @@ SSGConnectionPoint.x_M
<PAR Name="pinned" />
<PAR Name="selected" />
<PAR Name="includeInBOM" />
<PAR Name="StreckeDefinition" />
<PAR Name="isDefined" />
</EXEC_ON_VALUES>
<FOREACHLOOP Id="RDK:1007456" ItemVarRef="PolyLineShapeItem" ByRefMode="True">
<PAR Name="ArrayValueExp">
@@ -11857,6 +11880,79 @@ SSGConnectionPoint.x_M
</FOREACHLOOP>
</FUNCTION>
</GROUP>
<GROUP Id="RDK:26409349" Name="LINE" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:26409350" Name="createTEFConnection">
<GROUP Id="RDK:26409353" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:26409357" Name="shapeId" Type="string">
<SET Id="RDK:26409356" VarRef="Me">
<EXP><![CDATA[$=$Param.Input]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26411329" Name="partner1" Type="string">
<SET Id="RDK:26411333" VarRef="Me">
<EXP><![CDATA[$=$Shape_Prototype.shapeFromId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26411331" Name="partner2" Type="string">
<SET Id="RDK:26411335" VarRef="Me">
<EXP><![CDATA[$=$Shape_Prototype.shapeToId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26415286" Name="Shape1" Type="Editor2DShapeType">
<SET Id="RDK:26415279" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+partner1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26415288" Name="Shape2" Type="Editor2DShapeType">
<SET Id="RDK:26415291" VarRef="Me">
<EXP><![CDATA[$=$ShapeList["id="+partner2]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:26415304" Name="cp1" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26416316" Name="cp2" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26416314" Name="cp_anfang" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26415306" Name="cp_ende" Type="Editor2DConnectionPointType" />
<VAR Id="RDK:26416298" Name="ConTypeList1" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26416325" Name="ConTypeList2" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26416337" Name="distance" Type="double" />
</GROUP>
<IFTHENELSE Id="RDK:26415267">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape1.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape2.family = "TEFUmlenk"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26415273" SubType="Then">
<SET Id="RDK:26415275" VarRef="ConTypeList1">
<EXP><![CDATA[$=$FromJSON(Shape1.connectionPoints)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26416318" 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>
<SET Id="RDK:26416320" VarRef="ConTypeList2">
<EXP><![CDATA[$=$FromJSON(Shape2.connectionPoints)]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26416322" 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:26416338" 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" />
</SET>
</GROUP>
</IFTHENELSE>
</FUNCTION>
</GROUP>
<FUNCTION Id="RDK:18589792" Name="Check_limits" InputTypeName="Editor2DShapeType" ResultTypeName="boolean">
<GROUP Id="RDK:18589794" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:18589796" Name="shape_item" Type="Editor2DShapeType" />
@@ -34039,7 +34135,7 @@ ShapeList["id="+Param.Input[1].shapeID].name
</SELECTCASE>
</FUNCTION>
</GROUP>
<FUNCTION Id="RDK:288" Name="OnEditor2DInserted" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)">
<FUNCTION Id="RDK:288" Name="OnEditor2DInserted" DesignTimeRemark="Param.Input" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)">
<SET Id="RDK:968951" VarRef="Editor2DOption.PageZoomPage">
<EXP><![CDATA[$C$False]]></EXP>
<PAR Name="AdvancedOptions" />
@@ -36433,6 +36529,26 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="Options" />
</CALLFUNCTION>
</GROUP>
<GROUP Id="RDK:26409341" Name="Group" SubType="Generic" Bookmarked="True">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$Shape_Prototype.source="line"]]></EXP>
</VALUECONDITION>
<CALLFUNCTION Id="RDK:26409338" DesignTimeRemark="Funktion agiert nur bei TEF Umlenk und Motorstation">
<PAR Name="FuncName">
<EXP><![CDATA[$C$createTEFConnection]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<REMOVE_ADD Id="RDK:26409339" ListRef="ShapeList" Expr="Me.source=&quot;line&quot; And Me.family=&quot;&quot;">
<EXP />
</REMOVE_ADD>
</GROUP>
<EXEC_ON_VALUES Id="RDK:1007425" VarRef="ShapeList" Suppressed="True">
<PAR Name="SivasNummer" />
<PAR Name="Rotationsklasse" />
@@ -36498,6 +36614,12 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="KurveDefinition" />
<PAR Name="KurveFoerdererDefinition" />
<PAR Name="isDefined" />
<PAR Name="TEFBogenDefinition" />
<PAR Name="TEFGeradeDefinition" />
<PAR Name="TEFUmlenkDefinition" />
<PAR Name="OFGeradeDefinition" />
<PAR Name="OFBogenDefinition" />
<PAR Name="OFWeicheDefinition" />
</EXEC_ON_VALUES>
</FUNCTION>
<FUNCTION Id="RDK:295" Name="OnEditor2DDoubleClick" InputTypeName="Editor2DEventArgumentsTypeList" Options="(TYPEFUNCTION)">