!   msh_exp.mac
!
mod_assemb_prep,arg1
view,'f'
!
mat_select,'c410'
et,1,shell63
et,2,solid45
!
csys,0
!
k,,0,0,0
k,,0.5,0,0
k,,0.5,6,0
k,,0,6,0
!
create_area
!
k,,0.5,0,0
k,,1,0,0
k,,1,1.5,0
k,,1.3,1.5,0
k,,1.3,4,0
k,,1.7,4,0
k,,1.7,6,0
k,,0.5,6,0
!
create_lines
!
ln_fillet,km-5,0.100
!
create_area-lines
!
lplot
!
!----------------------------------------------------------------
!
csys,0
!
create_cs,0,,0,0,5,0,0,0,0
!
k,,1.7,-1,0
k,,1.7,1,0
!
create_lines,,1
!
k,,1.7,-1,0
k,,1.7,1,0
!
create_cs,0,,1,0,0,0,0,0,0
!
create_lines,1,1
!
isolate_lines
nummrg,kp
create_area-lines
!
aadd,am-1,am
!
init_entity_num
!
lplot
!
!-------------------------------------------------------------------
!
csys,0
!
create_cs,0,,0,1,1.5,0,0,0,0
!
k,,-0.2,-0.2,0
k,,0.5,-0.2,0
k,,0.5,0.2,0
k,,-0.2,0.2,0
!
create_area
!
aovlap,am-1,am
!
init_entity_num
!
adele,am-2,,,1
!
init_entity_num
!
revolve_aset,km-19,km-16,180,2
nummrg,kp
!
init_entity_num
!
lplot
!
!----------------------------------------------------------------------
!
!
!                         (1)     (2)     (3)      (4)     (5)   (6)    (7)
!       ROTATE_VOLM_MSH, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                        elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                         (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
csys,0
!
create_cs,0,'CSax0',0,0,0,0,0,-90,0
!
asel,s,area,,am-47
rotate_volm_msh,CSax0,0,0,,1,2,0.050,0.050,1,,,1,90
!
asel,s,area,,am-46
rotate_volm_msh,CSax0,0,0,elszohof,1,2,0.150,0.150,1,,,1,90
!
asel,s,area,,am-43,am-39,43-39
msh_standrd,3,0,0,elszohof,1,2,0.150,0.150
!
eplot
!
finalize_model
!
!*********************************************************************
!
!------------------------------- Part 2 -------------------------------
!
mod_assemb_prep
!
/title,Part 2
/units,bin
!
name='part_2'           ! part name
arry_nam='p2'           ! parameter array name
!
ct_name='ctp2cs'        ! cartesian
cyl_name='cylp2cs'      ! cylindrical
sph_name='sphp2cs'      ! spherical
!
et,1,shell63
et,2,solid45
!
mat_select,'inc718'
!
ri=1
h=1
ro=ri+1
!
mod_coord_system,0,0,0,0,0,-90,0
!
!
csys,ctp2cs
!
k,,ri,0,0
k,,ro,0,0
k,,ro,0,h
k,,ri,0,h
!
create_area
a2=am
!
revolve_aset,ctp2cs,180,2
!
asel,s,area,,a2
!
!                         (1)     (2)     (3)      (4)     (5)   (6)    (7)
!       ROTATE_VOLM_MSH, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                        elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                         (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
rotate_volm_msh,ctp1cs,0,,9,1,2,0.25,0.25
!
!finalize_model
!
/PNUM,MAT,1
eplot