!   test_target_sweep_area.mac
!
mod_assemb_prep
!
csys,0
!
k,,0,1,0
k,,3,1,0
k,,3,2,0
k,,0,2,0
!
create_area
!
k,,3,1.3,0
k,,6,1.3,0
k,,6,3,0
k,,4,3,0
k,,4,2.2,0
k,,3,2.2,0
!
create_area
!
create_cs,0,'jim',1,0,0,0,0,0,90
!
revolve_aset,jim,150,1
!
*do,i,0,270,90
    vsel,s,loc,y,i,i+90
    vglue,all
    numcmp,all
    init_entity_num
*enddo
!




*go,:skip

anglea=90
anglev=90
zlow=3
zhigh=6
!
asel,s,loc,y,anglea
asel,r,loc,z,zlow,zhigh
!
vsel,s,loc,y,anglev,anglev+90
vsel,r,loc,z,zlow,zhigh
get_max_entity
!                                 (1)      (2)
!           TARGET_SWEEP_AREA, source_A, vol_num
!
target_sweep_area,am
asel,s,area,,atarg_
aplo


:skip