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

    Dim viewportObj As AcadViewport
    
    'Установите viewportObj переменную в activeviewport
    Set viewportObj = ThisDrawing.ActiveViewport
    
    'Удостоверьтесь, что Значок UCS включён, и новый UCS определен.
    'Новый UCS определяет точку начала для значка. Когда значок не показан 
    'в точке начала, он показан в левом нижнем углу отображения.
    Dim ucsObj As AcadUCS
    Dim origin(0 To 2) As Double
    Dim xAxisPoint(0 To 2) As Double
    Dim yAxisPoint(0 To 2) As Double
    origin(0) = 2: origin(1) = 2: origin(2) = 0
    xAxisPoint(0) = 3: xAxisPoint(1) = 2: xAxisPoint(2) = 0
    yAxisPoint(0) = 2: yAxisPoint(1) = 3: yAxisPoint(2) = 0
    Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(origin, xAxisPoint, yAxisPoint, "UCS1")
    ThisDrawing.ActiveUCS = ucsObj
    viewportObj.UCSIconOn = True
    
    'Покажите текущую установку UCSIconAtOrigin
    MsgBox "UCSIconAtOrigin: " & IIf(viewportObj.UCSIconAtOrigin, "On", "Off"), , "UCSIconAtOrigin Пример"

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