!   TITLE:  tv_create_area.mac (SM_TOOL)
!
!
!   TOOLBAR VERSION:
!
!   This sub-macro creates areas from newly created keypoints.  This is
!   acheived by using the macro command CREATE_LINES.  From these keypoints
!   the lines are first created, then the area from the lines. Therefore,
!   this macro serves as a replacement step for the series of steps in creating
!   lines and then creating areas.  The argument used here is the same as
!   CREATE_LINES, and its values is transferred directly to CREATE_LINES.
!   See CREATE_LINES for the options on this argument:
!
!           c_acs = boolean operator to create lines in the active
!                   coordinate system.
!
!
!
! CREATE_AREAS, c_acs
!
!
*get,prkey_,active,0,prkey
/nopr

*ask,c_acs,straight(0) or active cs(1),0
!
create_lines,c_acs,0
!
isolate_lines
al,all
!
init_entity_num
!
lplot
!
abbres,new,tools,mac

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