Pokud potřebujete dočasně vypnout (potlačit, skrýt) zobrazení kót v prostředí náčrtu, můžete využít následující jednoduché VBA makro. Ve VBA editoru jej vložte do aktuálního dokumentu či šablony.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
nebo varianta makra, které může být uloženo kdekoliv:
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
Mimo prostředí Náčrtu kóty vypnete snáze, pomocí pravého tlačítka myši na náčrtu ve stromu > Viditelnost kóty.