Sub Example_ShowRotation()
    'Этот пример добавляет растровое изображение в пространстве модели и вращает изображение.
    'Один поворот сделан без угловых пределов, один сделан с ShowRotation, который ограничивает повороты 90 градусами
    
    'Этот пример использует "downtown.jpg" найденный в типовом каталоге.
    'Если Вы не имеете этого изображения или оно расположено в другом
    'каталоге, вставьте допустимый путь и имя файла в imageName.
    
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double, rotationAngle As Double
    Dim imageName As String
    Dim rasterObj As AcadRasterImage
    
    imageName = "c:\Autocad\sample\downtown.jpg"
    
    'Объект Raster
    insertionPoint(0) = 5: insertionPoint(1) = 5: insertionPoint(2) = 0
    scalefactor = 1#: rotationAngle = 0
    
    On Error GoTo ERRORTRAP
    
    'Загружает растровое изображение в пространство модели
    Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
        
    'Ограничьте растровые повороты изображения 90 градусами
    rasterObj.ShowRotation = True
    
    'Вращайте растровое изображение 180 градусов
    rasterObj.Rotate insertionPoint, 180
    ThisDrawing.Application.ZoomAll
    
    Exit Sub
    
    'Если Вы получаете ошибку (наиболее вероятно проблема с путем к файлу), 
    ' показываете сообщение об ошибках
ERRORTRAP:
    If Err.Description <> "" Then
        MsgBox Err.Description
    End If
End Sub

Сайт управляется системой uCoz