enotfromthisdocument error
You start a transaction from the active document TransactionManager (tr1) and try to use this transaction with the newly created Database (blkDb).
You have to start the transaction from the blkdb TransactionManager.
Using blkDb As Database = New Database(False, True)
blkDb.ReadDwgFile("C:\Base\BarChairD.dwg", IO.FileShare.ReadWrite, False, "")
Using tr1 As Transaction = blkDb.TransactionManager.StartTransaction()
'do your stuff with blkDb here
End Using 'disposing the transaction
End Using 'disposing the database
You have to save the database
Using blkDb As Database = New Database(False, True)
blkDb.ReadDwgFile("C:\Base\BarChairD.dwg", IO.FileShare.Read, True, "")
Using tr1 As Transaction = blkDb.TransactionManager.StartTransaction()
Dim BlkName As String = SymbolUtilityServices.GetBlockNameFromInsertPathName("C:\Base\BarChairD.dwg")
Dim id As ObjectId = blkDb.Insert(BlkName, blkDb, True)
If id.IsNull Then
ed.WriteMessage(vbLf & "Failed to insert block")
Return
End If
'Open the Block table record Model space for write
Dim acBlkTblRecbc As BlockTableRecord = CType(tr1.GetObject(blkDb.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
Dim br As New BlockReference(p1, id)
'' Add the new object to the block table record and the transaction
acBlkTblRecbc.AppendEntity(br)
br.SetDatabaseDefaults()
tr1.AddNewlyCreatedDBObject(br, True)
tr1.Commit()
End Using
blkDb.SaveAs("C:\Base\BarChairD.dwg", DwgVersion.Current)
End Using
According to what your described, it seems to me, you want to insert a block DWG file into another drawing file, which is not currently opened in AutoCAD editor (or it is already opened in AutoCAD editor). It sounds like there should have 2 drawings (or 2 databases) involved: one has an MTEXT in it as target drawing to be processed; and the other one as block file to be inserted into the former. However, your code logic does not indicate it is that case and only one drawing/database is dealt with by the code.
What your code does is:
1. You create an empty side database and read the file "C:\Base\BarChairD.dwg" into it. Now the question: is this database/dwg file is the one that has said MText in it and you want to insert a block into it?
2. The strange thing after the side database is created: you insert the side database into ITSELF(!!!) by this line of code, which also has the third parameter passed in as "True" (if a external file being inserted as Block, it should be "False")
Dim id As ObjectId = blkDb.Insert(BlkName, blkDb, True)
3. Eventually you save the side database back as "....\BarChairD.dwg". So is the database/file is the block file, or is the actual target drawing you want to insert a block into it?
So, what is you really want to do?
Here's a quick and dirty example to show how to insert a dwg file as block into the current space of a database.
/// <summary>
/// Inserts a dwg file as block
/// </summary>
/// <param name="targetDb">Database to which insert the block reference</param>
/// <param name="fileName">Path of the dwg file to be inserted</param>
/// <param name="blockName">Block name</param>
/// <param name="position">Insertion point</param>
/// <param name="attribValues">Dictionary of attribute values (tag, value pairs)</param>
/// <returns></returns>
private static ObjectId InsertBlockReference(Database targetDb, string fileName, string blockName, Point3d position, Dictionary<string, string> attribValues)
{
// import the file as block definition in the target database block table
ObjectId btrId;
using (var sourceDb = new Database(false, true))
{
sourceDb.ReadDwgFile(fileName, FileOpenMode.OpenForReadAndAllShare, false, null);
btrId = targetDb.Insert(blockName, sourceDb, true);
}
// insert the block in the target database current space
ObjectId brId;
using (var tr = targetDb.TransactionManager.StartTransaction())
{
var curSpace = (BlockTableRecord)tr.GetObject(targetDb.CurrentSpaceId, OpenMode.ForWrite);
var br = new BlockReference(position, btrId);
brId = curSpace.AppendEntity(br);
tr.AddNewlyCreatedDBObject(br, true);
// add the attribute references to the attribute collection of the block reference
var btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
var attDefclass = RXObject.GetClass(typeof(AttributeReference));
foreach (ObjectId id in btr)
{
if (id.ObjectClass == attDefclass)
{
var attDef = (AttributeDefinition)tr.GetObject(id, OpenMode.ForRead);
var attRef = new AttributeReference();
attRef.SetAttributeFromBlock(attDef, br.BlockTransform);
br.AttributeCollection.AppendAttribute(attRef);
tr.AddNewlyCreatedDBObject(attRef, true);
if (attribValues.ContainsKey(attRef.Tag))
{
attRef.TextString = attribValues[attRef.Tag];
}
}
}
tr.Commit();
}
return brId;
}
Here's an example with a command to insert the block in the curent space of the active drawing.
[CommandMethod("INSERTBARCHAIRD")]
public static void InsertBarChairD()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var db = doc.Database;
var ed = doc.Editor;
// select a mtext
var options = new PromptEntityOptions("\nSelect Mtext: ");
options.SetRejectMessage("\nselected object is not a MText.");
options.AddAllowedClass(typeof(MText), true);
var result = ed.GetEntity(options);
if (result.Status != PromptStatus.OK)
return;
string fileName = @"C:\Base\BarChairD.dwg";
string blockName = "BarChairD";
using (var tr = db.TransactionManager.StartTransaction())
{
// check if the block already exists in the block table
ObjectId btrId;
var blockTable = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
if (blockTable.Has(blockName))
{
btrId = blockTable[blockName];
}
else
{
// check if the file exists
if (!File.Exists(fileName))
{
ed.WriteMessage("\nFile not found.");
return;
}
// import the file as block definition in the target database block table
using (var sourceDb = new Database(false, true))
{
sourceDb.ReadDwgFile(fileName, FileOpenMode.OpenForReadAndAllShare, false, null);
btrId = db.Insert(blockName, sourceDb, true);
}
}
// open the selected mtext
var mtext = (MText)tr.GetObject(result.ObjectId, OpenMode.ForRead);
// insert the block reference
var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
var br = new BlockReference(mtext.Location, btrId);
curSpace.AppendEntity(br);
tr.AddNewlyCreatedDBObject(br, true);
// add the attribute references to the attribute collection of the block reference
var btr = (BlockTableRecord)tr.GetObject(btrId, OpenMode.ForRead);
var attDefclass = RXObject.GetClass(typeof(AttributeDefinition));
foreach (ObjectId id in btr)
{
if (id.ObjectClass == attDefclass)
{
var attDef = (AttributeDefinition)tr.GetObject(id, OpenMode.ForRead);
var attRef = new AttributeReference();
attRef.SetAttributeFromBlock(attDef, br.BlockTransform);
br.AttributeCollection.AppendAttribute(attRef);
tr.AddNewlyCreatedDBObject(attRef, true);
attRef.TextString = mtext.Text;
}
}
tr.Commit();
}
}
<EDIT: corrected code>
