Macro Remove parametric history

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