arcgisvba创建UIbutton工具，实现循环地调转到Wind点图层中中每一个点到地图窗口中心，每隔1秒钟跳转一次。

以下是使用 ArcGIS VBA 实现的代码：

' 创建按钮
Private Sub CreateButton()
    Dim btn As ICommandBarButton
    Set btn = Application.Document.CommandBars("Map Menu").Controls.Add(msoControlButton)
    With btn
        .Caption = "跳转"
        .Style = msoButtonIconAndCaption
        .Tag = "JumpToNextPoint"
        .FaceId = 100
    End With
End Sub

' 定义跳转方法
Private Sub JumpToNextPoint()
    ' 获取当前地图窗口中心点
    Dim center As IPoint
    Set center = Application.Document.FocusMap.ActiveView.Extent.Center

    ' 计算下一个点的位置
    Dim nextPoint As IPoint
    If currentIndex = UBound(points) Then
        ' 如果已经是最后一个点，回到第一个点
        Set nextPoint = points(0)
        currentIndex = 0
    Else
        ' 否则，跳转到下一个点
        Set nextPoint = points(currentIndex + 1)
        currentIndex = currentIndex + 1
    End If

    ' 动画跳转到下一个点
    Application.Document.FocusMap.ActiveView.Extent.CenterAt nextPoint
End Sub

' 初始化数据
Private Sub InitData()
    ReDim points(3) As IPoint ' 自己定义点的坐标
    Set points(0) = New Point
    points(0).PutCoords 120, 30 ' 经度、纬度
    Set points(1) = New Point
    points(1).PutCoords 121, 31
    Set points(2) = New Point
    points(2).PutCoords 122, 32
    Set points(3) = New Point
    points(3).PutCoords 123, 33
    currentIndex = 0
End Sub

需要注意的是，这里使用了 ArcGIS VBA 编程，需要在 ArcMap 中打开 VBA 编辑器，然后在 `ThisDocument` 中编写代码。同时，需要在 `InitData` 方法中初始化点的坐标数据。