I have a problem with this code. On the last line of the code I receive the error:
eAlreadyInDb
What could be the problem?
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim brID As ObjectId
Dim btr As BlockTableRecord
Dim modelspace As BlockTableRecord
Dim i As Integer
Try
bt = CType(tr.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
modelspace = DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
Dim int_tile_mode As Integer
int_tile_mode = CInt(Application.GetSystemVariable("TILEMODE"))
If int_tile_mode = 1 Then
btr = CType(tr.GetObject(bt(BlockTableRecord.ModelSpace), Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite), BlockTableRecord)
Else
btr = CType(tr.GetObject(bt(BlockTableRecord.PaperSpace), Autodesk.AutoCAD.DatabaseServices.OpenMode.ForWrite), BlockTableRecord)
End If
brID = modelspace.AppendEntity(blockRef)
tr.AddNewlyCreatedDBObject(blockRef, True)