TCl begginer

hello I have started working with tcl recently

 

I want to write programme for creating a node equivalence in two parts 

 

in large assemblies it become combursome to select all components and check for equivalence

 

i would like to know to write this programme and what are general guide lines for this

Thank you