!   TITLE:  tv_create_volume.mac (SM_TOOL)
!
!
!   TOOLBAR  VERSION
!
!   This sub-macro creates a volume, from a newly created area, by extrusion.
!   This is achieved by using the macro command CREATE_AREA, and extruding
!   a given distance, D_EXT.  The arguments used here are the same as in
!   CREATE_LINES, except for SEQNCE which is not used since the lines must
!   form a closed loop in order to create an area. Therefroe, option zero (0)
!   is always specified. The value of C_ACS is transferred directly to
!   CREATE_LINES, along with the 0 value of SEQNCE. The argument D_EXT is
!   transferred to the ANSYS command VOFFST. (See CREATE_LINES for the option
!   on the C_ACS argument)
!
!           c_acs = boolean operator to create lines in the active
!                   coordinate system.
!
!           d_ext = extrusion distance of area that forms the new volume.
!
!
!
! CREATE_VOLUME, c_acs, d_ext
!
!
!
*get,prkey_,active,0,prkey
/nopr

*ask,c_acs,Straight or Active C.S.,0
*ask,d_ext,Extrude Distance,1
!
create_area,c_acs
!
voffst,am,d_ext
!
init_entity_num
!
lplot
!
*set,d_ext,
!
abbres,new,tools,mac

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