! ln_fillet_test2.mac
!
mod_assemb_prep
!
lng_1=1
lng_2=2
lng_3=3
!
r_1=1.00
r_2=1.25
r_3=1.50
r_4=1.75
r_5=2.0
!
r_6=2.25
r_7=2.50
r_8=2.75
r_9=3.0
r_10=4.25
!
!
!
r=r_10
!
!
a1=50
a2=90
a3=125
!
csys,0
create_cs,0,'CS1',1,0,10,0
!
csys,0
create_cs,0,'CS2',1,5,10,0
!
csys,0
create_cs,0,'CS3',1,10,10,0
!
csys,0
create_cs,0,'CS4',1,0,5,0
!
csys,0
create_cs,0,'CS5',1,5,5,0
!
csys,0
create_cs,0,'CS6',1,10,5,0
!
!
csys,cs1
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_2,a1,0
!
!
csys,cs2
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_2,a2,0
!
!
csys,cs3
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_2,a3,0
!
!
csys,cs4
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_3,a1,0
!
!
csys,cs5
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_3,a2,0
!
!
csys,cs6
!
k,,0,0,0
k,,lng_2,0,0
k,,0,0,0
k,,lng_3,a3,0
!
!
csys,0
!
k1=kp(0,10,0)
k2=kp(5,10,0)
k3=kp(10,10,0)
k4=kp(0,5,0)
k5=kp(5,5,0)
k6=kp(10,5,0)
!
ln_series
lglue,all
init_entity_num
!
view,'f'
!
ln_fillet,k1,r
ln_fillet,k2,r
ln_fillet,k3,r
ln_fillet,k4,r
ln_fillet,k5,r
ln_fillet,k6,r
!
!
csys,0
k,,10,0,0
k,,0,0,0
k,,0,3,0
k,,-3,3,0
!
create_lines,,1
!
ln_fillet,km-2,8
!
csys,0
create_cs,0,'jim',0,-7,3,0,50,0,0
k,,10,0,0
k,,1,0,0
k,,0,3,0
k,,-3,3,0
!
create_lines,,1
!
ln_fillet,km-2,8
!
lplot