From adcf668214db29326de24a4b9c6749aa803caa25 Mon Sep 17 00:00:00 2001
From: dre <reif@pbu-cad.de>
Date: Fri, 5 Jul 2024 11:31:57 +0200
Subject: [PATCH] =?UTF-8?q?Gef=C3=A4llestrecke=20als=20Funktion=20mit=20pa?=
 =?UTF-8?q?rameter:=20ZO,Z1,L1=20f=C3=BCr=20Boundingbox?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MAIN_SSG.rdx | 117 +++++++++++++++++++++++++++------------------------
 1 file changed, 63 insertions(+), 54 deletions(-)

diff --git a/MAIN_SSG.rdx b/MAIN_SSG.rdx
index 02d4af5..01da8b9 100644
--- a/MAIN_SSG.rdx
+++ b/MAIN_SSG.rdx
@@ -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="y.wang [ANGEBOT-NB02]" ModDate="2024-07-03T16:02:49" LanguageVersion="2014.1.3.679" />
+	<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="dre [NBDELP3561-04C]" ModDate="2024-07-05T11:29:42" LanguageVersion="2014.1.3.680" />
 	<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">
@@ -3184,8 +3184,42 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 							<VAR Id="RDK:20273878" Name="x" Type="double" />
 							<VAR Id="RDK:20273876" Name="y" Type="double" />
 						</GROUP>
-						<COMMENTS Id="RDK:20163499" DesignTimeRemark="Angle definition in GS2D" DesignTimeNotes="           0&#xD;&#xA;            |&#xD;&#xA;270 &lt;-------&gt;90&#xD;&#xA;            |&#xD;&#xA;          180&#xD;&#xA;" />
-						<GROUP Id="RDK:20163503" Name="DEBUG" SubType="Generic">
+						<GROUP Id="RDK:20545841" Name="Params" SubType="Generic">
+							<IFTHENELSE Id="RDK:20547195">
+								<VALUECONDITION Value="true">
+									<EXP><![CDATA[$=$Not IsEmpty(Param.Input)]]></EXP>
+								</VALUECONDITION>
+								<GROUP Id="RDK:20547196" SubType="Then">
+									<SET Id="RDK:20541108" VarRef="Z0" Bookmarked="True">
+										<EXP><![CDATA[$=$ShapeList["id="+Param.Input].GefaelleDefinition.HoeheOben]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:20541113" VarRef="Z1" Bookmarked="True">
+										<EXP><![CDATA[$=$ShapeList["id="+Param.Input].GefaelleDefinition.HoeheUnten]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:20541115" VarRef="L1" Bookmarked="True">
+										<EXP><![CDATA[$=$ShapeList["id="+Param.Input].GefaelleDefinition.L1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+								<GROUP Id="RDK:20547197" SubType="Else">
+									<SET Id="RDK:20547207" VarRef="Z0">
+										<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheOben]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:20547209" VarRef="Z1">
+										<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.HoeheUnten]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+									<SET Id="RDK:20547211" VarRef="L1">
+										<EXP><![CDATA[$=$Shape_Prototype.GefaelleDefinition.L1]]></EXP>
+										<PAR Name="AdvancedOptions" />
+									</SET>
+								</GROUP>
+							</IFTHENELSE>
+						</GROUP>
+						<GROUP Id="RDK:20163503" Name="DEBUG" SubType="Generic" Suppressed="True">
 							<SET Id="RDK:20163500" VarRef="Z0">
 								<EXP><![CDATA[$C$2000]]></EXP>
 								<PAR Name="AdvancedOptions" />
@@ -3203,53 +3237,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 							<EXP><![CDATA[$=$Shape_Prototype]]></EXP>
 							<PAR Name="AdvancedOptions" />
 						</SET>
-						<SET_STRUCT Id="RDK:20163505" VarRef="Property_Prototype" Suppressed="True">
-							<PAR Name="id" />
-							<PAR Name="name" />
-							<PAR Name="family" />
-							<PAR Name="description" />
-							<PAR Name="text" />
-							<PAR Name="shapeMode">
-								<EXP><![CDATA[$C$0]]></EXP>
-							</PAR>
-							<PAR Name="icon" />
-							<PAR Name="iconBig" />
-							<PAR Name="image" />
-							<PAR Name="srcSVG" />
-							<PAR Name="src3D" />
-							<PAR Name="srcTexture3D" />
-							<PAR Name="width">
-								<EXP><![CDATA[$=$ConvertToPixel(Property_Prototype.width, "mm", 96)]]></EXP>
-							</PAR>
-							<PAR Name="height">
-								<EXP><![CDATA[$=$ConvertToPixel(Property_Prototype.height, "mm", 96)]]></EXP>
-							</PAR>
-							<PAR Name="depth">
-								<EXP><![CDATA[$=$ConvertToPixel(Property_Prototype.depth, "mm", 96)]]></EXP>
-							</PAR>
-							<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:20163506" VarRef="Property_Prototype" DesignTimeNotes="ConvertToPixel(Property_Prototype.width, &quot;mm&quot;, 96)&#xD;&#xA;ConvertToPixel(Property_Prototype.height, &quot;mm&quot;, 96)&#xD;&#xA;ConvertToPixel(Property_Prototype.depth, &quot;mm&quot;, 96)">
 							<PAR Name="id">
 								<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
@@ -3397,10 +3384,6 @@ KreiselData.AbstandMS+(KreiselData.Durchmesser/2)
 								<EXP><![CDATA[$=$Atan(y/x)]]></EXP>
 								<PAR Name="AdvancedOptions" />
 							</SET>
-							<SET Id="RDK:20275900" VarRef="a" Suppressed="True">
-								<EXP><![CDATA[$=$DegToRad(30)]]></EXP>
-								<PAR Name="AdvancedOptions" />
-							</SET>
 							<SET_STRUCT Id="RDK:20163510" VarRef="ChiltItem" ClearAll="True" ListRef="ChildList" DesignTimeNotes="0-&gt;X------------------------------------------------------------&#xD;&#xA; |                                                                  |&#xD;&#xA;Y   M                                                     S    |&#xD;&#xA;|                                                                   |&#xD;&#xA;--------------------------------------------------------------------">
 								<PAR Name="id" />
 								<PAR Name="source">
@@ -14860,6 +14843,32 @@ me.x
 								</CALLFUNCTION>
 							</GROUP>
 						</IFTHENELSE>
+						<GROUP Id="RDK:20540423" Name="Update" SubType="Generic" Bookmarked="True">
+							<CALLFUNCTION Id="RDK:20540427">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$CreatePrototype_Gefaellestrecke]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Param.Input[0].shapeID]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+							<CALLFUNCTION Id="RDK:20540429">
+								<PAR Name="FuncName">
+									<EXP><![CDATA[$C$Create/Update Shape]]></EXP>
+								</PAR>
+								<PAR Name="InputExp">
+									<EXP><![CDATA[$=$Shape_Prototype.id]]></EXP>
+								</PAR>
+								<PAR Name="ResultRef">
+									<EXP><![CDATA[$V$]]></EXP>
+								</PAR>
+								<PAR Name="Options" />
+							</CALLFUNCTION>
+						</GROUP>
 					</CASEGROUP>
 					<CASEGROUP Id="RDK:18732456" CaseType="0">
 						<EXP><![CDATA[$C$Strecke]]></EXP>