(vla-SetBackgroundColor custObj (+ acHeaderRow acTitleRow) colObj) (setq colObj (vlax-create-object (strcat 'AutoCAD.AcCmColor.' (substr (getvar 'ACADVER') 1 2)))) Set the background color for the Header and Title rows (vla-SetAlignment custObj acHeaderRow acMiddleCenter) (vla-SetAlignment custObj (+ acDataRow acTitleRow) acMiddleLeft) Set the alignment for the Data, Header, and Title rows Sets the vertical margin for the table cells (vla-put-TitleSuppressed custObj :vlax-false) Sets the horizontal margin for the table cells (vla-put-HeaderSuppressed custObj :vlax-false) (vla-put-FlowDirection custObj acTableTopToBottom) Sets the direction of the table, top to bottom or bottom to top (vla-put-Description custObj 'This is my custom table style') Set the name and description for the style (setq custObj (vla-AddObject dictObj key class)) (setq dictObj (vla-Item dicts 'acad_tablestyle')) Get the Dictionaries collection and the TableStyle dictionary Get the AutoCAD application and current document If the table style does exist, an error will occur.

The following sample code demonstrates how to create a new table style, but does not check to see if the table style already exists first. Once a reference to the ACAD_TABLESTYLE dictionary is obtained, you can then check to see if a table style already exists using the VLA-GETOBJECT function or add a table style using the VLA-ADDOBJECT function.

To create a table style, you must access the ACAD_TABLESTYLE dictionary in the current drawing. NOTE: ActiveX API is not available on AutoCAD for Mac. However, you can leverage the ActiveX API to create or modify table style and cell styles defined in your current drawing. Table styles in AutoCAD are primarily created using the Table Style dialog box (TABLESTYLE command) since there is no command line support, which limits the ability of creating a table style using a script or the COMMAND function in AutoLISP.

Autolisp revision table