列出图纸集中的绘图

'This example lists all sheet sets
Sub Example_SSListAll()
    Dim sheetset As New sheetset
    ' Get the sheet set manager
    Dim ssMgr As New AcSmSheetSetMgr
    Dim dbIter As IAcSmEnumDatabase
    Dim db As IAcSmDatabase
    
    Set dbIter = ssMgr.GetDatabaseEnumerator
    
    Set db = dbIter.Next
    Do While Not db Is Nothing
        ThisDrawing.Utility.Prompt ("----------BEGIN------------" & vbCrLf)
        sheetset.List db
        Set db = Nothing
        Set db = dbIter.Next
        ThisDrawing.Utility.Prompt ("---------- END ------------" & vbCrLf)
    Loop
    
    Set dbIter = Nothing
    Set ssMgr = Nothing
    
    ThisDrawing.Application.Update
End Sub