获取围绕给定坐标的POI

问题描述

我需要以某种方式请求半径为1km的指定坐标（纬度，经度）周围的兴趣点

仅一点请求POI就会返回零结果：

Sub SetTextBoxStyle()
  Dim objTextBox As Shape
  Dim objDoc As Document
  Set objDoc = WordApp.ActiveDocument
  For Each objTextBox In objDoc.Shapes
  If objTextBox.TextFrame.HasText Then
  objTextBox.TextFrame.TextRange.ParagraphFormat.LinespacingRule = wdLinespaceSingle
  objTextBox.TextFrame.TextRange.ParagraphFormat.SpaceAfter = 0
  End If
  Next objTextBox
End Sub

有什么方法可以通过指定坐标和半径而无需计算bBox来获取类似google maps api上的数据吗？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

openrouteservice