合并表格（Table）单元格

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




        U