How to get circumferential grids by selecting a node using TCL

Hi,

I have a meshed cylinder (2d) on which i want to give an option to select a node to user. Once the node is selected, and clicked on proceed button it should display all the circumferential grids having a user defined number to the grids. Let's say i select a grid having ID as 122. Now, i want to display all the circumferential grid starting from 123 on the same station location where user has picked the node. I want to do it using TCL/ TK.

Thanks