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

最新推荐文章于 2021-01-12 23:53:55 发布

静喧

最新推荐文章于 2021-01-12 23:53:55 发布

阅读量1.5k

点赞数

分类专栏： ZWCAD .NET API开发文章标签： SelectLast .net 选择集最后一个对象 cad

本文链接：https://blog.csdn.net/jingxuan84/article/details/9714437

版权

这篇博客介绍了如何在CAD应用程序中利用.NET框架，通过选择集选择最后一个对象并将其删除。代码示例展示了如何获取当前文档，启动事务，选择最后一个对象，然后删除选定的对象，最后提交事务和更新编辑器。

摘要由CSDN通过智能技术生成

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