Delimitaci髇 del contorno delimitador de una imagen r醩ter

previous page next page

Visualización y ocultación del contorno delimitador

Utilización de bloques y atributos

Manual del desarrollador de ActiveX y VBA > Técnicas avanzadas de dibujo y organización > Trabajo con imágenes ráster > Delimitación de imágenes > Visualización y ocultación del contorno delimitador >

Delimitación del contorno delimitador de una imagen ráster

Este ejemplo crea una cota radial en espacio modelo. Después delimita la imagen basándose en un contorno delimitador. Este ejemplo utiliza el archivo downtown.jpg, que se encuentra en el directorio de ejemplos. Si no tiene esta imagen o si está situada en un directorio diferente, escriba una ruta y un nombre de archivo válidos para la variable imageName.

Sub Ch10_ClippingRasterBoundary()

    Dim insertionPoint(0 To 2) As Double

    Dim scalefactor As Double

    Dim rotationAngle As Double

    Dim dwgName 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 GoTo ERRORHANDLER
        ' Creates a raster image in model space
        Set xlineObj = ThisDrawing.ModelSpace.AddXLine _
                        (imageName, insertionPoint, _
                         scalefactor, rotationAngle)
       ZoomAll
        ' Establish the clip boundary with an array of points
        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
            ' Clip the image
        rasterObj.ClipBoundary clipPoints
            ' Enable the display of the clip
        rasterObj.ClippingEnabled = True
        ThisDrawing.Regen acActiveViewport
        Exit Sub
        ERRORHANDLER:
        MsgBox Err.Description
    End Sub

previous page start next page