编辑ZWCAD实体--复制对象

最新推荐文章于 2022-10-25 10:02:10 发布

静喧

最新推荐文章于 2022-10-25 10:02:10 发布

阅读量767

点赞数

分类专栏： ZWCAD .NET API开发文章标签：复制 cad .net copy 实体

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

版权

这篇博客介绍了如何通过.NET API在ZWCAD环境中实现对象的复制操作。首先获取活动文档和数据库，然后使用Editor获取选择的实体，并指定源点和目标点进行平移矩阵计算。最后，在模型空间中创建并添加复制后的实体到块表记录，并提交事务。

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

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

Public Class ZwcadApp
<CommandMethod("CopyObject")> _
Public Sub CopyObject()
Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim ZcDB As Database = ZcDoc.Database
Dim ZcEd As Editor = ZcDoc.Editor

Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()

Dim peo As New PromptEntityOptions(vbLf & "Select object:")
Dim per As PromptEntityResult = ZcEd.GetEntity(peo)
If per.Status <> PromptStatus.OK Then
Return
End If
Dim