Week - 10 - Creating the midline and spot weld

AIM: To create the macro to generate the midline and spot weld.

PROCEDURE:

CODE: PART A:

*createlistbypathpanel lines 1 " Select the Source line"
set source [hm_getlist lines 1]
*createlistbypathpanel lines 2 "Select the target line"
set source[hm_getlist lines 2]
foreach i $source j $target {
*linescreatemidline 1 1 2 2
*linecombine $i $j 1
}

CODE: PART B:

*clearmarkall 1
*createlistbypathpanel nodes 1 "Select the source nodes by path"
set source [hm_getlist nodes 1]
*createlistbypathpanel nodes 2 "Select the target nodes by path"
set target [hm_getlist nodes 2]
foreach i $source j $target {
*elementtype 5 1
*rigid $i $j 123456
}

RESULTS:

1. Midline

2.Weld