Element Select By property

#--------------------------------------------------------------------------------------------------------
# created by rajasekaran natarajan
#www.geocities.com/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
}

Hosted by www.Geocities.ws