Sub Example_ClipBoundary()
    ' Этот пример добавляет растровое изображение в пространстве модели.
    ' Затем отсекает изображение.
    
    ' Этот пример использует "downtown.jpg", найденный в каталоге Sample.
    ' Если Вы не имеете изображения или если оно расположено в другом
    ' каталоге, вставьте допустимый путь и название в переменную
    ' imageName ниже.
    
    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:\AutoCAD\sample\downtown.jpg"
    insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0#
    scalefactor = 2#
    rotationAngle = 0
    
    On Error Resume Next
    ' Создает растровое изображение в пространстве модели
    Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
    
    If Err.Description = "Filer error" Then
        MsgBox imageName & " не был найден. "
        Exit Sub
    End If
    
    ZoomAll
    MsgBox "Отсеките изображение?", , "ClipBoundary Пример"
    
    ' Установите границу отсечения из массива точек
    Dim clipPoints(0 To 9) As Double
    clipPoints(0) = 6: clipPoints(1) = 6.75
    clipPoints(2) = 7: clipPoints(3) = 6
    clipPoints(4) = 6: clipPoints(5) = 5
    clipPoints(6) = 5: clipPoints(7) = 6
    clipPoints(8) = 6: clipPoints(9) = 6.75
    
    ' Отсеките изображение
    rasterObj.clipBoundary clipPoints
    
    ' Допустите показ отсечения
    rasterObj.ClippingEnabled = True
    ThisDrawing.Regen acActiveViewport
    MsgBox "Изображение было отсечено.", , "ClipBoundary Пример"
End Sub