Tcl script to create element sets

hi all,

Can anybody help me with this script?

problem statement:

I have lot of element pockets (or disconnected elements groups ) in hypermesh display window.

The process i want to do:

1.select a random element from the window  and find attached all elements (first element group).

2. create a set with above selected elements and mask them.

 

Then the step 1.  ( a loop till all the elements are added to sets)

 

thanks in advance