TCL：how to distinguish large solid comp and sheet matal comp with tcl scripts?

my model have many comps, some are sheet  matal comp which can extract  middle surface and  use shell element; some are casting or structure which are not suitable to use shell. So i want use tcl scripts to distinguish and put them in different assembly.  thanks