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

Erste Fassung für die Erzeugung von nachvollziehbaren Bezeichnungen gebaut

Browse Source
This commit is contained in:
Michael Stangl
2025-01-27 17:41:32 +01:00
parent a86ebc1320
commit 804b572384
1 changed files with 182 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MAIN_SSG.rdx
+182 -4
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="y.wang [ANGEBOT-NB02]" ModDate="2025-01-27T15:45:26" LanguageVersion="2014.1.3.698" />
<PROCESSPROPERTY CrUser="pmarani [ENGMARANI17R]" CrDate="2022-05-05T18:05:31" ModUser="m.stangl [ENTW-NB08]" ModDate="2025-01-27T17:41:01" LanguageVersion="2014.1.3.699" />
<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">
@@ -60,7 +60,7 @@
<FIELD Id="RDK:1520421" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:1520424" Name="Durchmesser" Type="double" />
</TYPE>
<TYPE Id="RDK:302581" Name="GefaelleType" Expanded="True" SubType="structure">
<TYPE Id="RDK:302581" Name="GefaelleType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:302571" Name="Beschreibung" Type="string" />
<FIELD Id="RDK:880709" Name="L1" Type="double" />
@@ -160,7 +160,7 @@
<FIELD Id="RDK:16525231" Name="Drehung" Type="integer" DesignTimeNotes="1= im Uhrzeigersinn=rechts&#xD;&#xA;-1= Gegen Uhrzeigersinn=links" />
<FIELD Id="RDK:16577441" Name="Beschreibung" Type="string" />
</TYPE>
<TYPE Id="RDK:79642" Name="SSG_ShapeType" Expanded="True" SubType="structure">
<TYPE Id="RDK:79642" Name="SSG_ShapeType" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:79643" Name="SivasNummer" Type="string" />
<FIELD Id="RDK:1561689" Name="Rotationsklasse" Type="string" />
@@ -196,11 +196,16 @@
<FIELD Id="RDK:1783800" Name="Int" Type="integer" />
<FIELD Id="RDK:1783798" Name="Boo" Type="boolean" />
</TYPE>
<TYPE Id="RDK:22342703" Name="SSGDictInt" SubType="structure" HasArrayType="True">
<TYPE Id="RDK:22342703" Name="SSGDictInt" Expanded="True" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:22342729" Name="Key" Type="string" />
<FIELD Id="RDK:22342707" Name="Int" Type="integer" />
</TYPE>
<TYPE Id="RDK:22938804" Name="SSGDictArr" Expanded="True" SubType="structure" HasArrayType="True">
<TYPE_VALUES />
<FIELD Id="RDK:22938802" Name="Key" Type="string" />
<FIELD Id="RDK:22938803" Name="StrArr" Type="string[]" />
</TYPE>
<TYPE Id="RDK:18530545" Name="SSG_Limits" SubType="structure">
<TYPE_VALUES />
<FIELD Id="RDK:18530548" Name="Kreisel_top" Type="KreiselType" />
@@ -1169,6 +1174,7 @@
<VAR Id="RDK:1519830" Name="SessionZip" Type="string" />
<VAR Id="RDK:20857929" Name="groupStrings" Type="string[]" DesignTimeRemark="Enthält ; separtiert alle Strings, damit die Gruppen beschrieben werden können. a;b;c wäre z.B. eine Gruppe aus den Objekten a, b und c" />
<VAR Id="RDK:22342749" Name="CountKeys" Type="SSGDictInt[]" DesignTimeRemark="Array von Key-Value paaren, um sich die Anzahl von Key in Value zu merken. Dient zum Zählen" />
<VAR Id="RDK:22938910" Name="KeyValues" Type="SSGDictArr[]" DesignTimeRemark="Array von Key-Value paaren, um sich eine liste von Begriffen zu einem Key zu merken" />
</GROUP>
<GROUP Id="RDK:0006" Name="Profiles" SubType="ProfileSet">
<PROFILE Id="RDK:383" Name="ImportBackgroundProfile" TypeName="ImportBackgroundType" />
@@ -12776,6 +12782,140 @@ ShapeTotalLength-SSGConnectionPoint.x_S-(KreiselData.Durchmesser/2)
</SET>
</FUNCTION>
</GROUP>
<GROUP Id="RDK:22938908" Name="DictCollectMethods" SubType="FunctionSet" IncludeDate="0">
<FUNCTION Id="RDK:22938891" Name="AddKeyValue" DesignTimeRemark="Zählt die Anzahl hinter diesem Key um 1 hoch" InputTypeName="string[]" ResultTypeName="boolean">
<GROUP Id="RDK:22938881" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:22938877" Name="kv" Type="SSGDictArr" />
<VAR Id="RDK:22938879" Name="key" Type="string">
<SET Id="RDK:22938878" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:22938931" Name="value" Type="string">
<SET Id="RDK:22938930" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:22938937" Name="oldValues" Type="string[]" />
</GROUP>
<FOREACHLOOP Id="RDK:22938888" DesignTimeRemark="finde den Key wenn er schon einmal gemerkt wurde" ItemVarRef="kv" CountVarRef="i">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$KeyValues]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:22938887" DesignTimeRemark="ein Element mit diesem Key wurde gefunden">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$key = kv.Key]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:22938886" SubType="Then">
<SET Id="RDK:22938940" VarRef="oldValues">
<EXP><![CDATA[$=$kv.StrArr]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<REMOVE_ADD Id="RDK:22938882" ListRef="KeyValues" Value="$=$kv">
<EXP />
</REMOVE_ADD>
<LIST_ADD Id="RDK:22938941" ListRef="oldValues">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$value]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<SET_STRUCT Id="RDK:22938883" VarRef="kv" ClearAll="True">
<PAR Name="Key">
<EXP><![CDATA[$=$kv.Key]]></EXP>
</PAR>
<PAR Name="StrArr">
<EXP><![CDATA[$=$oldValues]]></EXP>
</PAR>
</SET_STRUCT>
<LIST_ADD Id="RDK:22938884" ListRef="KeyValues">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$kv]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
<EXIT_PROCESS Id="RDK:22938885" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET_STRUCT Id="RDK:22938889" VarRef="kv" ClearAll="True">
<PAR Name="Key">
<EXP><![CDATA[$=$key]]></EXP>
</PAR>
<PAR Name="StrArr">
<EXP><![CDATA[$=$NewList(value)]]></EXP>
</PAR>
</SET_STRUCT>
<LIST_ADD Id="RDK:22938890" ListRef="KeyValues">
<PAR Name="VALUE_TO_ADD">
<EXP><![CDATA[$=$kv]]></EXP>
</PAR>
<PAR Name="POS_TO_ADD" />
</LIST_ADD>
</FUNCTION>
<FUNCTION Id="RDK:22938896" Name="AddKeyValueInit" DesignTimeRemark="Initialisiert das Dictionary, leert es wenn gefüllt" InputTypeName="string[]">
<GROUP Id="RDK:22938893" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:22938892" Name="kv" Type="SSGDictArr" />
</GROUP>
<FOREACHLOOP Id="RDK:22938895" ItemVarRef="kv">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$KeyValues]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<REMOVE_ADD Id="RDK:22938894" ListRef="KeyValues" Value="$=$kv">
<EXP><![CDATA[$=$]]></EXP>
</REMOVE_ADD>
</FOREACHLOOP>
</FUNCTION>
<FUNCTION Id="RDK:22938907" Name="GetValues" DesignTimeRemark="gibt die germerkte Anzahl hinter diesem Key heraus" InputTypeName="string[]" ResultTypeName="string[]">
<GROUP Id="RDK:22938900" Name="Local Variables" SubType="VarSet" IncludeDate="0">
<VAR Id="RDK:22938897" Name="kv" Type="SSGDictArr" />
<VAR Id="RDK:22938949" Name="key" Type="string">
<SET Id="RDK:22938948" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[0]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
<VAR Id="RDK:22938953" Name="value" Type="string">
<SET Id="RDK:22938952" VarRef="Me">
<EXP><![CDATA[$=$Param.Input[1]]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</VAR>
</GROUP>
<FOREACHLOOP Id="RDK:22938905" ItemVarRef="kv">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$KeyValues]]></EXP>
</PAR>
<PAR Name="ExitCondExp">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<IFTHENELSE Id="RDK:22938904" DesignTimeRemark="gib die gefundenen Werte zurück">
<VALUECONDITION Value="true">
<EXP><![CDATA[$=$key = kv.Key]]></EXP>
</VALUECONDITION>
<GROUP Id="RDK:22938903" SubType="Then">
<SET Id="RDK:22938901" VarRef="Param.Result">
<EXP><![CDATA[$=$kv.StrArr]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
<EXIT_PROCESS Id="RDK:22938902" BreakType="4" ExitStatus="0" />
</GROUP>
</IFTHENELSE>
</FOREACHLOOP>
<SET Id="RDK:22938906" VarRef="Param.Result">
<EXP><![CDATA[$C$NewList()]]></EXP>
<PAR Name="AdvancedOptions" />
</SET>
</FUNCTION>
</GROUP>
</GROUP>
<FUNCTION Id="RDK:1332780" Name="InheritHeight" DesignTimeNotes="20231005 -1-" InputTypeName="string">
<COMMENTS Id="RDK:20494467" DesignTimeRemark="Bekommt als Parameter ParentId (ID zum Shape, dessen Höhe an alle anderen (direkt und über weitere Kreisel) angebundenen Shapes vererbt werden soll (Param.Input[0])" DesignTimeTip="ParentId bzw. Item0 ist das Objekt, dessen Höhe weitergegeben wird." />
@@ -21659,6 +21799,7 @@ me.x
<PAR Name="Dbl" />
<PAR Name="Int" />
<PAR Name="Boo" />
<PAR Name="StrArr" />
</SET_STRUCT>
<SET_STRUCT Id="RDK:20725711" VarRef="SSGParameter" ClearAll="True" ListRef="UebergabeListe">
<PAR Name="Key">
@@ -22545,6 +22686,7 @@ me.x
<VAR Id="RDK:22353236" Name="isWritten" Type="boolean" />
<VAR Id="RDK:22353222" Name="alreadyWritten" Type="string[]" />
<VAR Id="RDK:22353208" Name="number" Type="integer" />
<VAR Id="RDK:22943902" Name="bezeichnungen" Type="string[]" />
</GROUP>
<CALLFUNCTION Id="RDK:22305568">
<PAR Name="FuncName">
@@ -22570,6 +22712,18 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:22943897">
<PAR Name="FuncName">
<EXP><![CDATA[$C$AddKeyValueInit]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<FOREACHLOOP Id="RDK:22305601" DesignTimeRemark="Zähle wie viele Einheiten davon insgesamt existieren" ItemVarRef="CSV_Item">
<PAR Name="ArrayValueExp">
<EXP><![CDATA[$=$CSV_List]]></EXP>
@@ -22601,6 +22755,18 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:22938925">
<PAR Name="FuncName">
<EXP><![CDATA[$C$AddKeyValue]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$NewList(attributeId, CSV_Item.Bezeichnung)]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
</FOREACHLOOP>
<FOREACHLOOP Id="RDK:22342697" DesignTimeRemark="Gehe durch alle Items und zähle wie viele davon existieren" ItemVarRef="CSV_Item">
<PAR Name="ArrayValueExp">
@@ -22633,6 +22799,18 @@ me.x
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<CALLFUNCTION Id="RDK:22943899">
<PAR Name="FuncName">
<EXP><![CDATA[$C$GetValues]]></EXP>
</PAR>
<PAR Name="InputExp">
<EXP><![CDATA[$=$attributeId]]></EXP>
</PAR>
<PAR Name="ResultRef">
<EXP><![CDATA[$V$bezeichnungen]]></EXP>
</PAR>
<PAR Name="Options" />
</CALLFUNCTION>
<SET Id="RDK:22353237" VarRef="isWritten">
<EXP><![CDATA[$=$False]]></EXP>
<PAR Name="AdvancedOptions" />