Is there a TCL/TK script available to export components as separate files ?

I have a FEM model with different parts/collectors in hypermesh.

is there any tcl/tk available to export each collector as separate file with filename as collector name 

thank you