CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

EnableMergeAll 方法（ActiveX）

2024-5-18 18:55| 发布者: admin| 查看: 342| 评论: 0|原作者: admin|来自: AutoCAD

控制单元格合并。

支持的平台：仅限 Windows

签名

VBA：

object.EnableMergeAll nRow, nCol, bEnable

对象

类型：Table、TableStyle

此方法应用到的对象。

nRow（n行）

访问：仅输入

类型：整数

行的值。

nCol （英语：nCol）

访问：仅输入

类型：整数

列的值。

b启用

访问：仅输入

类型：布尔

单元格合并的标志。

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

VBA：

Sub Example_EnableMergeAll()
    ' This example creates a TableStyle object and sets values for
    ' the style cell merging.
    
    Dim dictionaries As AcadDictionaries
    Set dictionaries = ThisDrawing.Database.dictionaries
  
    Dim dictObj As AcadDictionary
    Set dictObj = dictionaries.Item("acad_tablestyle")
  
    ' Create the custom TableStyle object in the dictionary
    Dim keyName As String
    Dim className As String
    Dim customObj As IAcadTableStyle
    keyName = "NewStyle"
    className = "AcDbTableStyle"
    Set customObj = dictObj.AddObject(keyName, className)
      
    customObj.Name = "NewStyle"
    customObj.Description = "New Style for My Tables"
  
    customObj.CreateCellStyle "NewTestStyle2"
    customObj.EnableMergeAll "NewTestStyle2", False
      
    If customObj.GetIsMergeAllEnabled("NewTestStyle2") = False Then
        MsgBox "Merge all is not enabled!"
    End If
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_EnableMergeAll()
    ;; This example creates a TableStyle object and sets values for
    ;; the style cell merging.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq dictionaries (vla-get-Dictionaries doc))
    (setq dictObj (vla-Item dictionaries "acad_tablestyle"))
  
    ;; Create the custom TableStyle object in the dictionary
    (setq keyName "NewStyle"
          className "AcDbTableStyle")
    (setq customObj (vla-AddObject dictObj keyName className))
      
    (vla-put-Name customObj "NewStyle")
    (vla-put-Description customObj "New Style for My Tables")
  
    (vla-CreateCellStyle customObj "NewTestStyle2")
    (vla-EnableMergeAll customObj "NewTestStyle2" :vlax-false)
      
    (if (= (vla-GetIsMergeAllEnabled customObj "NewTestStyle2") :vlax-false)
        (alert "Merge all is not enabled!")
    )
)