선택한 2D 요소에 1D 요소 붙여 넣기..
2D 요소마다 Edge를 생성하고 1D Plot을 weld 혹은 rod, rigid와 같은 요소로 업데이트 합니다.
Duplicate되어 있는 요소를 찾아 지워줍니다.
——- 스크립트 ——-
*createmarkpanel elems 1 “select elems”
set elemlist [hm_getmark elems 1]
set new_comp [hm_getstring “Component Name=” “Please specify the component name for 1D element”]
*collectorcreateonly comps $new_comp “” 8
set configname [ hm_getstring “1D config Name=” “Please specify the 1D element configuration such as weld, rod, rigid”]
foreach elemid $elemlist {
hm_createmark elem 1 $elemid
*findedges elems 1 0
eval *createmark elems 1 “by comp name” ^edges
set e1d [ hm_getmark elems 1 ]
*configedit 1 $configname
set e1e [hm_createmark elems 1 “by collector name” “^edges”]
hm_getmark elems 1
*movemark elems 1 $new_comp
}
set newcomp [hm_createmark elems 1 “by collector name” $new_comp]
*elementtestduplicates elems 1 2 1;
*deletemark elems 2
*deleteedges
——- 사용방법——-
위 내용을 tcl 파일로 저장하여 사용하실 수 있습니다. 아래 동영상을 참조해 주세요.
[youtube http://www.youtube.com/watch?v=EqLK_i3Byo0&w=480&h=390]
