如何删除数据库实体？

雪山飞狐_lzh

2.        <CommandMethod("TlsSB")> Public Shared Sub TlsSelectionSetBreak()
3.                Dim pTM As New TlsTM
4.                Dim obj, pnt As Object
5.                pTM.StartTrans()
6.                Try
7.                        Dim pId As ObjectId
8.                        Dim pLength As Double
9.                        Dim pCurve As Curve
10.                        Dim pnts As New Point3dCollection
11.                        Dim i As Curve
12.                        pTM.OpenBlockTableRecord(BlockTableRecord.ModelSpace)
13.                        pTM.Utility.GetEntity(obj, pnt)
14.                        pId.OldId = obj.ObjectId
15.                        pCurve = pId.Open(OpenMode.ForNotify, False, True)
16.                        pLength = pCurve.GetDistAtPoint(pCurve.EndPoint)
17.                        pnts.Add(pCurve.GetPointAtDist(pLength / 4))
18.                        pnts.Add(pCurve.GetPointAtDist(pLength / 2))
19.                        pnts.Add(pCurve.GetPointAtDist(pLength * 3 / 4))
20.                        pCurve.GetSplitCurves(pnts)
21.                        For Each i In pCurve.GetSplitCurves(pnts)
22.                                pTM.AddEntity(i)
23.                        Next
24.                        pCurve.Close()
25.                        pTM.CommitTrans()
26.                Catch ex As Exception
27.                        MsgBox(ex.Message)
28.                Finally
29.                        pTM.Dispose()
30.                End Try
31.        End Sub

       <CommandMethod("TlsSB")> Public Shared Sub TlsSelectionSetBreak()                Dim pTM As New TlsTM                Dim obj, pnt As Object                pTM.StartTrans()                Try                        Dim pId As ObjectId                        Dim pLength As Double                        Dim pCurve As Curve                        Dim pnts As New Point3dCollection                        Dim i As Curve                        pTM.OpenBlockTableRecord(BlockTableRecord.ModelSpace)                        pTM.Utility.GetEntity(obj, pnt)                        pId.OldId = obj.ObjectId                        pCurve = pId.Open(OpenMode.ForNotify, False, True)                        pLength = pCurve.GetDistAtPoint(pCurve.EndPoint)                        pnts.Add(pCurve.GetPointAtDist(pLength / 4))                        pnts.Add(pCurve.GetPointAtDist(pLength / 2))                        pnts.Add(pCurve.GetPointAtDist(pLength * 3 / 4))                        pCurve.GetSplitCurves(pnts)                        For Each i In pCurve.GetSplitCurves(pnts)                                pTM.AddEntity(i)                        Next                        pCurve.Close()                        pTM.CommitTrans()                Catch ex As Exception                        MsgBox(ex.Message)                Finally                        pTM.Dispose()                End Try        End Sub

1.   

复制代码

2. Imports Autodesk.AutoCAD.ApplicationServices
3. Imports Autodesk.AutoCAD.DatabaseServices
4. Imports Autodesk.AutoCAD.Runtime
5. Imports Autodesk.AutoCAD.Interop
6. Imports Autodesk.AutoCAD.Geometry
7. Imports AutoCadTM = Autodesk.AutoCAD.DatabaseServices.TransactionManager Public Class TlsTM
8.        Private pDatabase As Database
9.        Private pTransactionManager As AutoCadTM
10.        Private pStartTransaction As Transaction
11.        Private pBlockTable As BlockTable
12.        Private pBlockTableRecord As BlockTableRecord       '程序功能：向当前块表记录中加入实体
13.        Public Function AddEntity(ByVal TlsEntity As DBObject)               pBlockTableRecord.AppendEntity(TlsEntity)
14.                pTransactionManager.AddNewlyCreatedDBObject(TlsEntity, True)       End Function       '程序功能：向当前块表记录中加入实体数组
15.        Public Function AddEntity(ByVal TlsEntity As DBObject())               Dim i As DBObject               For Each i In TlsEntity                       pBlockTableRecord.AppendEntity(i)
16.                        pTransactionManager.AddNewlyCreatedDBObject(i, True)               Next i       End Function       '程序功能：生成一个新块，并加入实体
17.        Public Function AddBlock(ByVal Name As String, ByVal Entitys As DBObject()) As ObjectId
18.                Dim i As DBObject
19.                Dim pDatabase As Database = Application.DocumentManager.MdiActiveDocument.Database
20.                Dim pTransactionManager As AutoCadTM = pDatabase.TransactionManager
21.                Dim pStartTransaction As Transaction = pTransactionManager.StartTransaction()
22.                Try                       Dim pBlockTable As BlockTable = CType(pTransactionManager.GetObject(pDatabase.BlockTableId, OpenMode.ForWrite, False), BlockTable)
23.                        Dim pBlockTableRecord As New BlockTableRecord
24.                        pBlockTableRecord.Name = Name
25.                        pBlockTable.Add(pBlockTableRecord)
26.                        Dim pId As ObjectId = pBlockTableRecord.Id                       For Each i In Entitys
27.                                pBlockTableRecord.AppendEntity(i)
28.                                pTransactionManager.AddNewlyCreatedDBObject(i, True)
29.                        Next i                       pBlockTableRecord.Close()
30.                        pBlockTable.Close()
31.                        pStartTransaction.Commit()                       Return pId               Finally                       pStartTransaction.Dispose()               End Try       End Function       '开始事务
32.        Public Sub StartTrans()               pDatabase = Application.DocumentManager.MdiActiveDocument.Database
33.                pTransactionManager = pDatabase.TransactionManager
34.                pStartTransaction = pTransactionManager.StartTransaction()       End Sub       '打开一个块表记录
35.        Public Sub OpenBlockTableRecord(ByVal str As String)               pBlockTable = CType(pTransactionManager.GetObject(pDatabase.BlockTableId, OpenMode.ForRead, False), BlockTable)
36.                pBlockTableRecord = CType(pTransactionManager.GetObject(pBlockTable(str), OpenMode.ForWrite, False), BlockTableRecord)       End Sub       '事务提交
37.        Public Sub CommitTrans()               pBlockTableRecord.Close()
38.                pBlockTable.Close()               pStartTransaction.Commit()       End Sub       '事务结束
39.        Public Sub Dispose()               pStartTransaction.Dispose()
40.                pBlockTableRecord = Nothing
41.                pBlockTable = Nothing
42.                pStartTransaction = Nothing
43.                pTransactionManager = Nothing
44.                pDatabase = Nothing       End Sub
45.        '获取当前的辅助工具
46.        Public Function Utility() As AcadUtility               Return Application.AcadApplication.ActiveDocument.Utility       End Function
47.        Public Function AddLine(ByVal pointer1() As Double, ByVal pointer2() As Double) As Line               Dim pLine As Line               pLine = New Line( _
48.                                        New Point3d(pointer1(0), pointer1(1), pointer1(2)), _
49.                                        New Point3d(pointer2(0), pointer2(1), pointer2(2)))               AddEntity(pLine)               Return pLine       End FunctionEnd Class

Imports Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.Interop Imports Autodesk.AutoCAD.Geometry Imports AutoCadTM = Autodesk.AutoCAD.DatabaseServices.TransactionManager Public Class TlsTM        Private pDatabase As Database        Private pTransactionManager As AutoCadTM        Private pStartTransaction As Transaction        Private pBlockTable As BlockTable        Private pBlockTableRecord As BlockTableRecord       '程序功能：向当前块表记录中加入实体        Public Function AddEntity(ByVal TlsEntity As DBObject)               pBlockTableRecord.AppendEntity(TlsEntity)                pTransactionManager.AddNewlyCreatedDBObject(TlsEntity, True)       End Function       '程序功能：向当前块表记录中加入实体数组        Public Function AddEntity(ByVal TlsEntity As DBObject())               Dim i As DBObject               For Each i In TlsEntity                       pBlockTableRecord.AppendEntity(i)                        pTransactionManager.AddNewlyCreatedDBObject(i, True)               Next i       End Function       '程序功能：生成一个新块，并加入实体        Public Function AddBlock(ByVal Name As String, ByVal Entitys As DBObject()) As ObjectId                Dim i As DBObject                Dim pDatabase As Database = Application.DocumentManager.MdiActiveDocument.Database                Dim pTransactionManager As AutoCadTM = pDatabase.TransactionManager                Dim pStartTransaction As Transaction = pTransactionManager.StartTransaction()                Try                       Dim pBlockTable As BlockTable = CType(pTransactionManager.GetObject(pDatabase.BlockTableId, OpenMode.ForWrite, False), BlockTable)                        Dim pBlockTableRecord As New BlockTableRecord                        pBlockTableRecord.Name = Name                        pBlockTable.Add(pBlockTableRecord)                        Dim pId As ObjectId = pBlockTableRecord.Id                       For Each i In Entitys                                pBlockTableRecord.AppendEntity(i)                                pTransactionManager.AddNewlyCreatedDBObject(i, True)                        Next i                       pBlockTableRecord.Close()                        pBlockTable.Close()                        pStartTransaction.Commit()                       Return pId               Finally                       pStartTransaction.Dispose()               End Try       End Function       '开始事务        Public Sub StartTrans()               pDatabase = Application.DocumentManager.MdiActiveDocument.Database                pTransactionManager = pDatabase.TransactionManager                pStartTransaction = pTransactionManager.StartTransaction()       End Sub       '打开一个块表记录        Public Sub OpenBlockTableRecord(ByVal str As String)               pBlockTable = CType(pTransactionManager.GetObject(pDatabase.BlockTableId, OpenMode.ForRead, False), BlockTable)                pBlockTableRecord = CType(pTransactionManager.GetObject(pBlockTable(str), OpenMode.ForWrite, False), BlockTableRecord)       End Sub       '事务提交        Public Sub CommitTrans()               pBlockTableRecord.Close()                pBlockTable.Close()               pStartTransaction.Commit()       End Sub       '事务结束        Public Sub Dispose()               pStartTransaction.Dispose()                pBlockTableRecord = Nothing                pBlockTable = Nothing                pStartTransaction = Nothing                pTransactionManager = Nothing                pDatabase = Nothing       End Sub        '获取当前的辅助<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>        Public Function Utility() As AcadUtility               Return Application.AcadApplication.ActiveDocument.Utility       End Function        Public Function AddLine(ByVal pointer1() As Double, ByVal pointer2() As Double) As Line               Dim pLine As Line               pLine = New Line( _                                        New Point3d(pointer1(0), pointer1(1), pointer1(2)), _                                        New Point3d(pointer2(0), pointer2(1), pointer2(2)))               AddEntity(pLine)               Return pLine       End FunctionEnd Class

上述代码四分曲线后，如何将原实体删除？如果用obj.Delete()倒是可行，但不是正规的Arx方法

zfbj

试一下Entity类从DBObject类继承来的Erase方法。

雪山飞狐_lzh

用过Erase方法，总是出错，晕了