Zurück
Geopatra als ActiveX und Registrierung:

Mit der Version 3.0 ist Geoptra als ActiveX-Objekt nutzbar. An jedem Rechner, an dem die ActiveX-Funktionalität genutzt werden soll, muß hierfür Geopatra registriert, das heißt, beim Betriebssystem angemeldet werden.

Wie man in der Batchdatei sieht, erfolgt dies durch den Aufruf
Geopatra.exe / regsvr

oder innerhalb der Batch-Datei GeopatraRegister.bat, durch die auch die von Geopatra benötigten Steuerelemente registriert werden.

Für VBA-Programmierer:

Auf zwei Arten kann nun in VBA auf das Geopatra-Objekt zugegriffen werden. Hierbei gibt es zum einen die Variante1 (mit Geopatra als einem Objekt zu arbeiten) und zum anderen die Variante2 (direkt mit dem Geopatra-Datentyp zu arbeiten).

Bei Variante2 geht man nach Extras | Verweise und wählt in der Liste der verfügbaren Verweise "Geopatra" aus. Die hat den Vorteil, daß man beim Arbeiten mit dem Geopatra-Objekt das gewohnte PullDown-Menü mit den angebotenen Methoden zur Verfügung hat.

Vier Beispiele für MS Word sind hier zum Download erhältlich (in Word muß das Laden/Ausführen von Makros in den Sicherheitseinstellungen natürlich gestattet sein):

Konvertierung WGS84 nach UTM
Kleinpunktberechnung
Flächenberechnung
Helmert-/Affintransformation

Für VisualBasic-Programmierer:

Hier gilt im Prinzip dasselbe wie bei VBA, die Einstellung der Verweises zu Geopatra erfolgt bei Variante2 unter Projekt | Verweise.

Hier ein Beispielprojekt für VisualBasic:
 Konvertierung WGS84 nach UTM

Für OpenOffice-Basic-Entwickler

Hier scheint es momentan nur die Möglichkeit zu geben, mit Variante 1 zu arbeiten.

Zwei Beispiele für OpenOffice-Basic sind hier zum Download erhältlich (in OpenOffice muß das Laden/Ausführen von Makros in den Sicherheitseinstellungen natürlich gestattet sein - in Extras | Optionen | Sicherheit):

Konvertierung WGS84 nach UTM
Helmert-/Affintransformation

' ------------- Variante 1

Dim oGeopatra as object
Dim dWGSLaenge as double, dWGSBreite as double
Dim lUTMZone as long
Dim dEasting as double, dNorthing as double

oGeopatra = CreateObject("Geopatra.GP")
Call oGeopatra.KonvertierungGeographischNachUTM(dWGSLaenge, dWGSBreite, lZone, dEasting, dNorthing)

set oGeopatra = nothing

' -------------  Variante 2

Dim gpGeopatra As Geopatra.GP
Dim dWGSLaenge as double, dWGSBreite as double
Dim lUTMZone as long
Dim dEasting as double, dNorthing as double

set gpGeopatra  = new Geopatra.GP
Call gpGeopatra.KonvertierungGeographischNachUTM(dWGSLaenge, dWGSBreite, lZone, dEasting, dNorthing)

set gpGeopatra = nothing
Zurück