Guten morgen Leute
habe folgendes Problem: möchte eine Projektion der Rasterdaten mit VBA vornehmen, z.B. nach "Germany Zone 2" dazu habe in der Onlinehilfe (http://arcobjectsonline.esri.com/ComponentHelp/esriCore/esriSRProjCST ype.htm ) "esriSRProjCS_Germany_2" dies gefunden.
Nun möchte ich aber noch eine andere Projektion durch führen uns war "DHDN_3_Degree_Gauss_Zone_2" aber leider finde keinerlei angaben zu dieser Projektion,hat jemand vielleicht eine Idee wo ich die VBA Angaben dazufinden könnte?
Gruß Anja
habe folgendes Problem: möchte eine Projektion der Rasterdaten mit VBA vornehmen, z.B. nach "Germany Zone 2" dazu habe in der Onlinehilfe (http://arcobjectsonline.esri.com/ComponentHelp/esriCore/esriSRProjCST ype.htm ) "esriSRProjCS_Germany_2" dies gefunden.
Nun möchte ich aber noch eine andere Projektion durch führen uns war "DHDN_3_Degree_Gauss_Zone_2" aber leider finde keinerlei angaben zu dieser Projektion,hat jemand vielleicht eine Idee wo ich die VBA Angaben dazufinden könnte?
Gruß Anja
- Anmelden oder Registieren, um Kommentare verfassen zu können
Gespeichert von uwelangehh am Do., 30.12.2004 - 09:45
Permalinkhinter esriSRProjCS_Germany_2 verbirgt sich meines Wissens der Gauss-Krueger-Streifen 2 im 3er-Gradsystem mit dem Bezugssystem DHDN un dem Bessel-Ellipsoid. Liege ich damit falsch? Mit anderen Worten: Bist du sicher, dass es sich bei DHDN_3_Degree_Gauss_Zone_2 um eine andere Projektion handelt? Wenn ja, um welche?
Wo hast du diese Angabe her?
Gruss
Uwe
Gespeichert von Gast am Do., 30.12.2004 - 10:49
Permalinkich habe in macro gefunden womit man .aux Dateien erstellen kann,wie du weist ist in der aux Datei die Projektion festgelegt.
Einteil vom Macro:
Public Sub Raster_Projection_Germany2()
Dim pGxApp As IGxApplication
Set pGxApp = Application
Dim pGxObj As IGxObject
Set pGxObj = pGxApp.SelectedObject
Dim pGxObjectCont As IGxObjectContainer
Set pGxObjectCont = pGxObj
If Not TypeOf pGxObj Is IGxFolder Then
MsgBox "Bitte Verzeichnis (Ordner) auswählen", vbExclamation
Exit Sub
End If
'Check to see if there are children
Dim pEnumGxObj As IEnumGxObject
Set pEnumGxObj = pGxObjectCont.Children
If pEnumGxObj Is Nothing Then
MsgBox "Dieser Ordner " & pGxObj.FullName & " ist lehr"
Exit Sub
End If
Dim pGxFile As IGxFile
Set pGxFile = pGxObj
Dim sDir As String
sDir = pGxFile.Path
ListRasterSpatialRef sDir
Dim pSRF As ISpatialReferenceFactory2
Set pSRF = New SpatialReferenceEnvironment
Dim pPCS As IProjectedCoordinateSystem
Set pPCS = pSRF.CreateProjectedCoordinateSystem(esriSRProjCS_Germany_2)
AlterRasterSpatialRef sDir, pPCS
ListRasterSpatialRef sDir
End Sub
An dieser Stelle kann man die Projektion definieren:
"pSRF.CreateProjectedCoordinateSystem(esriSRProjCS_Germany_2)"
hab es aus der Onlinehilfe.
Gruß Anja
Gespeichert von uwelangehh am Do., 30.12.2004 - 11:46
Permalinkmoeglicherweise haben wir uns missverstanden oder ich verstehe dein Problem nicht?
Du schriebst:
Nun möchte ich aber noch eine andere Projektion durch führen uns war "DHDN_3_Degree_Gauss_Zone_2"
Ist das nicht das selbe wie esriSRProjCS_Germany_2?
Gruss
Uwe
Gespeichert von Gast am Do., 30.12.2004 - 12:04
PermalinkGermany Zone 2 = esriSRProjCS_Germany_2
und für
DHDN_3_Degree_Gauss_Zone_2 = ?
Aus der aux Datei muß ja diese Projektion "DHDN_3_Degree_Gauss_Zone_2" heraus hervorgehen.
Für diesen kann ich doch nicht einfach im Macro "esriSRProjCS_Germany_2" benutzen denn sonnst ich doch wider German Zone 2,das will ich ja nicht.
DHDN_3_Degree_Gauss_Zone_2 wird für für Karten und Lufbilder im Bereich Web Anwendung benutzt.
Die beidern Projektionen sind natürlich nicht das ein und das selbe.
es gibt da feine unterschide.
kannst es ja mal in ArcMap ausprobieren.
Gruß Anja
Gespeichert von uwelangehh am Do., 30.12.2004 - 13:07
Permalinkhast du bereits ein Raster, fuer welches die Spatial reference DHDN... definiert ist?
Dann ist dir vielleicht mit folgendem Sample weitergeholfen:
Samples -> Spatial Reference -> CopySpatialReference in ArcCatalog
Damit kannst du die SR des ersten selektierten Rasters auf alle anderen selektierten Raster uebertragen.
Ganz allgemein: Wer Koordinatensysteme fuer Raster im Batch-Betrieb definieren moechte, der kann RAGE.exe gut gebrauchen.
Viel Erfolg damit und
guten Rutsch
Uwe
Gespeichert von Gast am Do., 30.12.2004 - 14:33
Permalinkwünsche dir auch alles gute fürs neue Jahr und guten Rutsch
Anja