#--------------------------------------------------------------------------------------------------------
# created by rajasekaran natarajan
#www.oocities.org/rajsekarann
#rajasekaran.natarajan <at> gmail.com
#date unknown updated on 072006
# Purpose: Macro to select elements by properties [1-d or any Nastran element wich has prop collector]
#--------------------------------------------------------------------------------------------------------


*clearmark elem 1

*createmarkpanel properties 1 "Select Properties"
set propList [hm_getmark properties 1]
#puts $propList

set elbyprop {}
if { ([llength $propList] != 0) } {
        foreach prop $propList {

            *createmark elem 1 "by property id" $prop
            set xx [hm_getmark elem 1]
            set elbyprop [concat $elbyprop $xx]
        }
        #puts $elbyprop
        eval *createmark elem 1 $elbyprop
        *marktousermark elem 1
}