Sub Example_ImageVisibility()
    ' Этот пример вставляет растровое изображение и находит текущее
    ' состояние ImageVisibility для изображения. Затем изменяет состояние
    ' ImageVisibility изображения.
    
    ' Этот пример использует "downtown.jpg", найденный в каталоге Sample.
    ' Если Вы не имеете изображения или если оно расположено в другом
    ' каталоге, вставьте допустимый путь и имя для переменной imageName.
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double, rotAngle As Double
    Dim imageName As String
    Dim raster As AcadRasterImage
    imageName = "C:\AutoCAD\sample\downtown.jpg"
    insertionPoint(0) = 2#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotAngleInDegree = 0#
    rotAngle = rotAngleInDegree * 3.141592 / 180#
    
    On Error Resume Next
    
    ' Создает растровое изображение в пространстве модели
    Set raster = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotAngle)
    If Err.Description = "File error" Then
        MsgBox imageName & " не найден. "
        Exit Sub
    End If

    ' Найдите текущее ImageVisibility
    ThisDrawing.Regen True
    MsgBox "ImageVisibility в настоящее время установлен в: " & raster.ImageVisibility, vbInformation
    
    ' Измените ImageVisibility
    If (raster.ImageVisibility) Then
        raster.ImageVisibility = False
    Else
        raster.ImageVisibility = True
    End If
    ThisDrawing.Regen True
    MsgBox "ImageVisibility теперь установлен в: " & raster.ImageVisibility, vbInformation
End Sub