Erzeugungsfunktion der TEFGerade mit denselben Werten versehen die auch ein Objekt aus dem Menübaum mitbekommt

This commit is contained in:
2025-11-06 17:13:55 +01:00
parent 0e8034b352
commit 8b827ccb7c
+319 -24
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-03T17:13:37" LanguageVersion="2014.1.3.712" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-11-06T17:05: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">
@@ -1421,6 +1421,7 @@
<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" />
@@ -5281,12 +5282,15 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<EXP><![CDATA[$=$Shape_Prototype.EckradDefinition]]></EXP>
</PAR>
<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" />
@@ -5352,10 +5356,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
<PAR Name="pinned" />
<PAR Name="selected" />
<PAR Name="includeInBOM" />
<PAR Name="TEFBogenDefinition" />
<PAR Name="TEFGeradeDefinition" />
<PAR Name="TEFUmlenkDefinition" />
<PAR Name="OFWeicheDefinition" />
</SET_STRUCT>
</GROUP>
</CASEGROUP>
@@ -11881,7 +11881,7 @@ SSGConnectionPoint.x_M
</FUNCTION>
</GROUP>
<GROUP Id="RDK:26409349" Name="LINE" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:26409350" Name="createTEFConnection">
<FUNCTION Id="RDK:26409350" Name="createTEFConnection" ResultTypeName="string">
<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">
@@ -11920,6 +11920,8 @@ SSGConnectionPoint.x_M
<VAR Id="RDK:26416298" Name="ConTypeList1" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26416325" Name="ConTypeList2" Type="Editor2DConnectionPointTypeList" />
<VAR Id="RDK:26416337" Name="distance" Type="double" />
<VAR Id="RDK:26416351" Name="LinkListe" Type="SSGParameter[]" />
<VAR Id="RDK:26417385" Name="Offsets" Type="SSGParameter[]" />
</GROUP>
<IFTHENELSE Id="RDK:26415267">
<VALUECONDITION Value="true">
@@ -11949,6 +11951,268 @@ 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>
<SET Id="RDK:26417397" VarRef="Property_Prototype">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<ACTION_CALL Id="RDK:26417399" Name="RDEngineering_E2DManageShape" Suppressed="True" DesignTimeRemark="Eigenschaften des Shape_Prototype nach Property_Prototype kopieren">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="e2dMode">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="libraryID">
<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
</PAR>
<PAR Name="operType">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="shpId">
<EXP><![CDATA[$=$Property_Prototype.id]]></EXP>
</PAR>
<PAR Name="catId" />
<PAR Name="shpItemId" />
<PAR Name="shpItem">
<EXP><![CDATA[$=$Property_Prototype]]></EXP>
</PAR>
<PAR Name="shpItemList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="shpList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="outShapeIdList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</ACTION_CALL>
<SET Id="RDK:26422344" VarRef="Property_Prototype.eventClass">
<EXP><![CDATA[$C$OnDoubleclick,OnInserted,OnLinked,OnPasted]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET_STRUCT Id="RDK:26417403" VarRef="Property_Prototype" DesignTimeRemark="Id Nullen, damit in Folge eine neue erzeugt wird.">
<PAR Name="id">
<EXP><![CDATA[$C$NOTHING]]></EXP>
</PAR>
<PAR Name="name" />
<PAR Name="family" />
<PAR Name="description" />
<PAR Name="text" />
<PAR Name="shapeMode" />
<PAR Name="icon" />
<PAR Name="iconBig" />
<PAR Name="image" />
<PAR Name="srcSVG" />
<PAR Name="src3D" />
<PAR Name="srcTexture3D" />
<PAR Name="width" />
<PAR Name="height" />
<PAR Name="depth" />
<PAR Name="behaviour" />
<PAR Name="help" />
<PAR Name="eventClass" />
<PAR Name="linkClass" />
<PAR Name="collisionClass" />
<PAR Name="containerClass" />
<PAR Name="snapClass" />
<PAR Name="color" />
<PAR Name="colorOpacity" />
<PAR Name="lineColor" />
<PAR Name="lineColorOpacity" />
<PAR Name="color3D" />
<PAR Name="colorOpacity3D" />
<PAR Name="lineColor3D" />
<PAR Name="lineColorOpacity3D" />
<PAR Name="custom" />
<PAR Name="connectionPoints" />
<PAR Name="group2dShapes" />
<PAR Name="group2dConnectors" />
<PAR Name="group3d" />
<PAR Name="eventHandler" />
<PAR Name="eventHandlers" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:26417401" VarRef="Shape_Prototype">
<PAR Name="SivasNummer" />
<PAR Name="Rotationsklasse" />
<PAR Name="IDCounter" />
<PAR Name="KreiselDefinition" />
<PAR Name="EckradDefinition" />
<PAR Name="GefaelleDefinition" />
<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">
<EXP><![CDATA[$C$True]]></EXP>
</PAR>
<PAR Name="source">
<EXP><![CDATA[$C$s_TEFGerade]]></EXP>
</PAR>
<PAR Name="sourceLibrary">
<EXP><![CDATA[$C$SSG]]></EXP>
</PAR>
<PAR Name="signature" />
<PAR Name="id">
<EXP><![CDATA[$C$NOTHING]]></EXP>
</PAR>
<PAR Name="name" />
<PAR Name="family">
<EXP><![CDATA[$C$TEFGerade]]></EXP>
</PAR>
<PAR Name="description" />
<PAR Name="x">
<EXP><![CDATA[$=$(cp1.x+cp2.x)/2]]></EXP>
</PAR>
<PAR Name="y">
<EXP><![CDATA[$=$(cp1.y+cp2.y)/2]]></EXP>
</PAR>
<PAR Name="z">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="width">
<EXP><![CDATA[$C$42]]></EXP>
</PAR>
<PAR Name="height">
<EXP><![CDATA[$C$1000]]></EXP>
</PAR>
<PAR Name="depth">
<EXP><![CDATA[$C$110]]></EXP>
</PAR>
<PAR Name="rotation" />
<PAR Name="text" />
<PAR Name="behaviour">
<EXP><![CDATA[$C$(NOSTRETCH)(NOSTRETCHONVIEW)(NOROTATE)(NOROTATEONVIEW)(CONTAINER)(HIDEDIMENSIONS)(HIDEROTATION)(HIDEPIN)(ALWAYSFRONT)(ORIGIN=CENTER)]]></EXP>
</PAR>
<PAR Name="datadump" />
<PAR Name="path" />
<PAR Name="ctrl1x">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="ctrl1y">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="ctrl2x">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<PAR Name="ctrl2y">
<EXP><![CDATA[$C$-1]]></EXP>
</PAR>
<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">
<EXP><![CDATA[$C$#f33256]]></EXP>
</PAR>
<PAR Name="lineOpacity">
<EXP><![CDATA[$C$1]]></EXP>
</PAR>
<PAR Name="lineColor3D">
<EXP><![CDATA[$C$1]]></EXP>
</PAR>
<PAR Name="lineOpacity3D" />
<PAR Name="links" />
<PAR Name="group" />
<PAR Name="layer">
<EXP><![CDATA[$C$Strecke]]></EXP>
</PAR>
<PAR Name="connectionPoints" />
<PAR Name="modified">
<EXP><![CDATA[$C$True]]></EXP>
</PAR>
<PAR Name="pinned" />
<PAR Name="selected" />
<PAR Name="includeInBOM" />
</SET_STRUCT>
<ACTION_CALL Id="RDK:26417405" Name="RDEngineering_E2DManageShape">
<PAR Name="RDLibraryName">
<EXP><![CDATA[$C$RDEngineering_UI]]></EXP>
</PAR>
<PAR Name="e2dMode">
<EXP><![CDATA[$C$0]]></EXP>
</PAR>
<PAR Name="libraryID">
<EXP><![CDATA[$=$GS2DLibraryName]]></EXP>
</PAR>
<PAR Name="operType">
<EXP><![CDATA[$C$2]]></EXP>
</PAR>
<PAR Name="shpId">
<EXP><![CDATA[$C$c_Session]]></EXP>
</PAR>
<PAR Name="catId">
<EXP><![CDATA[$C$c_Session]]></EXP>
</PAR>
<PAR Name="shpItemId" />
<PAR Name="shpItem">
<EXP><![CDATA[$=$Property_Prototype]]></EXP>
</PAR>
<PAR Name="shpItemList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="shpList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="outShapeIdList">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</ACTION_CALL>
<CALLFUNCTION Id="RDK:26417407">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetNewShapeIDCounter]]></EXP>
</PAR>
<PAR Name="InputExp" />
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:26417409" VarRef="Shape_Prototype.name">
<EXP><![CDATA[$=$Shape_Prototype.family+" :"+Shape_Prototype.IDCounter]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26417411" VarRef="Shape_Prototype.id">
<EXP><![CDATA[$=$"Created_"+CreateGUID()]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26417413" VarRef="Shape_Prototype.links">
<EXP><![CDATA[$C$NOTHING]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26417395" VarRef="Shape_Prototype.TEFGeradeDefinition.L1">
<EXP><![CDATA[$=$distance]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<LIST_ADD Id="RDK:26417418" ListRef="ShapeList">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<SET Id="RDK:26418413" VarRef="Param.Result">
<EXP><![CDATA[$=$Shape_Prototype.id
]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</FUNCTION>
@@ -28921,7 +29185,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="ValidateMsg" />
<PAR Name="DataSource" />
<PAR Name="Options" />
<PAR Name="WebviewSubType" />
</ACTION_CALL>
<ACTION_CALL Id="RDK:24757631" Name="RDEngineering_ModernUIControl" DesignTimeRemark="{ActionType} {PanelName} &lt;-- {UIType}:{Field} {Id} {ParentID}" DesignTimeTip="cp1 top point" DesignTimeNotes="20231005 -1-&#xD;&#xA;Read only changed&#xD;&#xA;&#xD;&#xA;20230928 -1-&#xD;&#xA;Label changed&#xD;&#xA;&#xD;&#xA;20241001 -1-&#xD;&#xA;set H0 and H1 to Read only &#xD;&#xA;">
<PAR Name="RDLibraryName">
@@ -28981,7 +29244,6 @@ ShapeList["id="+Param.Input[1].shapeID].name
<PAR Name="ValidateMsg" />
<PAR Name="DataSource" />
<PAR Name="Options" />
<PAR Name="WebviewSubType" />
</ACTION_CALL>
<IFTHENELSE Id="RDK:25379282">
<VALUECONDITION Value="true">
@@ -39180,11 +39442,8 @@ me.x
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="Gefaellestrecke"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true" Oper="OR">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
</VALUECONDITION>
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="VarioFoerderer"]]></EXP>
<EXP><![CDATA[$=$ShapeList["id="+Param.Input[1].shapeID].family="KurveFoerderer"]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:18827050" SubType="Then">
<CALLFUNCTION Id="RDK:18827049">
@@ -41596,6 +41855,7 @@ me.x
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:25953848" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
<PAR Name="Key">
@@ -41608,6 +41868,7 @@ me.x
</PAR>
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<SELECTCASE Id="RDK:25953863">
<EXP><![CDATA[$=$Shape_Prototype.family]]></EXP>
@@ -41680,6 +41941,29 @@ me.x
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:26417381" CaseType="0">
<EXP><![CDATA[$C$TEFGerade]]></EXP>
<CALLFUNCTION Id="RDK:26417378">
<PAR Name="FuncName">
<EXP><![CDATA[$C$CreateCopyShapePrototype]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$Offsets]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$newId]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:26417379" VarRef="ShapeList[&quot;id=&quot;+newId].TEFGeradeDefinition.Beschreibung" Bookmarked="True">
<EXP><![CDATA[$=$Shape_Prototype.name]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<SET Id="RDK:26417380" VarRef="Param.Result">
<EXP><![CDATA[$=$newId]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</CASEGROUP>
<CASEGROUP Id="RDK:25953862" CaseType="1">
<EXP />
<ACTION_CALL Id="RDK:25953861" Name="RDEngineering_MsgBox" DesignTimeRemark="{Text}">
@@ -41867,6 +42151,7 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:25982989" VarRef="SSGParameter" ClearAll="True" ListRef="Offsets">
<PAR Name="Key">
@@ -47175,10 +47460,23 @@ me.x
</FUNCTION>
</GROUP>
<FUNCTION Id="RDK:1630766" Name="GetNewShapeIDCounter" InputTypeName="string">
<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter">
<EXP><![CDATA[$=$FieldValue(LastOf(SortListOfStructs(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family), "IDCounter", false)), "IDCounter")+1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<IFTHENELSE Id="RDK:26418401">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$IsEmpty(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family))]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:26418402" SubType="Then">
<SET Id="RDK:26418409" VarRef="Shape_Prototype.IDCounter">
<EXP><![CDATA[$=$1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:26418403" SubType="Else">
<SET Id="RDK:1630768" VarRef="Shape_Prototype.IDCounter">
<EXP><![CDATA[$=$FieldValue(LastOf(SortListOfStructs(FilterByFieldValue(ShapeList, "family", Shape_Prototype.family), "IDCounter", false)), "IDCounter")+1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
</IFTHENELSE>
</FUNCTION>
<FUNCTION Id="RDK:1772330" Name="SetGefaellestreckeHeight" Suppressed="True" InputTypeName="SSGParameter[]">
<GROUP Id="RDK:1773485" Name="LocalVariables" SubType="VarSet" IncludeDate="0">
@@ -49489,7 +49787,6 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:21554464" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -49502,7 +49799,6 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr2D" />
</SET_STRUCT>
<CALLFUNCTION Id="RDK:21554466">
<PAR Name="FuncName">
@@ -51709,14 +52005,13 @@ me.x
<PAR Name="Key">
<EXP><![CDATA[$C$shapeID]]></EXP>
</PAR>
<PAR Name="StrArr" />
<PAR Name="StrArr2D" />
<PAR Name="Str">
<EXP><![CDATA[$=$Param.Input[1].shapeID]]></EXP>
</PAR>
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:18827138" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -51941,13 +52236,13 @@ me.x
</VALUECONDITION>
<GROUP Id="RDK:22071998" SubType="Then">
<SET Id="RDK:22071997" VarRef="hoehe">
<EXP><![CDATA[$=$h2]]></EXP>
<EXP><![CDATA[$=$h1]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
<GROUP Id="RDK:22072000" SubType="Else">
<SET Id="RDK:22071999" VarRef="hoehe">
<EXP><![CDATA[$=$h1]]></EXP>
<EXP><![CDATA[$=$h2]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</GROUP>
@@ -64812,4 +65107,4 @@ me.x
</PROFILES_DATA>
<BOM_DATA />
</EXTERNAL_DATA>
</PROCESS>
</PROCESS>