Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Public Class ZwcadApp
<CommandMethod("DeleteEntity")> _
Public Sub DeleteEntity()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction
Dim ZcBLT As BlockTable= ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
For Each objID As ObjectId In ZcBLTR
Dim Ent As Entity = ZcTran.GetObject(objID, OpenMode.ForWrite)
Ent.Erase()
Next
ZcTran.Commit()
End Using
End Sub
End Class
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Public Class ZwcadApp
<CommandMethod("DeleteEntity")> _
Public Sub DeleteEntity()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction
Dim ZcBLT As BlockTable= ZcTran.GetObject(ZcDB.BlockTableId, OpenMode.ForRead)
Dim ZcBLTR As BlockTableRecord = ZcTran.GetObject(ZcBLT(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
For Each objID As ObjectId In ZcBLTR
Dim Ent As Entity = ZcTran.GetObject(objID, OpenMode.ForWrite)
Ent.Erase()
Next
ZcTran.Commit()
End Using
End Sub
End Class