Sub Example_AddRaster()
    ' Этот пример добавляет растровое изображение в пространстве модели.
    
    ' Этот пример использует файл, названный "raster.jpg. " 
    ' Вы должны изменить этот пример, чтобы использовать 
    ' растровый файл на вашем компьютере.
    
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotationAngle As Double
    Dim imageName As String
    Dim rasterObj As AcadRasterImage
    imageName = "C:\raster.jpg"
    insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotationAngle = 0
    
    On Error Resume Next
    ' Создает растровое изображение в пространстве модели
    Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
    
    If Err.Description = "File error" Then
        MsgBox imageName & " не найден."
        Exit Sub
    End If
    ZoomExtents
End Sub