how make new block referecnce select items

[Anonymous]

Hi,
any body please help me on selected items to make new block refence as a given name.

[_gile]

Hi,

Here's a quick and dirty snippet

{code}[CommandMethod("Test")]
public void Test()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = doc.Database;
Editor ed = doc.Editor;
PromptSelectionResult psr = ed.GetSelection();
if (psr.Status == PromptStatus.OK)
{
PromptPointResult ppr = ed.GetPoint("\nInsertion point: ");
if (ppr.Status == PromptStatus.OK)
{
Point3d insPt = ppr.Value.TransformBy(ed.CurrentUserCoordinateSystem);
Point3d origin = new Point3d(0.0, 0.0, 0.0);
Vector3d disp = insPt.GetVectorTo(origin);
using (Transaction tr = db.TransactionManager.StartTransaction())
{
ObjectId[] ss = psr.Value.GetObjectIds();
BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForWrite);
string bName = String.Empty;
do
{
PromptResult pr = ed.GetString("\nBlock name: ");
if (pr.Status == PromptStatus.OK)
bName = pr.StringResult;
} while (bt.Has(bName));
if (bName != String.Empty)
{
BlockTableRecord btr = new BlockTableRecord();
btr.Name = bName;
bt.Add(btr);
tr.AddNewlyCreatedDBObject(btr, true);
foreach (ObjectId id in ss)
{
Entity ent = (Entity)tr.GetObject(id, OpenMode.ForWrite);
Entity copy = (Entity)ent.Clone();
btr.AppendEntity(copy);
tr.AddNewlyCreatedDBObject(copy, true);
copy.TransformBy(Matrix3d.Displacement(disp));
ent.Erase();
}
BlockReference blk = new BlockReference(insPt, btr.ObjectId);
btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
btr.AppendEntity(blk);
tr.AddNewlyCreatedDBObject(blk, true);
}
tr.Commit();
}
}
}
}{code}