!   TITLE:  norm_cut_pln_cyl.mac (SM_TOOL)
!
!
!
!   This sub-macro creates a cutting plane for partitioning volumes.
!   The cutting plane must be created in a CYLINDRICAL coordinate system.
!   The orientation of the cutting plane is normal to the Z axis. The
!   size of the cutting plane is determined by the maximum line length
!   in the the model.
!
!       cd = The distance along the coordinate Z axis from the origin
!            of the coordinate system to the cutting plane surface.
!
!
!
! NORM_CUT_PLN_CYL, cd
!
!
*get,prkey_,active,0,prkey
/nopr

_cd=arg1
!
cm,_vset1,volu
!
max_enty_dim,'l'
!
_rpln=10*max_leng
!
*do,_angle,0,3*rtangle,rtangle
    k,,_rpln,_angle,_cd
*enddo
!
create_area,1
!
vsel,s,volu,,_vset1
!
vol_part_area,am
!
init_entity_num
!
*set,_rpln,
*set,_cd,
*set,_angle,
cmdele,_vset1

*if,prkey_,eq,1,then
    /go
*endif