从objectid（集合）或entity（集合）中删除对象

Imports AcDb = Autodesk.AutoCAD.DatabaseServices

Friend Sub EraseEntities(ByVal entitiy As AcDb.Entity)
Using db As AcDb.Database =
AcDb.HostApplicationServices.WorkingDatabase()
Using tr As AcDb.Transaction = 
db.TransactionManager.StartTransaction
Dim ent As AcDb.Entity = tr.GetObject(entitiy.ObjectId,
AcDb.OpenMode.ForWrite, False, True)
ent.Erase()
ent.Dispose()
tr.Commit()
End Using
End Using
End Sub

Friend Sub EraseEntities(ByVal entities() As AcDb.Entity)
Using db As AcDb.Database =
AcDb.HostApplicationServices.WorkingDatabase()
Using tr As AcDb.Transaction = 
db.TransactionManager.StartTransaction
For Each e As AcDb.Entity In entities
Dim ent As AcDb.Entity = tr.GetObject(e.ObjectId,
AcDb.OpenMode.ForWrite, False, True)
ent.Erase()
ent.Dispose()
Next
tr.Commit()
End Using
End Using
End Sub

Friend Sub EraseEntities(ByVal entitiy As AcDb.ObjectId)
Using db As AcDb.Database =
AcDb.HostApplicationServices.WorkingDatabase()
Using tr As AcDb.Transaction = 
db.TransactionManager.StartTransaction
Dim ent As AcDb.Entity = tr.GetObject(entitiy,
AcDb.OpenMode.ForWrite, False, True)
ent.Erase()
ent.Dispose()
tr.Commit()
End Using
End Using
End Sub

Friend Sub EraseEntities(ByVal entities() As AcDb.ObjectId)
Using db As AcDb.Database =
AcDb.HostApplicationServices.WorkingDatabase()
Using tr As AcDb.Transaction = 
db.TransactionManager.StartTransaction
For Each id As AcDb.ObjectId In entities
Dim ent As AcDb.Entity = tr.GetObject(id,
AcDb.OpenMode.ForWrite, False, True)
ent.Erase()
ent.Dispose()
Next
tr.Commit()
End Using
End Using
End Sub