：（：（：（关于SheetSetMgr的帮助）
大家好！！我是新手。我对图纸集管理器（SSM）有一些想法，我参考了互联网上的一些代码并完成了它，但它不适合我。。。。请帮帮我为什么不工作
1.我正在参考AcSmComponents库（AcSmComponents18）
2.简单代码：
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
Set oSheetSetMgr = New AcSmSheetSetMgr
'''
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
3.红线处的错误429“错误429 ActiveX组件无法创建”
tks全部 请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here 向上的有人可以帮我！！！
页:
[1]