!   TITLE:  select_part.mac (MANAGEMENT)
!
!
!       Added error check and warning for input parameter = scalar.
!       Changed internal variables to end in underscore (e.g. _).
!
!   OBJECTIVE:
!
!   This sub-macro selects all solid and FE model entities associated
!   with the named part volume.  The only input necessary is the model
!   name for the part.
!
!   COMMAND SYNTAX:
!
!       SELECT_PART, pnam
!
!
*get,prkey_,active,0,prkey
/nopr

pnam_=arg1
!
*get,ptyp_,parm,pnam_,type
!
*if,ptyp_,eq,3,then
    allsel,all
    !
    *get,vcount_,volu,,count
    !
    *if,vcount_,gt,0,then
        vsel,s,volu,,pnam_
        !
        aslv,selv
        lsla,selv
        ksll,selv
        eslv,selv
        nsle,selv,all
        !
    *else
        asel,s,area,,pnam_
        !
        lsla,selv
        ksll,selv
        eslv,selv
        nsle,selv,all
        !
    *endif
*endif
!
lplot
!
*set,pnam_,
*set,ptyp_,

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