HyperMesh二次开发实例第二弹_视频讲解

 1set location [hm_getstring location "厚度位置  材料位置  以下划线区分从零计算  "]
 2*createmarkpanel comps 1 "select"
 3set CompName [hm_getmarkvalue comps 1 name 1]
 4set Tlocation [lindex $location 0]
 5set Mlocation [lindex $location 1]
 6*createmark materials 1 "all"
 7set MATname [hm_getmarkvalue materials 1 name 1]
 8foreach q $CompName {
 9    set compID [hm_getvalue comps name=$q  dataname=id]
10    set t [string range [lindex [split $q "_"] $Tlocation] 1 end]
11    set mat [lindex [split $q "_"] $Mlocation]
12    if { [lsearch $MATname $mat]<=0} {
13         catch {*createentity mats cardimage=MAT1 name=$mat}
14    }
15    set matid [hm_getvalue materials name=$mat  dataname=id]
16    *createentity props cardimage=PSHELL name=$q
17    set maxID [hm_entitymaxsolverid props]
18    *setvalue props id=$maxID STATUS=1 95=$t
19    *setvalue props id=$maxID materialid="$matid" 
20    *setvalue comps id=$compID propertyid="$maxID"
21}