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

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
        <CommandMethod("DeleteLastObject")> _
        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