Try edited version
{code}
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.EditorInput
Imports acadApp = Autodesk.AutoCAD.ApplicationServices.Application
Public Class Class1
_
Public Sub XrefInsertion()
Dim doc As Document = acadApp.DocumentManager.MdiActiveDocument
Dim NomFichierXref As String = "C:\CERCLE.dwg"
Dim NomXref As String = "CERCLE"
Dim ed As Editor = doc.Editor()
Dim db As Database = doc.Database
Dim trans As Transaction = db.TransactionManager.StartTransaction()
Using (trans)
Try
Dim xrefObj As ObjectId = db.AttachXref(NomFichierXref, NomXref)
Dim bt As BlockTable = trans.GetObject(db.BlockTableId, OpenMode.ForRead, False)
Dim modelSpace As BlockTableRecord = trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)
Dim btr As BlockTableRecord = CType(trans.GetObject(xrefObj, OpenMode.ForWrite), BlockTableRecord)
Dim br As BlockReference = New BlockReference(New Point3d(0, 0, 0), xrefObj)
modelSpace.AppendEntity(br)
trans.AddNewlyCreatedDBObject(br, True)
trans.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
MsgBox(ex.Message & vbLf & ex.StackTrace)
End Try
End Using
End Sub
End Class
{code}
~'J'~
_____________________________________
C6309D9E0751D165D0934D0621DFF27919