Macro Remove parametric history/fr

=Macro_Remove_parametric_history/fr=

newShape = originalObject.Shape.copy newName = FreeCAD.ActiveDocument.ActiveObject.Name FreeCAD.ActiveDocument.removeObject(newName) newObject = FreeCAD.ActiveDocument.addObject("Part::Feature",newName) newObject.Shape = newShape