TCL Script for element and nodes

Hi

I need to create element and node set for displayed components.

Example: Having 10 component, so for each component there should be set(node and element) with name correspond to component PID followed by ND & ET.

PID Name: Thickness_2.5mm

then i need node entity set with name Thickness_2.5mm_ND & Thickness_2.5mm_ET.

Any leads or help ?

Thanks

Kishore