Sub Example_ClippingEnabled()
    ' Этот пример добавляет растровое изображение в пространстве модели.
    ' Затем отсекает изображение, основанное на границе отсечения и
    ' переключает отображение отсечения.
    
    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 "Выключите отображение подрезанного изображения.", , "ClippingEnabled Пример"
    
    ' Отключите отображение отсечения
    rasterObj.ClippingEnabled = False
    ThisDrawing.Regen acActiveViewport
    MsgBox "Отображение прочь.", , "ClippingEnabled Пример"
    
End Sub