Sub PolarPoint_1()
' .GetPoint([nokta] , [mesaj])
' Tıklanan Noktanın koordinat değerleri alınır. X,Y,Z
' .PolarPoint(Nokta , Açı , Uzunluk)
' Belirlenen noktanın verilen açı ve mesafedeki konumunu verir
' .AddText(Yazı , EklemeNoktası , YazıYüksekliği)
' Yazı yazdırır
' Açı(Rad) = Açı(Derece) * pi / 180
' Derece --> Radyan dönüşümü
' .AddLine(BaşlamaNoktası , BitişNoktası)
' Belirlenen 2 nokta arasına çizgi çizer
' Regen acActiveViewport
' Çizimi yeniden oluşturur
pi = 4 * Atn(1) '3.14...
a = 60 'açı - derece
a = a * pi / 180 'açı - radyan
With ThisDrawing.Utility
n1 = .GetPoint(, "Nokta:")
pp = .PolarPoint(n1, a, 50)
ModelSpace.AddLine n1, pp
End With
End Sub
Sub PolarPoint_1()
With ThisDrawing.Utility
pi = 4 * Atn(1)
n1 = .GetPoint(, "Nokta:")
For n = 0 To 359 Step 20
a = n * pi / 180 'açı - radyan
r = .PolarPoint(n1, a, 50)
Set y = ModelSpace.AddText(n & "°", r, 3)
y.color = acGreen
Set c = ModelSpace.AddLine(n1, r)
Next
End With
End Sub
Sub PolarPoint_1()
With ThisDrawing.Utility
pi = 4 * Atn(1)
n1 = .GetPoint(, "Nokta:")
For n = 0 To 359
a = n * pi / 180 'açı - radyan
r = .PolarPoint(n1, a, 50)
'Set y = ModelSpace.AddText(n & "°", r, 3)
'y.color = acGreen
Set c = ModelSpace.AddLine(n1, r)
c.color = n * 0.7
Next
End With
End Sub
Sub YayCiz()
' .GetPoint([nokta] , [mesaj])
' Tıklanan Noktanın koordinat değerleri alınır. X,Y,Z
' .GetDistance([nokta] , [mesaj])
' Tıklanan iki noktanın mesafesi alınır. Değer girilebilir.
' .AngleFromXAxis(BaşlamaNoktası , BitişNoktası)
' Belirlenen 2 noktanın X ekseindeki açısı
' .AddArc(MerkezNokta , Yarıçap , Başl.Açısı , BitişAçısı)
' Yay çizer
Dim yay As AcadArc
With Utility
m = .GetPoint(, "Merkez nokta: ")
r = .GetDistance(m, "Yarıçap:")
p1 = .GetPoint(m, "Başlangıç noktası")
p2 = .GetPoint(m, "Bitiş noktası")
a1 = .AngleFromXAxis(m, p1) 'radyan
a2 = .AngleFromXAxis(m, p2) 'radyan
End With
Set yay = ModelSpace.AddArc(m, r, a1, a2)
End Sub
Önceki yazılarda fotoğraf dosyalarına konum bilgisi eklemeyi farklı yollarla göstermiştim. 1. yazıda ExifTool ile, 2. yazıdaise Picasa programı ile. Bu yazıda ise yine farklı bir program ile fotoğraf dosyalarına konum bilgisi ekleyeceğiz. Kullanacağımız program: GeoSetter
GeoSetter ile fotoğraflara konum bilgisi ekleme nasıl yapılır?
Programın fotoğraf dosyaları üzerinde yapabileceği bir çok işlevi var fakat bu konuda konum bilgisi işlevi üzerinde durulacaktır.
Öncelikle programı web sitesinden indirip bilgisayara kurmalısınız. Program bedavadır. Programı çalıştırın. (1) numaralı yerden fotoğrafların olduğu klasörü açın. Konum eklenecek fotoğraf(lar)ı seçin. Sağ taraftaki harita bölümünde yakınlaşıp/uzaklaşarak ve kaydırarak fotoğrafınızın çekildiği konuma ulaşın.
Bir önceki yazımda Fotoğraflara konum bilgisi ekleme #1 ExifTool programını kullanarak fotoğraflara coğrafi konum bilgisi eklemeyi görmüştük. Yazının devamı olan bu sayfada Picasa programını kullanarak konum bilgisi eklemeyi göreceğiz.
Picasa ile fotoğraflara konum bilgisi ekleme nasıl yapılır?
Öncelikle bilgisayarınızda kurulu değil ise Picasa programını indirip kurmanız gerekiyor. Bu yazı hazırlanırken google picasa'yı artık geliştirmeyeceğinden ve google fotoğraflar uygulamasına geçiş yaptığından dolayı google picasa'yı kaldırmış. Ancak birçok dosya indirme sitesinden picasa indirilebilir.
Dosyayı indirip kurduktan sonra picasa'yı çalıştırın. Picasa ilk kurulumda bazı klasörleri(Resimler, Belgeler, Masaüstü ...) zaten picasaya ekliyor.
Eğer sizin konum bilgisi eklenecek fotoğrafların olduğu klasör ekli değilse taranması için picasaya eklemelisiniz.
Menüden Dosya / Picasaya Klasör ekle ile eklenecek klasörleri belirleyin. Her zaman tara seçeneği klasör içindeki değişikliklerde otomatik taranacaktır.
Konum eklenecek fotoğrafı seçin. Aynı konumdaysa toplu konum eklemek için daha çok fotoğraf seçebilirsiniz.
Harita açık değilse menüden Görüntüle / Yerler tıklayın ya da Konum simgesini(1) tıklayın.
Haritayı büyültüp / küçülterek ya da kaydırarak gerekli konuma ulaşın veya arama kısmından haritada arma yapın(2)
Harita türünü(Harita / Uydu) değiştirebilirsiniz(5) Seçili fotoğraflara konum eklemek için haritadaki yeşil konum simgesine tıklayın(3)
Harita üzerine eklenen simgeyi kaydırarak konuma sürükleyin. Bıraktığınızda bir uyarı ekranı gelecek(4) Tamam'ı tıklayın. Yeşil simge kırmızıya dönecek.
Konum yanlış ise simgeyi tekrar sürükleyebilirsiniz(6) Konumu kaldırmak isterseniz haritada kırmızı konum simgesi(6) üzerinde tıklayın açılan menüden konum bilgisini sil tıklayın.
Yapılan konum değişiklikleri fotoğraf dosyasına kaydedildiği için başka bir işleme gerek duyulmamaktadır.
Çektiğiniz fotoğraflara ileriki zamanlarda baktığınızda "bu fotoğrafı nerede
çekmiştim" diye kara kara düşünmemek için fotoğraflarınıza coğrafi konum bilgisi
ekleyebilirsiniz.
Günümüz yeni cep telefonlarının çoğunda GPS olduğu
için fotoğraf çektiğimizde fotoğraf dosyasına konum bilgisini de eklemektedir.
Tabii kamera uygulamasının konum bilgisi kaydetme ayarı ve cihazın konum bilgisi
hizmeti açık ise.
Yeni çıkan bazı fotoğraf makinelerinde(çok az
modelde) de GPS bulunmakta ve konum bilgisi kaydetmektedir.
Burada
açıklayacağımız bilgiler konum bilgisi olmayan fotoğraflara konum bilgisi ekleme
üzerine olacaktır.
Bu işlemi yapmak için birkaç yol var. Birinci
bölümde en zahmetli olan yöntem ile nasıl yapılacağını açıklayacağım.
ExifTool ile fotoğraflara konum bilgisi ekleme nasıl yapılır?
Öncelikle exiftool.exe dosyasını edinmemiz gerekir. Bu yazı yazılırken
ExifTool 10.19 sürümü vardı.
Web sitesinden son sürümü indirin.
İnen
zipli dosyadaki exiftool(-k).exe adlı dosyayı exiftool.exe olarak
değiştirip C:\WINDOWS klasörüne taşıyın ya da kopyalayın.
Fotoğraftaki
exif bilgilerini görmek için komut satırından aşağıdaki komutu girebilirsiniz
exiftool C:\Resimler\fotograf-1.jpg
Bu komut aşağıdakine benzer bir çıktı verecektir. Eğer fotoğrafın GPS konum
bilgisi varsa onlar da listelenecektir. Ancak konum bilgisi yoksa bu bilgiler
listelenmeyecektir. Dosyanın konum bilgisi yoksa ya da yanlış ise dosyaya konum bilgisi
ekleyebiliriz.
