!   TITLE:  extrude_aset.mac (SM_TOOL)
!
!
!   This sub-macro extrudes a selected set of areas by a given
!   distance, dext.  It then restores the selected set to the full
!   model set that is currently under construction. The only input
!   necessary is:
!
!       A selected set of areas (each to be extruded)
!
!       dext = extrusion distance
!
!
! EXTRUDE_ASET, dext
!
!
*get,prkey_,active,0,prkey
/nopr

!
_dext=arg1
!
*get,_alow,area,,num,min
*get,_ahigh,area,,num,max
!
*do,_iii,_alow,_ahigh,1
    *if,asel(_iii),eq,1,then
        voffst,_iii,_dext
    *endif
*enddo
!
init_entity_num
!
*set,_dext,
*set,_iii,
*set,_alow,
*set,_ahigh,

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