Create multiple design partitions (more) easily

Hello, does anyone know of a way (using a tcl script or something) to search the Project hierarchy and create a design partition around design entities matching a given name? I have to do this in...