bug in common write functions

Author: jginternational

kratos.gid/scripts/Writing/WriteElements.tcl

@@ -20,8 +20,9 @@ proc write::writeGroupElementConnectivities { gNode kelemtype} {
     set write_properties_in mdpa
     if {[GetConfigurationAttribute properties_location] ne ""} {set write_properties_in [GetConfigurationAttribute properties_location]}
     set group [get_domnode_attribute $gNode n]
-    if { [dict exists $mat_dict $group] && $write_properties_in eq "mdpa"} {
-        set mid [dict get $mat_dict $group MID]
+    set submodelpart [write::GetSubModelPartName Parts $group]
+    if { [dict exists $mat_dict $submodelpart] && $write_properties_in eq "mdpa"} {
+        set mid [dict get $mat_dict $submodelpart MID]
     } else {
         set mid 0
     }

kratos.gid/scripts/Writing/WriteMaterials.tcl

@@ -21,7 +21,7 @@ proc write::processMaterials { {alt_path ""} {last_assigned_id -1}} {
         set nodeApp [spdAux::GetAppIdFromNode $gNode]
         set group_name [write::GetWriteGroupName [$gNode @n]]
         set cond_name [[$gNode parent] @n]
-        set submodelpart_id [write:GetSubModelPartName $cond_name $group_name]
+        set submodelpart_id [write::GetSubModelPartName $cond_name $group_name]
 
         set material_name "material $material_number"
         if { ![dict exists $mat_dict $submodelpart_id] } {
@@ -159,7 +159,7 @@ proc write::getPropertiesListByConditionXPath {cnd_xpath {write_claw_name "True"
         # Condition name
         set cond_id [get_domnode_attribute [$gNode parent] n]
         # We get the submodelpart name and the modelpart.submodelpart
-        set submodelpart_id [write:GetSubModelPartName $cond_id $group]
+        set submodelpart_id [write::GetSubModelPartName $cond_id $group]
         set submodelpart_fullname $submodelpart_id
         if {$model_part_name ne ""} {set submodelpart_fullname $model_part_name.$submodelpart_id}
         set submodelpart_id [string trim $submodelpart_id "."]

kratos.gid/scripts/Writing/WriteSubModelPart.tcl

@@ -161,15 +161,15 @@ proc write::GetSubModelPartFromCondition { base_UN condition_id } {
     return $submodelpart_list
 }
 
-proc write:GetSubModelPartName {condid group} {
+proc write::GetSubModelPartName {condid group} {
     set group_name [write::GetWriteGroupName $group]
     set good_name [write::transformGroupName $group_name]
     return "${condid}_${good_name}"
 }
 
 proc write::AddSubmodelpart {condid group} {
     variable submodelparts
-    set mid [write:GetSubModelPartName $condid $group]
+    set mid [write::GetSubModelPartName $condid $group]
     set group_name [write::GetWriteGroupName $group]
     set good_name [write::transformGroupName $group_name]
     if {[write::getSubModelPartId $condid $group_name] eq 0} {
@@ -180,7 +180,8 @@ proc write::AddSubmodelpart {condid group} {
 
 proc write::getSubModelPartId {cid group} {
     variable submodelparts
-
+    W "$cid $group"
+    WV submodelparts
     set find [list $cid ${group}]
     if {[dict exists $submodelparts $find]} {
         return [dict get $submodelparts [list $cid ${group}]]