合并表格（Table）单元格

最新推荐文章于 2024-07-12 00:07:26 发布

静喧

最新推荐文章于 2024-07-12 00:07:26 发布

阅读量891

点赞数

分类专栏： ZWCAD .NET API开发文章标签： .NET CAD merge table acad

本文链接：https://blog.youkuaiyun.com/jingxuan84/article/details/46427037

版权

ZWCAD .NET API开发专栏收录该内容

81 篇文章

订阅专栏

这段代码展示了如何在ZwCAD中实现合并表格单元格的功能。通过PromptEntityOptions选择表格，然后使用Transaction管理和Table对象的MergeCells方法，将选定表格的第一列全部单元格进行合并。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

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

Dim peo As New PromptEntityOptions(vbLf & "Select a table to merge!")
peo.SetRejectMessage(vbLf & "Must be a table!")
peo.AddAllowedClass(GetType(Table), True)

Dim per As PromptEntityResult = ZcEd.GetEntity(peo)
If per.Status <> PromptStatus.OK Then
Return
End If

Using ZcTrans As Transaction = ZcDB.TransactionManager.StartTransaction()
Dim tbl As Table = DirectCast(ZcTrans.GetObject(per.ObjectId, OpenMode.ForWrite), Table)
Dim columns As Int16 = tbl.NumColumns
tbl.MergeCells(New TableRegion(0, 0, 0, columns - 1))

ZcTrans.Commit()
End Using
End Sub
End Class