Hallo,
hat jemand von euch Erfahrung darin, Rasterbilder, die in die Karte geladen sind, mittels VBA in verschiedene Formate zu convertieren /exportieren?
Im ArcCatalog gehe ich manuell so vor: Bild markieren --> rechte Maustaste --> Export --> Raster to different format
ich möchte georeferenzierte jpg bzw Tiff Bilder mit Worldfile ins IMG exportieren, am liebsten auch in JP2 bilder, aber das funktioniert in ArcGIS 8.3 ja noch nicht.
Viele Grüße,
Imke Dörge
hat jemand von euch Erfahrung darin, Rasterbilder, die in die Karte geladen sind, mittels VBA in verschiedene Formate zu convertieren /exportieren?
Im ArcCatalog gehe ich manuell so vor: Bild markieren --> rechte Maustaste --> Export --> Raster to different format
ich möchte georeferenzierte jpg bzw Tiff Bilder mit Worldfile ins IMG exportieren, am liebsten auch in JP2 bilder, aber das funktioniert in ArcGIS 8.3 ja noch nicht.
Viele Grüße,
Imke Dörge
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Imke am Di., 27.07.2004 - 16:43
Permalink----
Public Sub ChangeRasterFormat_IMG(sPath_in As String, sInName As String, sPath_out As String)
Dim sPath_in As String
Dim sPath_out As String
Dim sInName As String
Dim sOutName As String
Dim AName() As String
Dim pWSF As IWorkspaceFactory
Dim pRWS_in As IRasterWorkspace
Dim pRWS_out As IRasterWorkspace
Dim pRaster As IRaster
Dim pDS As IDataset
Dim pRasBandCol As IRasterBandCollection
'den Namen in Einzelteile zerlegen
AName() = Split(sInName, ".", , vbTextCompare) 'In Namen und Extension trennen
sOutName = AName(0) & ".img"
' Create RasterWorkspace
Set pWSF = New RasterWorkspaceFactory
If Not pWSF.IsWorkspace(sPath_in) Then Exit Sub
Set pRWS_in = pWSF.OpenFromFile(sPath_in, 0)
Set pRWS_out = pWSF.OpenFromFile(sPath_out, 0)
' Open RasterDataset and get default raster
Set pRaster = pRWS_in.OpenRasterDataset(sInName).CreateDefaultRaster
' SaveAs the projected raster
Set pRasBandCol = pRaster
Set pDS = pRasBandCol.SaveAs(sOutName, pRWS_out, "IMAGINE Image") 'Here you can specify "TIFF", "IMAGINE Image" or "GRID" for format
'Clean up
Set pDS = Nothing
Set pRasBandCol = Nothing
Set pRasProp = Nothing
Set pRaster = Nothing
Set pRWS_in = Nothing
Set pRWS_out = Nothing
Set pWSF = Nothing
End Sub
-----
diese Lösung habe ich aus dem ArcObjects Discussion Forum (http://forums.esri.com/Thread.asp?c=93&f=1149&t=132533&mc=3#3831 24) bekommen und dann an meine Gegebenheiten angepasst.
Vielleicht kann es ja nochmal jemand brauchen.
Viele Grüße,
Imke Dörge