ReadDwgFile函数 在AutoCAD2006下的问题

obaby1221

报错-----尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
查了一下原来的帖子说是函数本身有问题，还有能解决的办法没，想复制块到数据库中，然后插入块
原来用2010的，但是有个小程序要用06写，有木有什么解决办法

   

1. Dim documents As DocumentCollection = Application.DocumentManager        Dim editor As Editor = documents.MdiActiveDocument.Editor        Dim database As Database = documents.MdiActiveDocument.Database        Dim sourceDb As New Database(False, False)        Dim ex As Autodesk.AutoCAD.Runtime.Exception        Try            sourceDb.ReadDwgFile(sourceFileName, FileShare.Write, True, Nothing)            Dim ids As ObjectIdCollection = New ObjectIdCollection()            Dim manager As Autodesk.AutoCAD.DatabaseServices.TransactionManager = sourceDb.TransactionManager            Dim transaction As Transaction = manager.StartTransaction            Using transaction                Dim table As BlockTable = CType(manager.GetObject(sourceDb.BlockTableId, OpenMode.ForRead, False), BlockTable)                Dim id As ObjectId                For Each id In table                    Dim record As BlockTableRecord = CType(manager.GetObject(id, OpenMode.ForRead, False), BlockTableRecord)                    If Not record.IsAnonymous And Not record.IsLayout Then                        ids.Add(id)                        record.Dispose()                    End If                Next                transaction.Commit()                table.Dispose()                transaction.Dispose()            End Using            'Dim mapping As New IdMapping            'Dim cloning As New DuplicateRecordCloning            sourceDb.WblockCloneObjects(ids, database.BlockTableId, DuplicateRecordCloning.Replace, False)            'doctemp.CloseAndDiscard()            'doctemp.Dispose()        Catch ex            editor.WriteMessage("复制出错" + ex.Message)        End Try        sourceDb.Dispose()        database.Dispose()

Dim documents As DocumentCollection = Application.DocumentManager        Dim editor As Editor = documents.MdiActiveDocument.Editor        Dim database As Database = documents.MdiActiveDocument.Database        Dim sourceDb As New Database(False, False)        Dim ex As Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Runtime.Exception        Try            sourceDb.ReadDwgFile(sourceFileName, FileShare.Write, True, Nothing)            Dim ids As ObjectIdCollection = New ObjectIdCollection()            Dim manager As Autodesk.AutoCAD.DatabaseServices.TransactionManager = sourceDb.TransactionManager            Dim transaction As Transaction = manager.StartTransaction            Using transaction                Dim table As BlockTable = CType(manager.GetObject(sourceDb.BlockTableId, OpenMode.ForRead, False), BlockTable)                Dim id As ObjectId                For Each id In table                    Dim record As BlockTableRecord = CType(manager.GetObject(id, OpenMode.ForRead, False), BlockTableRecord)                    If Not record.IsAnonymous And Not record.IsLayout Then                        ids.Add(id)                        record.Dispose()                    End If                Next                transaction.Commit()                table.Dispose()                transaction.Dispose()            End Using            'Dim mapping As New IdMapping            'Dim cloning As New DuplicateRecordCloning            sourceDb.WblockCloneObjects(ids, database.BlockTableId, DuplicateRecordCloning.Replace, False)            'doctemp.CloseAndDiscard()            'doctemp.Dispose()        Catch ex            editor.WriteMessage("复制出错" + ex.Message)        End Try        sourceDb.Dispose()        database.Dispose()

obaby1221

调试状态下有问题，非调试状态正常