CAD tip # 8440:

Spustíte jej pomocí Alt+F8 nebo si jej přidejte do ribbonu (viz):

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