banniere

Le portail francophone de la géomatique


Toujours pas inscrit ? Mot de passe oublié ?
Nom d'utilisateur    Mot de passe              Toujours pas inscrit ?   Mot de passe oublié ?

#1 Thu 31 May 2012 19:24

jawa
Juste Inscrit !
Date d'inscription: 9 Apr 2012
Messages: 2

vba sous arcgis

bonjour à tous
Le code suivant me permet d'exporter la vue active de arcmap sous format jpg dans le chemin spécifié dans le code , j'aimrai que le programme supprime et  remplace l'image si elle  existe déjà.

Code:

Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim pExport As IExport
Dim pPixelBoundsEnv As IEnvelope
Dim exportRECT As tagRECT
Dim iOutputResolution As Integer
Dim iScreenResolution As Integer
Dim hDC As Long


Set pMxDoc = ThisDocument
Set pActiveView = pMxDoc.ActiveView

Set pExport = New ExportJPEG
pExport.ExportFileName = ("D:\ortho3.") & Right(pExport.Filter, 3)

iScreenResolution = 96  'default screen resolution is usually 96dpi
iOutputResolution = 96
pExport.Resolution = iOutputResolution

With exportRECT
.Left = 0
.Top = 0
.Right = pActiveView.ExportFrame.Right * (iOutputResolution / iScreenResolution)
.bottom = pActiveView.ExportFrame.bottom * (iOutputResolution / iScreenResolution)
End With

Set pPixelBoundsEnv = New Envelope
pPixelBoundsEnv.PutCoords exportRECT.Left, exportRECT.Top, exportRECT.Right, exportRECT.bottom
pExport.PixelBounds = pPixelBoundsEnv

hDC = pExport.StartExporting
pActiveView.Output hDC, pExport.Resolution, exportRECT, Nothing, Nothing
pExport.FinishExporting
pExport.Cleanup

si vous avez une idée comment ça marche aidez moi ,je serai reconnaissante.
merci

Hors ligne

 

#2 Fri 01 June 2012 07:42

Raphael
Participant assidu
Date d'inscription: 5 Sep 2005
Messages: 188
Site web

Re: vba sous arcgis

Bonjour,

Vous pouvez utiliser le code suivant:

Code:

        Dim oSFS As Object
        Dim MonFichier As String
        MonFichier = "D:\ortho3."

        Set oSFS = CreateObject("Scripting.FileSystemObject")
        If oSFS.FileExists(MonFichier) = True Then        
            oSFS.DeleteFile (MonFichier), True
        End if

Salutations
Raphael

Hors ligne

 

#3 Sat 31 May 2014 11:21

Teyib27609
Juste Inscrit !
Date d'inscription: 25 Dec 2013
Messages: 3

Re: vba sous arcgis

jawa, l'opération est faite par votre code sans utilisé celui de  Raphael
mais si je veux garder le fichier existant, pouvez vous m'aider slvp je travail sur mon PFE et merci

Hors ligne

 

Pied de page des forums

Powered by FluxBB