Merge pull request #944 from KratosMultiphysics/improve-write-geometries

Get format dict for geometries no mid
KratosMultiphysics · Jul 6, 2023 · cfd76d0 · cfd76d0
2 parents 6e4d23b + f1989cf
commit cfd76d0
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 4 deletions.
diff --git a/kratos.gid/scripts/Writing/WriteGeometries.tcl b/kratos.gid/scripts/Writing/WriteGeometries.tcl
@@ -29,7 +29,7 @@ proc write::printGeometryConnectivities {group etype nnodes} {
     # increase indent (allows folding in text editor)
     incr ::write::current_mdpa_indent_level
     # Prepare the formats dict
-    set formats [GetFormatDict $group 0 $nnodes]
+    set formats [GetFormatDict $group "" $nnodes]
     # Write the connectivities
     GiD_WriteCalculationFile connectivities $formats
     # decrease indent

diff --git a/kratos.gid/scripts/Writing/Writing.tcl b/kratos.gid/scripts/Writing/Writing.tcl
@@ -288,12 +288,18 @@ proc write::transformGroupName {groupid} {
 
 # Warning! Indentation must be set before calling here!
 proc write::GetFormatDict { groupid mid num} {
+    set s [mdpaIndent]
+
     variable formats_dict
     set id_f [dict get $formats_dict ID]
-    set mid_f [dict get $formats_dict MAT_ID]
 
-    set s [mdpaIndent]
-    set f "${s}$id_f [format $mid_f $mid] [string repeat "$id_f " $num]\n"
+    set mid_str ""
+    if {$mid ne ""} {
+        set mid_f [dict get $formats_dict MAT_ID]
+        set mid_str [format $mid_f $mid]
+    }
+
+    set f "${s}$id_f $mid_str [string repeat "$id_f " $num]\n"
     return [dict create $groupid $f]
 }