!   subassemble_test.mac
!
clear_start_new
!
!
!------------------------------- Part 1 -------------------------------
!
mod_assemb_prep,1
!
/title,Part 1
/units,bin
!
name='part_1'           ! part name
arry_nam='p1'           ! parameter array name
!
ct_name='ctp1cs'        ! cartesian
cyl_name='cylp1cs'      ! cylindrical
sph_name='sphp1cs'      ! spherical
!
et,1,shell63
et,2,solid45
!
h=15
l=30
t=12
r1=6
r2=5
!
mod_coord_system,0,5,5,5,0,0,0
!
!
csys,ctp1cs
!
k,,0,0
k,,l,0
k,,l,h
k,,0,h
!
create_area
a1=am
!
create_cs,0,'bore1',0,l/4,h/2,0,0,0,0
!
create_circle,r1
!
create_area-lines
!
!
csys,ctp1cs
!
create_cs,0,'bore2',0,3*l/4,h/2,0,0,0,0
!
create_circle,r2
!
create_area-lines
!
!
asel,s,area,,am-1,am
cm,aset2,area
!
init_entity_num
!
asba,a1,aset2,,delete,delete
!
init_entity_num
!
extrude_aset,t
!
lplot
!
finalize_model_data
!
!------------------------------- Part 2 -------------------------------
!
mod_assemb_prep,2
!
/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
!
parm_val,'part_1','r1','r_out'
parm_val,'part_1','t','l'
r_in=0.55*r_out
l1=4
!
mod_coord_system,bore1,0,0,l,0,0,0
!
!
csys,ctp2cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!------------------------------- Part 3 -------------------------------
!
mod_assemb_prep
!
/title,Part 3
/units,bin
!
name='part_3'           ! part name
arry_nam='p3'           ! parameter array name
!
ct_name='ctp3cs'        ! cartesian
cyl_name='cylp3cs'      ! cylindrical
sph_name='sphp3cs'      ! spherical
!
parm_val,'part_1','r1','r_out'
r_in=0.65*r_out
l1=4
!
mod_coord_system,ctp2cs,0,0,-l1,0,0,0
!
!
csys,ctp3cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!------------------------------- Part 4 -------------------------------
!
mod_assemb_prep
!
/title,Part 4
/units,bin
!
name='part_4'           ! part name
arry_nam='p4'           ! parameter array name
!
ct_name='ctp4cs'        ! cartesian
cyl_name='cylp4cs'      ! cylindrical
sph_name='sphp4cs'      ! spherical
!
parm_val,'part_1','r1','r_out'
r_in=0.75*r_out
l1=4
!
mod_coord_system,ctp3cs,0,0,-l1,0,0,0
!
!
csys,ctp4cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!---------------------- Assembe Part 2, 3 & 4 ------------------------
!
csys,ctp4cs
!
init_entity_num
!
aglue,all
!
init_entity_num
!
k,,0,0,0
k,,0,0,1
!
init_entity_num
!
revolve_aset,km-1,km,360,4
!
lplot
!
!-------------------------- Intermediate Part -------------------------
!
mod_assemb_prep,1
!
/title,Intermediate Part
/units,bin
!
name='part_i'           ! part name
arry_nam='p_i'          ! parameter array name
!
ct_name='ctpics'        ! cartesian
cyl_name='cylpics'      ! cylindrical
sph_name='sphpics'      ! spherical
!
parm_val,'part_1','h','h'
parm_val,'part_1','l','l'
parm_val,'part_1','t','t'
l1=10
l2=10
!
mod_coord_system,ctp1cs,l/2,h,0,0,0,0
!
!
csys,ctpics
!
k,,-l1,0,0
k,,l1,0,0
k,,l1,l2,0
k,,-l1,l2,0
!
create_area
!
extrude_aset,t
!
lplot
!
finalize_model_data
!
!------------------------------- Part 5 -------------------------------
!
mod_assemb_prep,2
!
/title,Part 5
/units,bin
!
name='part_5'           ! part name
arry_nam='p5'           ! parameter array name
!
ct_name='ctp5cs'        ! cartesian
cyl_name='cylp5cs'      ! cylindrical
sph_name='sphp5cs'      ! spherical
!
parm_val,'part_1','r2','r_out'
parm_val,'part_1','t','l'
r_in=0.55*r_out
l1=3
!
mod_coord_system,bore2,0,0,l,0,0,0
!
!
csys,ctp5cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!------------------------------- Part 6 -------------------------------
!
mod_assemb_prep
!
/title,Part 6
/units,bin
!
name='part_6'           ! part name
arry_nam='p6'           ! parameter array name
!
ct_name='ctp6cs'        ! cartesian
cyl_name='cylp6cs'      ! cylindrical
sph_name='sphp6cs'      ! spherical
!
parm_val,'part_1','r2','r_out'
r_in=0.45*r_out
l1=5
parm_val,'part_5','l1','l2'
!
mod_coord_system,ctp5cs,0,0,-l2,0,0,0
!
!
csys,ctp6cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!------------------------------- Part 7 -------------------------------
!
mod_assemb_prep
!
/title,Part 7
/units,bin
!
name='part_7'           ! part name
arry_nam='p7'           ! parameter array name
!
ct_name='ctp7cs'        ! cartesian
cyl_name='cylp7cs'      ! cylindrical
sph_name='sphp7cs'      ! spherical
!
parm_val,'part_1','r2','r_out'
r_in=0.75*r_out
l1=4
parm_val,'part_6','l1','l2'
!
mod_coord_system,ctp6cs,0,0,-l2,0,0,0
!
!
csys,ctp7cs
!
k,,0,r_in,0
k,,0,r_in,-l1
k,,0,r_out,-l1
k,,0,r_out,0
!
create_area
!
lplot
!
finalize_model_data
!
!---------------------- Assembe Part 5, 6 & 7 ------------------------
!
csys,ctp7cs
!
init_entity_num
!
aglue,all
!
init_entity_num
!
k,,0,0,0
k,,0,0,1
!
init_entity_num
!
revolve_aset,km-1,km,360,4
!
lplot