打开图纸集时出现问题
我们试图打开一个图纸集，然后循环遍历该集中的所有图形，以提取图形属性来创建自定义表。下面是代码，在到达标记为（=>）的行之前，它工作正常。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
谁能提供一些见解？
谢谢
拍打 对此不确定，但为什么不使用AutoCAD中已经内置的数据提取？转到“工具”->“数据提取”，然后从那里执行向导。你可以提取你需要的任何信息。在我看来，这是一种更好的方法。 顺便说一句，您可以添加任意数量的图形，以包括在数据提取过程中。 嗨，Mcguirepm，
我们正试图在我的办公室里做类似的事情。当我尝试你的代码时，你的公共变量出现了一个错误。我在对象库中也找不到您使用的图纸集术语？你能告诉我，我是否可以在代码中找到更多关于使用图纸集的信息？ 我发现我需要引用AcSmComponents库。谢谢
页:
[1]