SpatialBookmark的使用

Posted by 蒋波涛 12 September,2006 Views (2)Comment

在许多GIS程序中，我们都可以看到两个相辅相成的功能“前一视图”和“后一视图”，要实现这个功能的办法其实很多，首先程序员可以在视图改变时将视图范围对象envelope保存到一个IArray或ISet对象中，然后依据某个标记取出其中的一个范围赋给当前范围，即可以实现这两个功能。第二是可以使用ISpatialBookmark对象，其实它做的事情与第一种方式无异，我个人甚至怀疑它是否就是按照这个思路实现的。

下面谈一谈具体的代码，首先我们两个公共变量，一是当前的视图号，只要地图的范围发生变化，我们都给它一个视图号并建立一个与视图号对应的spatialbookmark对象，添加到地图中去；另一个是在使用了两个功能中的一个后，用来标识当前视图是spatialbookmark中的哪一个的ID。

Public pViewChangeCount As Long '视图变化的数量
Public pChangeView As Long '目前视图在spatialbookmark中的空间戳ID

新建spatialbookmark的方法，在新建一个bookmark时，我们需要将两个ID号保持一致，以确定当前的视图就是最新的bookmark保存的视图范围：
    Public Sub CreateBookmark(ByVal pViewChangeCount As Long)
        Dim pAOIBookmark As IAOIBookmark
        pAOIBookmark = New AOIBookmark
        pAOIBookmark.Location = pMainAV.Extent
        pAOIBookmark.Name = pViewChangeCount.ToString

        Dim pMapBookmarks As IMapBookmarks
        pMapBookmarks = pMainMap
        pMapBookmarks.AddBookmark(pAOIBookmark)

pChangeView = pViewChangeCount
End Sub

我们假设一个事件使用这个方法，如放大地图的操作，使用这个方法如下：
pViewChangeCount = pViewChangeCount + 1
CreateBookmark(pViewChangeCount)

前一视图的方法：
   Public Sub PanToBookmark(ByVal pViewChangeCount As Long)
        Dim pMapBookmarks As IMapBookmarks
        pMapBookmarks = pMainMap
        Dim pEnumBookmarks As IEnumSpatialBookmark
        pEnumBookmarks = pMapBookmarks.Bookmarks
        pEnumBookmarks.Reset()
        Dim pBookMark As ISpatialBookmark
        pBookMark = pEnumBookmarks.Next     ' first bookmark in map
        Do While Not pBookMark Is Nothing
            If pBookMark.Name = (pChangeView - 1).ToString Then
                pBookMark.ZoomTo(pMainMap)
                pChangeView -= 1
                pMainAV.PartialRefresh(esriViewDrawPhase.esriViewGeography, Nothing, Nothing)
                Exit Sub
            End If
            pBookMark = pEnumBookmarks.Next
        Loop
    End Sub

后一视图的方法：
    Public Sub PanBackBookmark(ByVal pViewChangeCount As Long)
        Dim pMapBookmarks As IMapBookmarks
        pMapBookmarks = pMainMap
        Dim pEnumBookmarks As IEnumSpatialBookmark
        pEnumBookmarks = pMapBookmarks.Bookmarks
        pEnumBookmarks.Reset()
        Dim pBookMark As ISpatialBookmark
        pBookMark = pEnumBookmarks.Next     ' first bookmark in map
        Do While Not pBookMark Is Nothing
            If pBookMark.Name = (pChangeView + 1).ToString Then
                pBookMark.ZoomTo(pMainMap)
                pChangeView += 1
                pMainAV.PartialRefresh(esriViewDrawPhase.esriViewGeography, Nothing, Nothing)
                Exit Sub
            End If
            pBookMark = pEnumBookmarks.Next
        Loop
    End Sub

Related Items

Categories : ArcObjects Tags : ArcObjects

Comments

2006-9-14 10:57:58

您好，我看了您的书中有关ClassBreaksRenderer着色法那段代码，然后翻译成JAVA代码，但出现了很多问题，比如Histogram中的方法getHistogram(Object[] doubleArrayValues, Object[] longArrayFrequencies) 参数是两个数组，但在classify(Object doubleArrayValues, Object longArrayFrequencies, int[] numClasses)
方法中用到的时候就参数就不是数组了，这怎么转换啊，类似这样的地方还有很多，不知道有什么办法解决。

【回复】

Posted by 小良