Fade Пример

Sub Example_Fade()
    ' Этот пример вставляет растровое изображение и находит текущее
    ' значение Fade изображения. Затем изменяет значение Fade изображения.
    
    ' Этот пример использует "downtown.jpg", найденный в каталоге Sample.
    ' Если Вы не имеете изображения или если оно расположено в другом
    ' каталоге, вставьте допустимый путь и название в переменную imageName.
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double
    Dim 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 = "Filer error" Then
        MsgBox imageName & " не найден. "
        Exit Sub
    End If

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