# Convert mesh to polysurface buildings in 3d
import rhinoscriptsyntax as rs
objects = rs.GetObjects()
for object in objects:
	if rs.ObjectType(object) == 32: # is mesh
#		f = rs.MeshOutline(r, "Top") is problematic.
		rs.SelectObject(object)
		rs.Command("MeshOutline") # you must be in top view!
		results = rs.SelectedObjects()
		h = rs.MeshAreaCentroid(object)
		for result in results:
			surface = rs.ExtrudeCurveStraight(result, [h[0],h[1],0], h)
			rs.CapPlanarHoles(surface)
			rs.ObjectLayer(surface, "New")
			rs.DeleteObject(result)
		rs.DeleteObject(object)