Ergebnis 1 bis 5 von 5

Thailand in Google Earth

Erstellt von ReneZ, 07.12.2007, 09:53 Uhr · 4 Antworten · 1.338 Aufrufe

  1. #1
    Avatar von ReneZ

    Registriert seit
    08.06.2005
    Beiträge
    4.327

    Thailand in Google Earth

    'Morgen an alle!

    Mir macht's manchmal einfach Spass, durch Google Earth
    'rum zu reisen. Die Aufnahmen von Thailand sind von
    sehr unterschiedlicher Qualität: sehr gute Auflösung
    an vielen Stellen, aber an manchen interessanten Stellen
    sehr niedrige Auflösung.

    Bei PointAsia ist die Auflösung viel gleichmässiger,
    und manchmal viel besser als in Google Earth, aber nicht
    so gut wie GE's höchste Auflösung.

    Der Vorteil von GE ist für mich der Gebrauch von
    Placemarks, wodurch man einfach etwas wieder zurück
    finden kann.
    Dazu kommt, dass bei GE ziemlich regelmässig Updates
    stattfinden. Vor kurzem z.B. fiel mir auf dass der
    historische Park von Sukhotai jetzt haarscharf da ist
    (war nicht immer so, aber ich weiss auch nicht wie
    lange jetzt schon).

    Leider kann ich auf meiner Yahoo website keine KMZ
    Dateien hochladen, also für Sukhotai nur die Koordinaten:
    17° 1'4"N
    99°42'17"E

    Wer noch interessante GE Tipps hat kann sie gern hier
    reinstellen.

    Gruss, René

  2.  
    Anzeige
  3. #2
    Avatar von Kamoi

    Registriert seit
    11.10.2007
    Beiträge
    160

    Re: Thailand in Google Earth

    @ ReneZ
    Hallo weiß nicht ob du sie schon kennst aber schau mal unter www.ThaiEarth.com.Die Thai's haben ne eigene GE Webside.Unter Top DL links siehst du die KMZ Files,die du in GE einbauen kannst.Nur leider kann ich nicht alles lesen,aber vielleicht kannst ja mehr rauslesen und weitere interessante POI's finden.
    Gruß Kamoi

  4. #3
    UAL
    Avatar von UAL

    Registriert seit
    23.08.2003
    Beiträge
    8.198

    Re: Thailand in Google Earth

    Zitat Zitat von Kamoi",p="547753
    ist ne Macke im Link, hier geht es www.ThaiEarth.com

  5. #4
    Avatar von Kamoi

    Registriert seit
    11.10.2007
    Beiträge
    160

    Re: Thailand in Google Earth

    @UAL
    Ja sorry hab ich auch gesehen.Weiß aber auch nicht warum DIE mit blau unterlegt wurde.Wahr natürlich keine Absicht.
    Gruß Kamoi

  6. #5
    Avatar von Micha

    Registriert seit
    28.01.2003
    Beiträge
    15.953

    Re: Thailand in Google Earth

    Mit nachfolgendem VBA-Text kann ich per Schalflächenklick einen oder mehrere Punkte aus meiner VBA-Word Datenbank direkt an Google.Maps übergeben und darstellen lassen.

    Private Sub gm_Click()
    Dim sFile As String, hfile As String, TxPfad As String, TxDateiname As String, K As Integer, wshshell As Object
    Dim MittelwertLaenge As Double, MittelwertBreite As Double, Teiler As Integer
    Pfad = "C:\temp"
    TxDateiname = "Test" & ".txt"
    sFile = Pfad & "\" & TxDateiname
    K = FreeFile
    Open sFile For Output As K
    Print #K, "<!DOCTYPE html PUBLIC " & Chr(34) & "-//W3C//DTD XHTML 1.0 Strict//EN" & Chr(34)
    Print #K, Chr(34) & "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" & Chr(34) & ">"
    Print #K, "<html xmlns=" & Chr(34) & "http://www.w3.org/1999/xhtml" & Chr(34) & ">"
    Print #K, "<head>"
    Print #K, "<script"
    Print #K, "src = " & Chr(34) & "http://maps.google.com/maps?file=api&v=1&key=ABQIAAAAo4r5ZV7p9GVQ0qzJ..." & Chr(34)
    Print #K, "type=" & Chr(34) & "text/javascript" & Chr(34) & "></script>"
    Print #K, "</head>"
    Print #K, "<body>"
    Print #K, "<div id=" & Chr(34) & "map" & Chr(34) & "style=" & Chr(34) & "width:" & CStr(HPixel) & "px; height:" & CStr(VPixel) & "px" & Chr(34) & "></div>"
    Print #K, "<script type=" & Chr(34) & "text/javascript" & Chr(34) & ">"
    Print #K, "function createMarker(point,html) {"
    Print #K, "var marker = new GMarker(point);"
    Print #K, "GEvent.addListener(marker, ´click´, function() {" ´statt click wäre u. a. auch mouseover möglich
    Print #K, "marker.openInfoWindowHtml(html);"
    Print #K, "});"
    Print #K, "return marker;"
    Print #K, "}"
    Print #K, "var map = new GMap(document.getElementById(´map´));"
    Print #K, "map.addControl(new GLargeMapControl());"
    Print #K, "map.addControl(new GMapTypeControl());"
    Print #K, "map.setMapType(G_NORMAL_MAP);"
    Print #K, "//G_NORMAL_MAP G_HYBRID_MAP G_SATELLITE_TYPE"
    Print #K, Chr(13)

    If Me.Filter.Value = True Then
    If Me.Liste.ListIndex > 0 Then
    Print #K, "map.centerAndZoom(new GPoint(" & Replace(CStr(Me.Longtitude.Value), ",", ".") _
    & "," & Replace(CStr(Me.Latitude.Value), ",", ".") & "),5);"
    Else
    Teiler = 0
    MittelwertLaenge = 0
    MittelwertBreite = 0
    rs.MoveFirst
    Do While Not rs.EOF
    If Len(rs("Latitude")) > 2 And Len(rs("Longtitude")) > 2 Then
    MittelwertLaenge = MittelwertLaenge + rs("Longtitude")
    MittelwertBreite = MittelwertBreite + rs("Latitude")
    Teiler = Teiler + 1
    End If
    rs.MoveNext
    Loop
    If Teiler > 0 Then
    MittelwertLaenge = MittelwertLaenge / Teiler
    MittelwertBreite = MittelwertBreite / Teiler
    Print #K, "map.centerAndZoom(new GPoint(" & Replace(CStr(MittelwertLaenge), ",", ".") _
    & "," & Replace(CStr(MittelwertBreite), ",", ".") & "),5);"
    End If
    End If
    rs.MoveFirst
    Do While Not rs.EOF
    If Len(rs("Latitude")) > 2 And Len(rs("Longtitude")) > 2 Then
    Print #K, "var point = new GPoint(" & Replace(CStr(rs("Longtitude").Value), ",", ".") _
    & "," & Replace(CStr(rs("Latitude").Value), ",", ".") & ");"
    Print #K, "var marker = createMarker(point,´" & rs("Listeneintrag") & "´)"
    Print #K, "map.addOverlay(marker);"
    End If
    rs.MoveNext
    Loop
    Else
    If Me.Liste.ListIndex > 0 Then
    Print #K, "map.centerAndZoom(new GPoint(" & Replace(CStr(Me.Longtitude.Value), ",", ".") _
    & "," & Replace(CStr(Me.Latitude.Value), ",", ".") & "),5);"
    Print #K, "var point = new GPoint(" & Replace(CStr(Me.Longtitude.Value), ",", ".") _
    & "," & Replace(CStr(Me.Latitude.Value), ",", ".") & ");"
    Print #K, "var marker = createMarker(point,´" & rs("Listeneintrag") & "´)"
    Print #K, "map.addOverlay(marker);"
    End If
    End If

    Rem Print #K, "map.addOverlay(new GPolyline(points, " & Chr(34) & "#0000ff" & Chr(34) & ", 4, 0.8));"
    Print #K, "//]]>"
    Print #K, "</script>"
    Print #K, "</body>"
    Print #K, Chr(13)
    Print #K, "</html>"
    Close K
    On Error GoTo Fang
    hfile = Mid(sFile, 1, Len(sFile) - 3) & "htm"
    Name sFile As hfile
    ´Shell "explorer.exe /e," & Pfad, 1
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run hfile
    Set wshshell = Nothing

    GoTo Schluss
    Fang:
    If Err = 58 Then
    Err = 0
    Kill hfile
    Name sFile As hfile
    Else
    MsgBox Err.Number & " " & Err.Description
    End If
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run hfile
    Set wshshell = Nothing
    Schluss:
    Me.Hide
    End Sub

Ähnliche Themen

  1. Google Earth
    Von Karl im Forum Computer-Board
    Antworten: 4
    Letzter Beitrag: 22.07.11, 13:26
  2. Google Earth 5.0 ist da
    Von Hippo im Forum Computer-Board
    Antworten: 8
    Letzter Beitrag: 13.05.09, 19:11
  3. Google Earth 5 ist da
    Von Hippo im Forum Computer-Board
    Antworten: 3
    Letzter Beitrag: 04.02.09, 14:36
  4. Google Earth 4.3 ist da
    Von Hippo im Forum Computer-Board
    Antworten: 33
    Letzter Beitrag: 06.07.08, 16:54
  5. Google Earth
    Von a_2 im Forum Computer-Board
    Antworten: 113
    Letzter Beitrag: 04.07.07, 14:10