Dropping selected objects to surface below.

I am looking for a script that can snap an object to the object below by snapping all selected object by their pivot to a surface, take a look at the picture. Is the any addon that does this today?