GetAlignment2 Method (ActiveX)

Gets the cell alignment.

Supported platforms: Windows only

Signature

VBA:

RetVal = object.GetAlignment2(bstrCellStyle)

object

Type: TableStyle

The object this method applies to.

bstrCellStyle

Access: Input-only

Type: String

The cell style to check.

Return Value (RetVal)

Type: AcCellAlignment enum

The alignment used for the cell style.

• acBottomCenter: Centers text at a point based on the bottom of the text.
• acBottomLeft: Left-justifies text at a point based on the bottom of the text.
• acBottomRight: Right-justifies text at a point based on the bottom of the text.
• acMiddleCenter: Centers text at a point based on the middle of the text.
• acMiddleLeft: Left-justifies text at a point based on the middle of the text.
• acMiddleRight: Right-justifies text at a point based on the middle of the text.
• acTopCenter: Centers text at a point based on the top of the text.
• acTopLeft: Left-justifies text at a point based on the top of the text.
• acTopRight: Right-justifies text at a point based on the top of the text.

Remarks

No additional remarks.

Examples

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 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
    customObj.SetTextStyle AcRowType.acDataRow + AcRowType.acTitleRow, "Standard"
  
    Dim col As AcadAcCmColor
    Set col = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & Left(CStr(AcadApplication.Version), 2))
    col.SetRGB 12, 23, 45
    customObj.SetBackgroundColor AcRowType.acDataRow + AcRowType.acTitleRow, col
    customObj.SetGridVisibility AcGridLineType.acHorzInside + AcGridLineType.acHorzTop _
                                , AcRowType.acDataRow + AcRowType.acTitleRow, True
  
    customObj.CreateCellStyle "NewCellStyle"
    customObj.SetAlignment2 "NewCellStyle", 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 & _
           "Title Row Text Style = " & customObj.GetTextStyle(acTitleRow) & vbCrLf & _
           "Grid Visibility for HorizontalBottom TitleRow  = " & customObj.GetGridVisibility(acHorzBottom, acTitleRow) & vbCrLf & _
           "Title Row Alignment = " & customObj.GetAlignment2("NewCellStyle") & vbCrLf & _
           "Header Suppression = " & customObj.HeaderSuppressed
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_GetAlignment2()
    ;; This example creates a TableStyle object and sets values for 
    ;; the style name and other attributes.
    (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-put-FlowDirection customObj acTableBottomToTop)
    (vla-put-HorzCellMargin customObj 0.22)
    (vla-put-BitFlags customObj 1)
    (vla-SetTextHeight customObj (+ acDataRow acTitleRow) 1.3)
    (vla-SetTextStyle customObj (+ acDataRow acTitleRow) "Standard")

    (setq col (vlax-create-object (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
    (vla-SetRGB col 12 23 45)
  
    (vla-SetBackgroundColor customObj (+ acDataRow acTitleRow) col)
    (vla-SetGridVisibility customObj (+ acHorzInside acHorzTop) (+ acDataRow acTitleRow) :vlax-true)
    (vla-SetAlignment customObj (+ acDataRow acTitleRow) acBottomRight)

    (vla-CreateCellStyle customObj "NewCellStyle")
    (vla-SetAlignment2 customObj "NewCellStyle" acBottomRight)
  
    (vla-SetRGB col 244 0 0)
    (vla-SetGridColor customObj (+ acHorzTop acHorzInside) acDataRow col)
      
    (alert (strcat "Table Style Name = " (vla-get-Name customObj)
                   "\nStyle Description = " (vla-get-Description customObj)
                   "\nFlow Direction = " (itoa (vla-get-FlowDirection customObj))
                   "\nHorzontal Cell Margin = " (rtos (vla-get-HorzCellMargin customObj) 2)
                   "\nBit Flags = " (itoa (vla-get-BitFlags customObj))
                   "\nTitle Row Text Height = " (rtos (vla-GetTextHeight customObj acTitleRow) 2)
                   "\nTitle Row Text Style = " (vla-GetTextStyle customObj acTitleRow)
                   "\nGrid Visibility for HorizontalBottom TitleRow  = " (if (= (vla-GetGridVisibility customObj acHorzBottom acTitleRow) :vlax-true) "True" "False")
                   "\nCell Style Alignment = " (itoa (vla-GetAlignment2 customObj "NewCellStyle"))
	                  "\nHeader Suppression = " (if (= (vla-get-HeaderSuppressed customObj) :vlax-true) "True" "False")
	          )
    )
    (vlax-release-object col)  
)