GetAlignment2 Example

Using Programming Languages other than VBA

Sub Example_GetAlignment2()
	 ' 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 IAcadTableStyle2
	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.SetGridVisibility AcGridLineType.acHorzInside + AcGridLineType.acHorzTop _
			, AcRowType.acDataRow + AcRowType.acTitleRow, True
  
	Call customObj.SetAlignment2("NewStyle", 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

 

   Comments?