mod_assemb_prep
!
csys,0
!
k,,5,0
k,,7,0
k,,7,3
k,,5,3
!
create_area
!

!*go,:skip

k,,7,0
k,,9,0
k,,9,3
k,,7,3
!
create_area
!
k,,9,0
k,,12,0
k,,12,3
k,,9,3
!
create_area
!

!:skip

cm,aset1,area
!
k,,0,0
k,,0,5
!
init_entity_num
!
ax1=km
ax2=km-1
!
asel,s,area,,aset1
revolve_aset,ax1,ax2,90,1
!
!asel,s,area,,aset1
!revolve_aset,ax1,ax2,-40,1
!
nummrg,kp
!
init_entity_num
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/VIEW, 1 ,1,1,1
/ANG, 1
!
lplot
!
et,1,shell93
et,2,solid95
!
!                  (1)      (2)     (3)     (4)      (5)       (6)     (7)   (8)
! MSH_ALGORITHM, perflsz, perfmsh, mstyp, mshdens, elmszovr, atargov, etpa, etpv,
!
!                elmnl, elmxl, mtrl, rl, ecs, volsel, sprat, radrot, varcang
!                 (9)    (10)  (11) (12) (13)  (14)   (15)    (16)     (17)
!
!vsel,s,volu,,1,3,1
!cm,volsel,volu




asel,s,area,,1,2
!
MSH_ALGORITHM,1,3,1,,,,,2,1.00,1.5,,,,,,5,90,1.0
!




*go,:skip1

*do,i,1,3,1
    asel,s,area,,i
    !
    MSH_ALGORITHM,1,3,1,,,,,2,1.00,1.5,,,,i,,9,90
*enddo
!
!*do,i,1,3,1
    !asel,s,area,,i
    !
    !MSH_ALGORITHM,,2,,,,,,2,1.00,1.5,,,,i+3,,7,40
!*enddo
!
!ENTITY_ARRAY,'a','ara','array'
!MAX_VALUE,'ara',ecount
!
!*do,i,1,ecount,1
    !ara%i%=ara(i,1)
!*enddo
!
!*set,ara(1),

:skip1