Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
latitude and Longitude extract from MapPoint 2013 with VBS
25 views
Skip to first unread message
francoi...@sigeurope.com
Nov 8, 2013, 9:11:25 AM11/8/13
to
Hi,
With a vbscript application i need extract longitude and latitude from poi.
BEGIN Source code
Function debug(ma_valeur)
WScript.Echo "valeur:" & ma_valeur
debug = 0
end function
Set objApp = CreateObject("Mappoint.Application")
Set objMap = objApp.ActiveMap
set objLoc = objMap.location
objApp.Visible = false
objApp.UserControl = False
'Recherche une adresse
loc="1 boulevard de la reine,78000,versailles"
Set objLoc = objMap.FindAddressResults(loc)
dblLon = objLoc.Longitude 'error for this instruction error 800A01B6
dblLat = objLoc.Latitude
END source code
With a vbscript application i need extract longitude and latitude from poi.
BEGIN Source code
Function debug(ma_valeur)
WScript.Echo "valeur:" & ma_valeur
debug = 0
end function
Set objApp = CreateObject("Mappoint.Application")
Set objMap = objApp.ActiveMap
set objLoc = objMap.location
objApp.Visible = false
objApp.UserControl = False
'Recherche une adresse
loc="1 boulevard de la reine,78000,versailles"
Set objLoc = objMap.FindAddressResults(loc)
dblLon = objLoc.Longitude 'error for this instruction error 800A01B6
dblLat = objLoc.Latitude
END source code
0 new messages