Macro FaceToSketch

import Draft wires,_faces = Draft.downgrade(FreeCADGui.Selection.getSelection,delete=True) sketch = Draft.makeSketch(wires[0:1]) for wire in wires[1:]: Draft.makeSketch([wire],addTo=sketch) for wire in wires: FreeCAD.ActiveDocument.removeObject(wire.Name)