二次开发小例子-两个单元之间的焊接
#自己做了一个小例子*createmarkpanel elems 1 "please select two elems to create spotweld!"
#set elemidlist ];
set firstelem
set secondelem
set nodeid1 ;
set nodeid2 ;
*createnodesbetweennodes $nodeid1 $nodeid2 1
#*createmarkpanel nodes 1 "please select one nodes to create spotweld!"
set ids ;
*createmark elements 1 $firstelem $secondelem
*createmark elements 2
*createmark nodes 2$ids
*createweldsbetweenelemsusingnodes 1 2 1 2 10 0 3 "spotweld" 0
页:
[1]