ImageWidth Пример

Sub Example_ImageWidth()
    ' Этот пример добавляет растровое изображение в пространстве модели и
    ' затем находит высоту и ширину изображения.
    
    ' Этот пример использует "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 = 1#
    rotationAngle = 0
    
    ' Создает растровое изображение в пространстве модели
    Set rasterObj = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotationAngle)
    
    ' Найдите высоту и ширину растрового изображения
    Dim height As Variant
    Dim width As Variant
    
    height = rasterObj.ImageHeight
    width = rasterObj.ImageWidth
    
    MsgBox "Растровое изображение: " & rasterObj.ImageFile & vbCrLf & _
            "ImageHeight: " & str(height) & vbCrLf & _
            "ImageWidth: " & str(width)
            
End Sub
Сайт управляется системой uCoz