hm_entitylist的案例
TCL自學(xué)筆記-15 hm_entitylist命令
Example
To get the list of node IDs:
hm_entitylist nodes id
To get the list of component names:
hm_entitylist comps name
淺談有限元分析中的RBE2與RBE3單元
編輯
由梁單元組成的蜘蛛網(wǎng)狀單元
在大多數(shù)前處理器中，用這種方式去連接梁單元需要手動去連接，筆者這里給出一個在Hypermesh里面可以實現(xiàn)梁單元組成蜘蛛網(wǎng)狀單元的二次開發(fā)程序：
proc create_prop_beamsec {} {
set beam_link_comp_name "beam_link_comp"
set beam_link_prop_name "beam_link_prop"
set beam_link_mat_name "beam_link_mat"
set comps_list [hm_entitylist comps name]
if {[expr [lsearch $comps_list $beam_link_comp_name] == -1]} {
*createentity comps name=$beam_link_comp_name
} {
*currentcollector components $beam_link_comp_name
}
set props_list [hm_entitylist props name]
if {[expr [lsearch $props_list $beam_link_prop_name] == -1]} {
*createentity props cardimage=PBEAM includeid=0 name=$beam_link_prop_name
}
set beamsects_list [hm_entitylist beamsects name]
if {[expr [lsearch $beamsects_list $beam_link_prop_name] == -1
展開 HyperMesh二次開發(fā)實例
set lst_comp [hm_entitylist comps name]
set tmpl "[hm_info -appinfo SPECIFIEDPATH TEMPLATES_DIR]/feoutput/nastran/general"
set savedir "D:/work/Temp/Hm"
*displaynone
foreach comp_name $lst_comp {
*displaycollectorwithfilter components "on" $comp_name 1 0
*retainmarkselections 0
*entityhighlighting 1
*createstringarray 0
*feoutputwithdata $tmpl $savedir/$comp_name.bdf 0 0 0 1 0
*displaycollectorwithfilter components "off" $comp_name 1 0
}
*displayall
腳本實例二
Hypermesh本身的提取中面功能較為簡單，通過選擇所有提取中面的部件，按照選項提取中面后命名為一個新的分組"Middle Surface"。在部件分組較多的情況下，對部件重新組織就比較麻煩。
以下代碼實現(xiàn)的功能是遍歷所有部件，如果部件有實體，則提取中面，并按照用戶輸入的實體厚度重新命名為新的分組，否則不做操作并給出提醒信息。所輸入的實體厚度僅作為新部件的命名使用。
展開 