TCL for finding adjacent elements in Hypermesh

This code helps you to find elements around the element 50.

*createmark elements 1 50  "50 is the element id"

*findmark elements 1 1 1 elements 0 2

set elemsIDs [hm_getmark elements 2]

puts $elemsIDs