[编程交流] ：（：（：（关于SheetSetMgr的帮助）

Public Sub StepThroughTheSheetSetManager()
Dim oEnumDb As IAcSmEnumDatabase
Dim oItem As IAcSmPersist
'' Create a Reference to the Sheet Set Manager Object
Dim oSheetSetMgr As AcSmSheetSetMgr
'AcSmSheetSetMgr
[color="red"]Set oSheetSetMgr = New AcSmSheetSetMgr[/color]
'''
Dim oSheetDb As AcSmDatabase
   Set oSheetDb = oSheetSetMgr.GetDatabaseEnumerator().Next
'' Get Loaded Databases
Set oEnumDb = oSheetSetMgr.GetDatabaseEnumerator
'' Get First Open Database
Set oItem = oEnumDb.Next
'' Step through the Databases
Do While Not oItem Is Nothing
'' Display Sheet Set File Name
MsgBox oItem.GetDatabase.GetFileName
'' Get Next Open Database
Set oItem = oEnumDb.Next
Loop
End Sub

Your Code Here[/NOPARSE]

Your Code Here