!   TITLE:  create_area-lines.mac (SM_TOOL)
!
!
!   This sub-macro creates areas from newly created lines that are not
!   attached to any higher-level solid model entities (i.e., areas or
!   volumes). This is acheived by isolating the lines and creating the
!   area using the AL command. There are no arguments for this command.
!
!
! CREATE_AREA-LINES
!
!
*get,prkey_,active,0,prkey
/nopr

init_entity_num
!
isolate_lines
!
al,all
!
init_entity_num
!
lplot


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