mod_assemb_prep
!
et,1,shell63
et,2,solid45
!
csys,1
!
k,,5,20,0
k,,5.5,20,0
k,,5.5,20,2
k,,5,20,2
!
create_area
!
k,,5,20,2
k,,5.5,20,2
k,,6,20,5
k,,5,20,5
!
create_area
!

k,,0,0,0
k,,0,0,1
!
init_entity_num
!
axp1=km-1
axp2=km
!
axp3=axp1
axp4=axp2
!
axp5=axp1
axp6=axp2
!
revolve_aset,axp1,axp2,360,6

*go,:skip
!***************************************************************************
!
!revolve_aset,axp1,axp2,360,6
revolve_aset,axp1,axp2,100,2
!
asel,s,area,,11
!
revolve_aset,axp3,axp4,90,1
!
asel,s,area,,16
!
revolve_aset,axp5,axp6,170,1
!
!                   (1)     (2)     (3)      (4)     (5)   (6)    (7)
! ROTATE_VOLM_MSH2, actcs,  mstyp, mshdens, elmszovr, etpa, etpv, elmnl,
!
!                  elmxl, mtrl,  rl,  ecs,  radrot, varcang, ell
!                   (8)   (9)   (10)  (11)   (12)    (13)    (14)
!
!******************************************************************************
:skip

!
asel,s,area,,1,2
!
ROTATE_VOLM_MSH,0,0,0,,1,2,0.2,0.2,,,,5,360/6,
!
lplot