!   TITLE:  tv_extrude_aset.mac (SM_TOOL)
!
!
!   TOOLBAR VERSION
!
!   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.  A 0 (zero) will abort the
!              operation.
!
!
*get,prkey_,active,0,prkey
/nopr

*ask,_dext,Extrusion Distance,1
!
*get,_alow,area,,num,min
*get,_ahigh,area,,num,max
!
*if,_dext,ne,0,then
    !
    *do,_i,_alow,_ahigh,1
        *if,asel(_i),eq,1,then
            voffst,_i,_dext
        *endif
    *enddo
*endif
!
init_entity_num
!
*set,_dext,
*set,_alow,
*set,_ahigh,
*set,_i,
!
abbres,new,tools,mac

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