我写了一个函数

Public Function GetBookMarkByName(name As String, pMap As IMap) As IAOIBookmark     Dim pMapBkMks As IMapBookmarks     Set pMapBkMks = pMap          If pMapBkMks Is Nothing Then Exit Function     

   Dim pBkMk As ISpatialBookmark     Set pBkMk = pMapBkMks.Bookmarks.Next     If pBkMk Is Nothing Then Exit Function           Do While Not pBkMk Is Nothing         If pBkMk.name = name Then             Set GetBookMarkByName = pBkMk             Exit Function         End If         Set pBkMk = pMapBkMks.Bookmarks.Next     Loop

   Set GetBookMarkByName = Nothing      End Function

可是有问题，我发现循环中的Set pBkMk = pMapBkMks.Bookmarks.Next 好像没有作用，形成一个死循环。有谁用过IMapBookmarks，来帮忙看看

This sample shows one method for creating a new Area of Interest
bookmark:
Public Sub AddSpatialBookMark()
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pActiveView As IActiveView
Dim pAreaOfInterest As IAOIBookmark
Dim pMapBookmarks As IMapBookmarks
Set pMxDoc = Application.Document
Set pMap = pMxDoc.FocusMap
Set pActiveView = pMap
'Create a new bookmark and set its location to the focus map's
'current extent
Set pAreaOfInterest = New AOIBookmark
Set pAreaOfInterest.Location = pActiveView.Extent
'Give the bookmark a name
pAreaOfInterest.Name = "My bookmark"
'Add the bookmark to the map's bookmark collection.This will add
'the bookmark to the Bookmarks menu accessible from the View menu
Set pMapBookmarks = pMap
pMapBookmarks.AddBookmark pAreaOfInterest
End Sub
This sample shows one way to find an existing spatial bookmark andzoom to its stored extent:
Public Sub ZoomToBookmark()
Dim pMxDoc As IMxDocument
Dim pMapBookmarks As IMapBookmarks
Dim pEnumBookmarks As IEnumSpatialBookmark
Dim pBookmark As ISpatialBookmark
Set pMxDoc = Application.Document
Set pMapBookmarks = pMxDoc.FocusMap
Set pEnumBookmarks = pMapBookmarks.Bookmarks
pEnumBookmarks.Reset
Set pBookmark = pEnumBookmarks.Next
Do While Not pBookmark Is Nothing
If pBookmark.Name = "My bookmark" Then
pBookmark.ZoomTo pMxDoc.FocusMap
pMxDoc.ActiveView.Refresh
Exit Sub
End If
Set pBookmark = pEnumBookmarks.Next
Loop
End Sub

Bookmark Manager

这个例子