[求助]无法导入布局到图纸集

    Private Sub btnImport_Click(sender As Object, e As EventArgs) Handles btnImport.Click
        Try
            ' Get a reference to the Sheet Set Manager object
            Dim sheetSetManager As IAcSmSheetSetMgr
            sheetSetManager = New AcSmSheetSetMgr
            For Each item As ListViewItem In lvwLayouts.Items
                ' Open sheet set file
                Dim sheetSetDatabase As AcSmDatabase
                sheetSetDatabase = sheetSetManager.OpenDatabase(txtFileName.Text)
                ' Get the Sheet set from the database
                Dim sheetset As AcSmSheetSet
                sheetset = sheetSetDatabase.GetSheetSet()
                Dim strLayoutName As String = item.SubItems(0).Text
                Dim strSheetNum As String = item.SubItems(1).Text
                Dim strSheetName As String = item.SubItems(2).Text
                'Dim strObjID As String = item.SubItems(3).Text
                If sheetSetDatabase.GetLockStatus = AcSmLockStatus.AcSmLockStatus_UnLocked Then
                    sheetSetDatabase.LockDb(sheetSetDatabase)
                End If
                Dim layoutReference As New AcSmAcDbLayoutReference
                layoutReference.InitNew(sheetSetDatabase)
                layoutReference.SetFileName(Autodesk..ApplicationServices.Application.DocumentManager.MdiActiveDocument.Name)
                layoutReference.SetName(strLayoutName)
                Dim sheet As AcSmSheet
                sheet = sheetset.ImportSheet(layoutReference)
                sheetset.InsertComponent(sheet, Nothing)
                sheet.SetNumber(strSheetNum)
                sheet.SetTitle(strSheetName)
                sheetSetDatabase.UnlockDb(sheetSetDatabase)
                ' Close the sheet set
                sheetSetManager.Close(sheetSetDatabase)
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.Close()
    End Sub