Anyone have a simple macro to mate either All parts in a model or a selection of parts to the top, front ,right planes.

All of our larger assemblies are based of a common point or plane set (generally the top, front ,right planes).

i would like to be able to have a macro to automate this...preferably by selection