!   TITLE:  create_vol-area.mac (SM_TOOL)
!
!
!   OBJECTIVE:
!
!   This sub-macro creates a volume from a newly created unattached area
!   (i.e., an area not attached to any volumes).
!
!
!   COMMAND SYNTAX:
!
!                         (1)
!       CREATE_VOL-AREA, d_ext
!
!
!   ARGUMENTS:
!
!       (1) d_ext = distance to extrude the area.
!
!
!   DESCRIPTION:
!
!   This sub-macro creates a volume from a newly created area. The algorithm
!   isolates the area and extrudes it a given distance, D_EXT.
!
!   In the case that it is desired to retain the base area that is extruded
!   to form the new volume, this area number is stored in the parameter
!   'a_base', returned to the main part macro for use in future operations.
!
!
!
*get,prkey_,active,0,prkey
/nopr
!
_dext=arg1
!
init_entity_num
!
isolate_areas
get_max_entity
!
a_base=am
voffst,am,_dext
!
init_entity_num
!
lplot
!
*set,_dext,
!
*if,prkey_,eq,1,then
    /go
*endif