CAD tip # 8441:

You can run it with Alt+F8 or add it to your ribbon (see):

Sub ToggleDims()
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument
oDoc.ComponentDefinition.Sketches(1).DimensionsVisible = Not oDoc.ComponentDefinition.Sketches(1).DimensionsVisible
End Sub

Sub ToggleDims2()
    Dim oSketch As PlanarSketch
    On Error Resume Next
        Set oSketch = ThisApplication.ActiveEditObject
        If Err.Number <> 0 Then Exit Sub
    On Error GoTo 0
    oSketch.DimensionsVisible = Not oSketch.DimensionsVisible
    ThisApplication.ActiveView.Update
End Sub