Minor details for safety

Author: jginternational

kratos.gid/apps/CDEM/examples/BulkGroup.tcl

@@ -18,20 +18,28 @@ proc ::CDEM::examples::BulkGroup {args} {
     GidUtils::UpdateWindow GROUPS
     GidUtils::UpdateWindow LAYER
     GiD_Process 'Zoom Frame
+    
+    spdAux::RequestRefresh
 }
 
 proc ::CDEM::examples::CreateAndAssignBondedGroups { } {
+
     # Prepare the variables
     set entity surface
     set condition_id "DEM-Cohesive2D"
     if {$::Model::SpatialDimension eq "3D"} {
         set entity volume
         set condition_id "DEM-Cohesive"
     }
+    set group_base Bonded_domain_groups
     # Locate the condition
     set DEMConditions [spdAux::getRoute "DEMConditions"]
     set cohesive_cond "$DEMConditions/condition\[@n='$condition_id'\]"
 
+    # Clear previous assignations
+    if {[GiD_Groups exists $group_base]} {GiD_Groups delete $group_base}
+    gid_groups_conds::delete "$cohesive_cond/group"
+
     # Get the list of entities (surfaces/volumes)
     set entity_list [GiD_Geometry -v2 list $entity]
     # Foreach entity, create subgroup and assign it to the condition
@@ -40,7 +48,7 @@ proc ::CDEM::examples::CreateAndAssignBondedGroups { } {
         # Get the entity id
         set entity_id [objarray get $entity_list $i] 
         # Create the subgroup
-        set group_id "Bonded_domain_groups//SG$entity_id"
+        set group_id "$group_base//SG$entity_id"
         GiD_Groups create $group_id
         # Assign entity to subgroup
         GiD_EntitiesGroups assign $group_id volumes $entity_id