Hallo zusammen.
Ich versuche gerade, auf das "Copy Raster-Tool" als ArcObject aus einem vba-Skript (ArcMap 9.3) heraus zuzugreifen.
Leider finde ich in der Desktophilfe keine Beschreibung zu Copy Raster als ArcObject. Finde da nur "Command line syntax" und "Scripting syntax".
Vielleicht kann mir jemand auf die Sprünge helfen.
Schon bei den Parametern bin ich mir nicht sicher, ob das sein kann.
Ähnlich wie bei meinem Skrpit zu "hillshade_3d" und "Filter_SA"
versuche ich den Zugriff wie folgt.
MsgBox "Konvertiere von .aux nach .img"
Dim pgeoprocessor_konvert As IGeoProcessor 'Erzeuge geoprocessor object
Set pgeoprocessor_konvert = New GeoProcessor
Dim Konvertparameter As IVariantArray 'Array-Object für GeoProcessor
Set Konvertparameter = New VarArray
'Erzeuge Parameter-Objekte für Copy-Werkzeug
Dim konvert_Inraster, konvert_Outraster As String
Dim config_keyword As String
Dim ignoreBackground_value As Double
Dim noData_Value As Double
Dim convert1bitDataTo8Bit As Boolean
Dim colormapToRGB As Boolean
Dim pixelType As String
'Setze Variablen für Copy-Werkzeug
konvert_Inraster = "C:\temp\nord\hz.aux
konvert_Outraster = "c:\temp\nord\hzimg.img"
config_keyword = "#" 'brauche ich nicht, da ich .img will
ignoreBackground_value = 0 'brauche ich auch nicht
noData_Value = "0" 'muß gleich sein wie vorheriger
convert1bitDataTo8Bit = False 'keine Konvertierung/default
colormapToRGB = False 'kein konvertierung/default
pixelType = "#" 'leer bedeutet "wie im Eingangsbild"
'Füge Parameter zum Übergabe-Array hinzu
Konvertparameter.Add (konvert_Inraster)
Konvertparameter.Add (konvert_Outraster)
Konvertparameter.Add (config_keyword)
Konvertparameter.Add (ignoreBackground_value)
Konvertparameter.Add (noData_Value)
Konvertparameter.Add (convert1bitDataTo8Bit)
Konvertparameter.Add (colormapToRGB)
Konvertparameter.Add (pixelType)
'starte das Werkzeug "CopyRaster_management"
pgeoprocessor_konvert.Execute "CopyRaster_management", Konvertparameter, Nothing
MsgBox " Konvertierung beendet "
Ich versuche gerade, auf das "Copy Raster-Tool" als ArcObject aus einem vba-Skript (ArcMap 9.3) heraus zuzugreifen.
Leider finde ich in der Desktophilfe keine Beschreibung zu Copy Raster als ArcObject. Finde da nur "Command line syntax" und "Scripting syntax".
Vielleicht kann mir jemand auf die Sprünge helfen.
Schon bei den Parametern bin ich mir nicht sicher, ob das sein kann.
Ähnlich wie bei meinem Skrpit zu "hillshade_3d" und "Filter_SA"
versuche ich den Zugriff wie folgt.
MsgBox "Konvertiere von .aux nach .img"
Dim pgeoprocessor_konvert As IGeoProcessor 'Erzeuge geoprocessor object
Set pgeoprocessor_konvert = New GeoProcessor
Dim Konvertparameter As IVariantArray 'Array-Object für GeoProcessor
Set Konvertparameter = New VarArray
'Erzeuge Parameter-Objekte für Copy-Werkzeug
Dim konvert_Inraster, konvert_Outraster As String
Dim config_keyword As String
Dim ignoreBackground_value As Double
Dim noData_Value As Double
Dim convert1bitDataTo8Bit As Boolean
Dim colormapToRGB As Boolean
Dim pixelType As String
'Setze Variablen für Copy-Werkzeug
konvert_Inraster = "C:\temp\nord\hz.aux
konvert_Outraster = "c:\temp\nord\hzimg.img"
config_keyword = "#" 'brauche ich nicht, da ich .img will
ignoreBackground_value = 0 'brauche ich auch nicht
noData_Value = "0" 'muß gleich sein wie vorheriger
convert1bitDataTo8Bit = False 'keine Konvertierung/default
colormapToRGB = False 'kein konvertierung/default
pixelType = "#" 'leer bedeutet "wie im Eingangsbild"
'Füge Parameter zum Übergabe-Array hinzu
Konvertparameter.Add (konvert_Inraster)
Konvertparameter.Add (konvert_Outraster)
Konvertparameter.Add (config_keyword)
Konvertparameter.Add (ignoreBackground_value)
Konvertparameter.Add (noData_Value)
Konvertparameter.Add (convert1bitDataTo8Bit)
Konvertparameter.Add (colormapToRGB)
Konvertparameter.Add (pixelType)
'starte das Werkzeug "CopyRaster_management"
pgeoprocessor_konvert.Execute "CopyRaster_management", Konvertparameter, Nothing
MsgBox " Konvertierung beendet "
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von Andreas Haug am Mi., 19.08.2009 - 14:27
Permalink