使用选择集选择最后一个对象并删除

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.EditorInput
Imports ZwSoft.ZwCAD.Geometry


Namespace ZwApps
    Public Class Objects
        _
        Public Sub DeleteLastObject()
            Dim ZcDoc As Document = ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
            Dim ZcCurDb As Database = ZcDoc.Database
            Dim ZcED As Editor = ZcDoc.Editor


            Dim ZcSSPrompt As PromptSelectionResult
            ZcSSPrompt = ZcED.SelectLast()
            Dim ZcSSet As SelectionSet
            If ZcSSPrompt.Status = PromptStatus.OK Then
                ZcSSet = ZcSSPrompt.Value
                Using lockDocument As DocumentLock = ZcDoc.LockDocument
                    Using ZcTrans As Transaction = ZcCurDb.TransactionManager.StartTransaction()
                        For Each ZcSSObj As SelectedObject In ZcSSet
                            If Not IsDBNull(ZcSSObj) Then
                                Dim acEnt As Entity = ZcTrans.GetObject(ZcSSObj.ObjectId, OpenMode.ForWrite)
                                If Not IsDBNull(acEnt) Then
                                    acEnt.Erase()
                                    ZcED.Regen()
                                End If
                            End If
                        Next
                        ZcTrans.Commit()
                    End Using
                End Using
            End If
        End Sub
    End Class
End Namespace