!   TITLE:  tv_featr_set.mac (MANAGEMENT)
!
!
!   TOOLBAR VERSION
!
!   OBJECTIVE:
!
!   This macro selects a specified solid model entity feature(s) and all
!   associated lower solid model entities for the display.
!
!
!   COMMAND SYNTAX:
!
!                            (1)      (2)
!        FEATR_SET_SELECT, ftr_typ, ftr_num
!
!
!   ARGUMENTS:
!
!           ftr_typ = the number of angle dimensions.
!
!           ftr_num = the nth anglular dimension.
!
!
!   DESCRIPTION:
!
!   This macro is used if it is desired to display only a particular volume,
!   area or line, and all associated lower solid model entities. The default
!   solid model entity type is volumes. Therefore, by default, a specified
!   volume, and associated areas, lines and keypoints comprising the volume,
!   is selected and displayed. The solid model entity maximum parameters is
!   unaffected, and may be used for implementing parameterized solid model
!   operations.
!
!
!
*get,prkey_,active,0,prkey
/nopr

multipro,'start',2
    *cset,1,3,ftrtyp_,'Solid Model Entity Feature Type',1
    *cset,4,6,ftrnum_,'Solid Model Entity Feature #',0
    *cset,61,62,'Selects the specified solid mod','el feature, and all associated'
    *cset,63,64,'solid model entities. Solid mod','el types: (v=1, a=2, l=3).'
multipro,'end'
!
*if,ftrnum_,ne,0,then
    *if,ftrtyp_,eq,1,then
        vsel,s,volu,,ftrnum_
        aslv,s
        lsla,s
        ksll,s
    *elseif,ftrtyp_,eq,2,then
        asel,s,area,,ftrnum_
        lsla,s
        ksll,s
    *elseif,ftrtyp_,eq,3,then
        lsel,s,line,,ftrnum_
        ksll,s
    *endif
    !
    /AUTO, 1
    /REP
    !
    lplot
*endif
!
*set,ftrtyp_,
*set,ftrnum_,

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