delete tolerances from all dimensions

Hi community,

Has anybody a macro to delete all tolerances from any dimension found on a drawing.

And further the macro should delete all positioning tolerance Symboles, too.

Thanks Dietmar

SolidworksApi/macros