EnableMergeAll Example

Using Programming Languages other than 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 IAcadTableStyle2
	keyName = "NewStyle"
	className = "AcDbTableStyle"
	Set customObj = dictObj.AddObject(keyName, className)

	customObj.Name = "NewStyle"
	customObj.Description = "New Style for My Tables"
  
	customObj.CreateCellStyle ("NewTestStyle2")
	Call customObj.EnableMergeAll("NewTestStyle2", False)

	If customObj.GetIsMergeAllEnabled("NewTestStyle2") = False Then
		MsgBox "Merge all is not enabled!"
	End If
End Sub

 

   Comments?