Ms Windows batch file generator untuk download ubin dari ESRI World_Imagery, menggunakan wget untuk download dan ImageMagick untuk gabung

coord_to_bat.vb

Sub debugprint(x1 As Integer, x2 As Integer, y1 As Integer, y2 As Integer, z As Integer)
Dim x, y As Integer


For x = x1 To x2
    For y = y1 To y2
        Debug.Print "wget -O " & z & "-" & x & "-" & y & ".jpg " & "http://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/" & z & "/" & y & "/" & x
    Next y
Next x
'Debug.Print "Banyak Kolom=" & (x2 - x1 + 1)

    Dim s As String
    s = "montage -mode concatenate -tile " & (x2 - x1 + 1) & " "
    For y = y1 To y2
        For x = x1 To x2
            s = s & z & "-" & x & "-" & y & ".jpg "
        Next x
    Next y
    s = s & " out.jpg"
    Debug.Print s

End Sub

Sub test()
    ' bukittinggi
    debugprint 25516, 25523, 16408, 16413, 15
End Sub