Please take a look. This is a hole created by cutting and stretching, When the tolerance is modified to 0.00008 or 0.00002 using a macro, it will revert to its original value after using ForceRebuild3.

The following is the code.

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("工程图视图3")
boolstatus = Part.Extension.SelectByID2("RD11@工程图视图3", "DIMENSION", 0.345813080899813, 0.280136625936477, 0, False, 0, Nothing, 0)
boolstatus = Part.EditDimensionProperties2(2, 0.00008, 0.00002, "H7", "", True, 9, 0, True, 12, 12, "", "30.02", True, "", "", True)
Part.ClearSelection2 True
Part.ForceRebuild3 False
End Sub