!   TITLE:  create_vol-lines.mac (SM_TOOL)
!
!
!   This sub-macro creates a volume from a newly created set of lines. The
!   set of lines must form a closed loop which bound an area. The algorithm
!   then isolates the lines and forms the area, and then extrudes the area
!   a given distance, D_EXT.  The argument D_EXT is transferred to the ANSYS
!   command VOFFST.
!
!   In the case that it is desired to retain the base area that is created and
!   extruded to form the new volume, this area number is stored in the parameter
!   A_BASE, and returned to the main part macro for use in future operations.
!
!
!           d_ext = extrusion distance of area that forms the new volume.
!
!
!
! CREATE_VOL-LINES, d_ext
!
!
*get,prkey_,active,0,prkey
/nopr

_dext=arg1
!
create_area-lines
!
a_base=am
voffst,am,_dext
!
init_entity_num
!
lplot
!
*set,_dext,

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