Sub Example_UCSIconOn()
    'Этот пример переключает установку UCSIconOn.

    Dim viewportObj As AcadViewport
    
    'Установите viewportObj переменную в activeviewport
    Set viewportObj = ThisDrawing.ActiveViewport
    
    'Покажите текущую установку UCSIconOn
    MsgBox "UCSIcon: " & IIf(viewportObj.UCSIconOn, "Включён", "Выключен"), , "UCSIconOn Пример"

    'Переключите установку UCSIconOn
    viewportObj.UCSIconOn = Not (viewportObj.UCSIconOn)
    
    'Сбросьте активную область просмотра, чтобы видеть изменение
    ThisDrawing.ActiveViewport = viewportObj
    
    MsgBox "UCSIcon - теперь: " & IIf(viewportObj.UCSIconOn, "Включён", "Выключен"), , "UCSIconOn Пример"
    
End Sub