#388 HyperMesh tcl script to calculate total area of all components

*createmark comps 1 "all"
set comp_id_list [hm_getmark comps 1]
set total_surf_area 0
foreach comp_id $comp_id_list {
    *createmark surfs 1 "by comp id" $comp_id
    set surf_id_list [hm_getmark surfs 1]
    foreach surf_id $surf_id_list {
        set surf_area [hm_getareaofsurface surfs $surf_id]
		puts "The area of surface ${surf_id} is ${surf_area}"
        set total_surf_area [expr {$total_surf_area+$surf_area}]
    }
}

puts "The total area is ${total_surf_area}"
tk_messageBox -message "The total area is ${total_surf_area}"

Output:

The area of surface 1 is 64.0
The area of surface 2 is 64.0
The area of surface 3 is 64.0
The area of surface 4 is 64.0
The total area is 256.0

Last Updated on 2023-08-15 by gantovnik