Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object

Set myModelView = Part.ActiveView

myModelView.FrameState = swWindowState_e.swWindowMaximized

boolstatus = Part.Extension.SelectByID2("Distance1", "MATE", 0, 0, 0, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1027329046619, -0.01912708827836, 0.045, True, 1, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("", "FACE", -0.1027329046619, -0.05912708827836, 0.005, True, 1, Nothing, 0)

Part.EditMate2 5, 0, False, 0.04, 0.04, 0.04, 0.001, 0.001, 0, 0.5235987755983, 0.5235987755983, longstatus

Part.ClearSelection2 True

Part.EditRebuild3

boolstatus = Part.EditRebuild3()

End Sub