ImageFile Пример

Sub Example_ImageFile()
    ' Этот пример вставляет растровое изображение и затем находит
    ' ImageFile для изображения.
    
    ' Этот пример использует "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

    ' Найдите текущий ImageFile
    ThisDrawing.Regen True
    MsgBox "ImageFile в настоящее время установлен в: " & raster.ImageFile, vbInformation
End Sub
Сайт управляется системой uCoz