#created by Rajasekaran Natarajan
#Creates Midsurfaces for each selected component and places the
generated mid-surfaces
# in a new compoent, the new compoent is named as
the Original component name with the prefix of MS
#If required this program can be modified to create the mid-surfaces in
the original component
#by modifying line 23 and 32
proc myMidSurf {mycomp} {
foreach i $mycomp {
set tcomp [hm_getcollectorname
comp $i]
#tk_messageBox -message "i :$i
and name = $tcomp"
*collectorcreate components
"MS_$tcomp" "junk_material" 9
# Create a component ending in
the CompNumber + ms for midsurface
set CompNameMS [hm_getentityvalue
components -1 name 1];