–緯度経度→住所
on getAddressOf:aLocation
　　set aGeo to current application’s geocodingLib’s alloc()’s init()
　　aGeo’s getAddress:aLocation
　　
　　delay 1.0E-4
　　
　　repeat 1000 times
　　　　delay 1.0E-4
　　　　set aRes to aGeo’s placeAddress()
　　　　if aRes is not equal to missing value then exit repeat
　　end repeat
　　
　　if aRes is equal to missing value then return false
　　return aRes as string
end getAddressOf:

★Click Here to Open This Script　

–住所→緯度経度
on getGeoInfo:addressText
　　set aGeo to current application’s geocodingLib’s alloc()’s init()
　　aGeo’s getLatLong:addressText
　　
　　delay 1.0E-3
　　
　　repeat 1000 times
　　　　delay 1.0E-3
　　　　set aRes to aGeo’s placemarksArray()
　　　　if aRes is not equal to missing value then exit repeat
　　end repeat
　　
　　if aRes is equal to missing value then return false
　　
　　set aaRes to first item of aRes
　　set theDescription to aaRes’s |description|()
　　set theName to aaRes’s |name|() –> "河辺町x丁目XX-X"
　　set theCountry to aaRes’s country() –> "日本"
　　set thePostal to aaRes’s postalCode() –> "198-00XX"
　　set theAdminarea to aaRes’s administrativeArea() –> "東京都"
　　set theSubAdmin to aaRes’s subAdministrativeArea() –> (null)
　　set theLocality to aaRes’s locality() –> "青梅市"
　　set theSubLocality to aaRes’s subLocality() –> "河辺町"
　　set theThoroughfare to aaRes’s thoroughfare() –>"河辺町x丁目"
　　set theSubThoroughfare to aaRes’s subThoroughfare() –>"XX-X"
　　set theTZ to aaRes’s timeZone() –> "Asia/Tokyo (JST) offset 32400"
　　set theRegion to aaRes’s region() –> CLCircularRegion (identifier:’<+35.xxxxx,+139.xxxxx> radius 70.64’, center:<+35.xxxxx,+139.xxxxx0>, radius:70.64m)
　　set theRegCenter to theRegion’s |center|()
　　set aLat to theRegCenter’s latitude
　　set aLng to theRegCenter’s longitude
　　
　　return {aLat, aLng}
end getGeoInfo:

★Click Here to Open This Script