从辅助数据库中删除布局

   Public Shared Sub DeleteTab(ByVal MyFileCollection As MyFiles)
        For Each AutoCadFile In MyFileCollection
            Using ExistDatabase As New Database(False, True)
                ExistDatabase.ReadDwgFile(AutoCadFile.SelectedFilePath, FileOpenMode.OpenForReadAndAllShare, False, Nothing)
                ExistDatabase.CloseInput(True)
                Using AcTrans As Transaction = ExistDatabase.TransactionManager.StartTransaction
                    Dim MyLayouts As DBDictionary = AcTrans.GetObject(ExistDatabase.LayoutDictionaryId, OpenMode.ForRead)
                    ' Step through each named layout and Model
                    For Each item As DBDictionaryEntry In MyLayouts
                        If item.Key = "English_Metric" Then
                            Dim MyItem As DBObject = AcTrans.GetObject(item.Value, OpenMode.ForWrite)
                            MyItem.Erase(True)
                        End If
                    Next
                    ExistDatabase.SaveAs(AutoCadFile.SelectedFilePath, DwgVersion.Current)
                    AcTrans.Commit()
                End Using
            End Using
        Next
    End Sub

   Public Shared Sub DeleteTab(ByVal MyFileCollection As MyFiles, ByVal LayoutName As String)
        Dim currentDatabase As Database = HostApplicationServices.WorkingDatabase
        For Each AutoCadFile In MyFileCollection
            Try
                Using targetDatabase As New Database(False, True)
                    targetDatabase.ReadDwgFile(AutoCadFile.SelectedFilePath, System.IO.FileShare.ReadWrite, False, Nothing)
                    HostApplicationServices.WorkingDatabase = targetDatabase
                    Using tr As Transaction = targetDatabase.TransactionManager.StartTransaction
                        Dim lm As LayoutManager = LayoutManager.Current
                        lm.DeleteLayout(LayoutName)
                        targetDatabase.SaveAs(AutoCadFile.SelectedFilePath, DwgVersion.Current)
                        targetDatabase.CloseInput(True)
                    End Using
                End Using
            Finally
                HostApplicationServices.WorkingDatabase = currentDatabase
            End Try
        Next
    End Sub