Cad.net Delete Wipeout

Namespace Bccdelwipout
{
public class Draftingtools
{

[Commandmethod ("Bcc:wout")]

public static void Bccdeletewipout ()
{
Document doc = Application.DocumentManager.MdiActiveDocument;
Database db = Doc. Database;
Transaction TR = db. Transactionmanager.starttransaction ();

using (TR)
{
Blocktable BT = tr. GetObject (db. Blocktableid, Openmode.forwrite) as blocktable;
foreach (ObjectId objId in BT)
{
Blocktablerecord BTR = Objid.getobject (openmode.forwrite) as Blocktablerecord;

foreach (ObjectId Btrobjid in BTR)
{
Entity ent = Btrobjid.getobject (openmode.forwrite) as Entity;
if (ENT is wipeout)
{
Ent. Erase ();

}
}
} tr.commit ();
}
}
}
}