Split for reusability

Author: jginternational

kratos.gid/scripts/Writing/WriteElements.tcl

@@ -30,17 +30,10 @@ proc write::writeGroupElementConnectivities { gNode kelemtype} {
     if {$nnodes ne ""} {
         if {$etype ne "none"} {
             set elem [::Model::getElement $kelemtype]
-            set top [$elem getTopologyFeature $etype $nnodes]
-            if {$top ne ""} {
-                set kratosElemName [$top getKratosName]
-                set s [mdpaIndent]
-                WriteString "${s}Begin Elements $kratosElemName// GUI group identifier: $group"
-                incr ::write::current_mdpa_indent_level
-                set formats [GetFormatDict $group $mid $nnodes]
-                GiD_WriteCalculationFile connectivities $formats
-                incr ::write::current_mdpa_indent_level -1
-                WriteString "${s}End Elements"
-                WriteString ""
+            set topology [$elem getTopologyFeature $etype $nnodes]
+            if {$topology ne ""} {
+                set kratos_element_type [$topology getKratosName]
+                write::writeGroupElementConnectivitiesFor $kratos_element_type $nnodes $group $mid
             } else {
                 error [= "Element $kelemtype $etype ($nnodes nodes) not available for $ov entities on group $group"]
             }
@@ -51,3 +44,13 @@ proc write::writeGroupElementConnectivities { gNode kelemtype} {
         error [= "You have not assigned a proper entity to group $group"]
     }
 }
+proc write::writeGroupElementConnectivitiesFor { kratos_element_type nnodes group mid } {
+    set s [mdpaIndent]
+    WriteString "${s}Begin Elements $kratos_element_type// GUI group identifier: $group"
+    incr ::write::current_mdpa_indent_level
+    set formats [GetFormatDict $group $mid $nnodes]
+    GiD_WriteCalculationFile connectivities $formats
+    incr ::write::current_mdpa_indent_level -1
+    WriteString "${s}End Elements"
+    WriteString ""
+}