topic Delete an entity in .NET Forum

Delete an entity

Anonymous — Fri, 17 Nov 2006 18:22:11 GMT

I just commited a deletion an entity belonged to selection set.
Any help, I would appreciate it.

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Interop.Common
Public Class GILSclass
_
Public Sub NFU()
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase()
Try
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim vls1() As TypedValue = {New TypedValue(8, "LEVEL")}
Dim sftr1 As New SelectionFilter(vls1)
Dim rs1 As PromptSelectionResult = ed.SelectAll(sftr1)
Dim i As Integer
Dim SS1 As Autodesk.AutoCAD.EditorInput.SelectionSet = rs1.Value
Dim idary1 As ObjectId() = SS1.GetObjectIds()
For i = 0 To idary1.Length - 1
Dim ent1 As DBText = trans.GetObject(idary1(i), OpenMode.ForRead, False)
ent1.Erase()
Next
End Using
Catch ex As Exception
Finally
End Try
End Sub
End Class

Re: Delete an entity

Anonymous — Sat, 18 Nov 2006 07:30:18 GMT

try to open the database "forwrite".
Ciao
GPaolo

ha scritto nel messaggio news:5400144@discussion.autodesk.com...
I just commited a deletion an entity belonged to selection set.
Any help, I would appreciate it.

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Interop.Common
Public Class GILSclass
_
Public Sub NFU()
Dim ed As Editor =
Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase()
Try
Using trans As Transaction =
db.TransactionManager.StartTransaction()
Dim vls1() As TypedValue = {New TypedValue(8, "LEVEL")}
Dim sftr1 As New SelectionFilter(vls1)
Dim rs1 As PromptSelectionResult = ed.SelectAll(sftr1)
Dim i As Integer
Dim SS1 As Autodesk.AutoCAD.EditorInput.SelectionSet =
rs1.Value
Dim idary1 As ObjectId() = SS1.GetObjectIds()
For i = 0 To idary1.Length - 1
Dim ent1 As DBText = trans.GetObject(idary1(i),
OpenMode.ForRead, False)
ent1.Erase()
Next
End Using
Catch ex As Exception
Finally
End Try
End Sub
End Class

Re: Delete an entity

Anonymous — Sat, 18 Nov 2006 14:43:58 GMT

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

tp

escreveu na mensagem news:5400144@discussion.autodesk.com...
I just commited a deletion an entity belonged to selection set.
Any help, I would appreciate it.

Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Interop.Common
Public Class GILSclass
_
Public Sub NFU()
Dim ed As Editor =
Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase()
Try
Using trans As Transaction =
db.TransactionManager.StartTransaction()
Dim vls1() As TypedValue = {New TypedValue(8, "LEVEL")}
Dim sftr1 As New SelectionFilter(vls1)
Dim rs1 As PromptSelectionResult = ed.SelectAll(sftr1)
Dim i As Integer
Dim SS1 As Autodesk.AutoCAD.EditorInput.SelectionSet =
rs1.Value
Dim idary1 As ObjectId() = SS1.GetObjectIds()
For i = 0 To idary1.Length - 1
Dim ent1 As DBText = trans.GetObject(idary1(i),
OpenMode.ForRead, False)
ent1.Erase()
Next
End Using
Catch ex As Exception
Finally
End Try
End Sub
End Class

I'm protected by SpamBrave
http://www.spambrave.com/

Re: Delete an entity

Anonymous — Sat, 18 Nov 2006 19:32:55 GMT

Thank you for your code, It helped.