我们试图打开一个图纸集，然后循环遍历该集中的所有图形，以提取图形属性来创建自定义表。下面是代码，在到达标记为（=>）的行之前，它工作正常。
- 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
谁能提供一些见解？
谢谢
拍打 | 
置顶卡
