FreeCAD macro to orient objects to top view

orient_top.FCMacro

# Assuming a simple shapes like a triangle, orient to top view. Doesn't handle Z position.
#
# Usage:
#   Select shapes and execute macro (e.g. Macro->Macros->Execute)
#
# mangtronix
# 2016-04-14

from FreeCAD import Base

for feature in Gui.Selection.getSelection():
  if hasattr(feature, "Shape"):
    normal = feature.Shape.normalAt(0,0)
    feature.Placement.Rotation = Base.Rotation(normal, Base.Vector(0,0,1))

# Switch to top view and view objects
Gui.activeDocument().activeView().viewTop()
Gui.SendMsgToActiveView("ViewSelection")