1

在网上找了一些东西后，我自己发现了这个。花了我一段时间，但对于任何想知道如何做的人，请参见下文。此外，我发布的代码有一个很大的问题 acText 从未在其中声明过。我也错误地将它设置为等于 acadObj。它需要根据具体情况进行设置。下面是我的删除代码。它与打开工作数据库编辑器有关。

Public Sub deleteDBObject(ByRef dbObj As DBObject)
    Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
    Dim db As Database = HostApplicationServices.WorkingDatabase
    Dim tm As Transaction = db.TransactionManager.StartTransaction()
    Try
        Dim ent As Entity = CType(tm.GetObject(dbObj.Id, OpenMode.ForWrite), Entity)
        ent.Erase()
        ent = Nothing
        dbObj = Nothing
        tm.Commit()
    Catch
    Finally
        tm.Dispose()
    End Try
    Autodesk.AutoCAD.ApplicationServices.Application.UpdateScreen()
End Sub

如果有人知道如何以更好的方式做到这一点，或者他们是否可以解释为什么这样做会很热门。

4

1 回答 1

1

对不起，但我不明白。既然你已经有了一个DBObject(dbObj)，如果它是一个数据库常驻对象，调用它的Erase方法(dbObj.Erase())；如果不是，请不要理会它，.NET Framework 的 gc 会处理它。

于 2015-02-28T06:46:15.313 回答