comp • gb.map • mappoint • getcenter

MapPoint.GetCenter (gb.map)

Static Function GetCenter ( hPoints As MapPoint[] ) As MapPoint

Returns the Central Point between several (array of) MapPoint positions.

  Dim aMP As New MapPoint[]
  Dim hMP As New MapPoint
  aMP = [MapPoint(48.866667, 2.333333), MapPoint(48.866667, 2.433333), MapPoint(48.966667, 2.433333), MapPoint(48.966667, 2.233333)]
  hMP = MapPoint.GetCenter(aMP)

  Print "Latitude " & hMP.Lat
  Print "Longitude " & hMP.Lon