Created
May 7, 2017 09:05
-
-
Save kampar/4fcf50f254abe5845014dca5fe6c3250 to your computer and use it in GitHub Desktop.
Ms Windows batch file generator untuk download ubin dari ESRI World_Imagery, menggunakan wget untuk download dan ImageMagick untuk gabung
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment