wblockclone dbtext into side database and then turn it into a blocktablerecord
Accepted solution
Here's an example:
[CommandMethod("TEST")]
public void Test()
{
var doc = Application.DocumentManager.MdiActiveDocument;
var sourceDb = doc.Database;
var ed = doc.Editor;
var opts = new PromptEntityOptions("\nSelect text: ");
opts.SetRejectMessage("\nSelected object is not a text.");
opts.AddAllowedClass(typeof(DBText), true);
var result = ed.GetEntity(opts);
if (result.Status != PromptStatus.OK) return;
var ids = new ObjectIdCollection();
ids.Add(result.ObjectId);
using (var targetDb = new Database(true, true))
{
ObjectId btrId;
using (var tr = targetDb.TransactionManager.StartTransaction())
{
var bt = (BlockTable)tr.GetObject(targetDb.BlockTableId, OpenMode.ForWrite);
var btr = new BlockTableRecord();
btr.Name = "test";
btrId = bt.Add(btr);
tr.AddNewlyCreatedDBObject(btr, true);
tr.Commit();
}
var mapping = new IdMapping();
sourceDb.WblockCloneObjects(ids, btrId, mapping, DuplicateRecordCloning.Ignore, false);
targetDb.SaveAs(@"C:\Temp\Foo.dwg", DwgVersion.Current);
}
}
Accepted solution
Sorry I have a hard time reading your code. In addition to being written in VB, it contains too many instructions that are not directly related to the subject and data that we do not know where they come from.
Just try to use the Database Constructor overload which takes two arguments:
Dim acSelectedDwgFileDatabase As Database = New Database (False, True)
You should also save the newly created database:
targetDb.SaveAs (...)
Could please tell which line of your code raise a ePermanetlyErase exception.
