매크로 – 선택한 2D 요소에 1D 요소 붙여 넣기..

선택한 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]