Problem opening Sheet Set

We are trying to open a sheet set and then loop through all of the drawings in the set to pull the drawing properties out to create a custom table. Below is the code, it works fine until I get to the line marked (=>).

Public SheetDb As IAcSmDatabase
Public SheetSetMgr As IAcSmSheetSetMgr
Public Sheetset As IAcSmSheetSet
Public SheetT02 As IAcSmSheet

Private Sub CBOK_Click()
Dim FileName As String

FileName = cboFileName.Text

Set SheetDb = Nothing
Set Sheetset = Nothing

'Open chosen database sheetset file
=> Set SheetDb = SheetSetMgr.OpenDatabase("\\Gpdfwfile1\mechanical engineering\Sheet sets\PROJECTS\" & FileName, True)

'Lock the database before doing any operation on it
Call SheetDb.LockDb

'Get the sheet set from the database
Set Sheetset = SheetDb.GetSheetSet

Can anyone provide any insights?

Thanks,

Pat

Not sure about that but why don't you use Data Extraction already built into AutoCAD? Goto Tools -> Data Extraction then follow through the wizard from there. You can extract any info you need. Much better method in my opinion.

By the way, you can add as many drawings as you like to include in the Data Extraction process.

Hi Mcguirepm,

We are trying to attempt something similar in my office. When I tried your code I got an errors on your public variables. I also can’t find the sheet set terms you use in the object Library? Can you tell me were I might find out more about working with sheetsets in my code?

I figured out that I need to reference the AcSmComponents library. Thanks.