Using Programming Languages other than VBA

Sub Example_GetGridVisibility()
	' This example creates a TableStyle object and sets values for 
	' the style name and other attributes.

	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 AcadTableStyle
	keyName = "NewStyle"
	className = "AcDbTableStyle"
	Set customObj = dictObj.AddObject(keyName, className)

	customObj.Name = "NewStyle"
	customObj.Description = "New Style for My Tables"
  
	customObj.FlowDirection = acTableBottomToTop
	customObj.HorzCellMargin = 0.22
	customObj.BitFlags = 1
	customObj.SetTextHeight AcRowType.acDataRow+AcRowType.acTitleRow, 1.3
  
	Dim col As New AcadAcCmColor
	col.SetRGB 12, 23, 45
	customObj.SetBackgroundColor AcRowType.acDataRow + AcRowType.acTitleRow, col
	customObj.SetBackgroundColorNone AcRowType.acDataRow + AcRowType.acTitleRow, False
	customObj.SetGridVisibility AcGridLineType.acHorzInside + AcGridLineType.acHorzTop _
			,AcRowType.acDataRow + AcRowType.acTitleRow, True
  
	customObj.SetAlignment AcRowType.acDataRow + AcRowType.acTitleRow, acBottomRight
	col.SetRGB 244, 0, 0
	customObj.SetGridColor 3, 1, col

	MsgBox "Table Style Name = " & customObj.Name & vbCrLf & _
		"Style Description = " & customObj.Description & vbCrLf & _
		"Flow Direction = " & customObj.FlowDirection & vbCrLf & _
		"Horzontal Cell Margin = " & customObj.HorzCellMargin & vbCrLf & _
		"Bit Flags = " & customObj.BitFlags & vbCrLf & _
		"Title Row Text Height = " & customObj.GetTextHeight(acTitleRow) & vbCrLf & _
		"Grid Visibility for HorizontalBottom TitleRow  = " & customObj.GetGridVisibility(acHorzBottom, acTitleRow) & vbCrLf & _
		"Title Row Alignment = " & customObj.GetAlignment(acTitleRow) & vbCrLf & _
		"Header Suppression = " & customObj.HeaderSuppressed
	
End Sub

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at webmaster@entercad.forsenergy.ru to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Additionally, a 500 Internal Server Error error was encountered while trying to use an ErrorDocument to handle the request.