Creating a Table Style with AutoLISP and the ActiveX API

Free-Lancer

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.  However, you can leverage the ActiveX API to create or modify table style and cell styles defined in your current drawing.
NOTE: ActiveX API is not available on AutoCAD for Mac.
To create a table style, you must access the ACAD_TABLESTYLE dictionary in the current drawing.  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.
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.  If the table style does exist, an error will occur.

1. (vl-load-com)
   
2. (defun c:CreateTableStyle ()
   
3.   ;; Get the AutoCAD application and current document
   
4.   (setq acad (vlax-get-acad-object))
   
5.   (setq doc (vla-get-ActiveDocument acad))
   
6.   ;; Get the Dictionaries collection and the TableStyle dictionary
   
7.   (setq dicts (vla-get-Dictionaries doc))
   
8.   (setq dictObj (vla-Item dicts "acad_tablestyle"))
   
9.   ;; Create a custom table style
   
10.   (setq key   "MyTableStyle"
    
11. class "AcDbTableStyle"
    
12.   )
    
13.   (setq custObj (vla-AddObject dictObj key class))
    
14.   ;; Set the name and description for the style
    
15.   (vla-put-Name custObj "MyTableStyle")
    
16.   (vla-put-Description
    
17.     custObj
    
18.     "This is my custom table style"
    
19.   )
    
20.   ;; Sets the bit flag value for the style
    
21.   (vla-put-BitFlags custObj 1)
    
22.   ;; Sets the direction of the table, top to bottom or bottom to top
    
23.   (vla-put-FlowDirection custObj acTableTopToBottom)
    
24.   ;; Sets the supression of the table header
    
25.   (vla-put-HeaderSuppressed custObj :vlax-false)
    
26.   ;; Sets the horizontal margin for the table cells
    
27.   (vla-put-HorzCellMargin custObj 0.22)
    
28.   ;; Sets the supression of the table title
    
29.   (vla-put-TitleSuppressed custObj :vlax-false)
    
30.   ;; Sets the vertical margin for the table cells
    
31.   (vla-put-VertCellMargin custObj 0.22)
    
32.   ;; Set the alignment for the Data, Header, and Title rows
    
33.   (vla-SetAlignment
    
34.     custObj
    
35.     (+ acDataRow acTitleRow)
    
36.     acMiddleLeft
    
37.   )
    
38.   (vla-SetAlignment custObj acHeaderRow acMiddleCenter)
    
39.   ;; Set the background color for the Header and Title rows
    
40.   (setq colObj (vlax-create-object "AutoCAD.AcCmColor.19"))
    
41.   (vla-SetRGB colObj 98 136 213)
    
42.   (vla-SetBackgroundColor
    
43.     custObj
    
44.     (+ acHeaderRow acTitleRow)
    
45.     colObj
    
46.   )
    
47.   ;; Clear the background color for the Data rows
    
48.   (vla-SetBackgroundColorNone custObj acDataRow :vlax-true)
    
49.   ;; Set the bottom grid color for the Title row
    
50.   (vla-SetRGB colObj 0 0 255)
    
51.   (vla-SetGridColor custObj acHorzBottom acTitleRow colObj)
    
52.   ;; Set the bottom grid lineweight for the Title row
    
53.   (vla-SetGridLineWeight
    
54.     tableStyle
    
55.     acHorzBottom
    
56.     acTitleRow
    
57.     acLnWt025
    
58.   )
    
59.   ;; Set the inside grid lines visible for the data and header rows
    
60.   (vla-SetGridVisibility
    
61.     custObj
    
62.     acHorzInside
    
63.     (+ acDataRow acHeaderRow)
    
64.     :vlax-true
    
65.   )
    
66.   ;; Set the text height for the Title, Header and Data rows
    
67.   (vla-SetTextHeight custObj acTitleRow 1.5)
    
68.   (vla-SetTextHeight custObj (+ acDataRow acHeaderRow) 1.0)
    
69.   ;; Set the text height and style for the Title row
    
70.   (vla-SetTextStyle
    
71.     custObj
    
72.     (+ acDataRow acHeaderRow acTitleRow)
    
73.     "Standard"
    
74.   )
    
75.   ;; Release the color object
    
76.   (vlax-release-object colObj)
    
77.   (princ)
    
78. )

(vl-load-com)<br /> (defun c:CreateTableStyle ()<br />   ;; Get the AutoCAD application and current document<br />   (setq acad (vlax-get-acad-object))<br />   (setq doc (vla-get-ActiveDocument acad))<br />   ;; Get the Dictionaries collection and the TableStyle dictionary<br />   (setq dicts (vla-get-Dictionaries doc))<br />   (setq dictObj (vla-Item dicts "acad_tablestyle"))<br />   ;; Create a custom table style<br />   (setq key   "MyTableStyle"<br /> class "AcDbTableStyle"<br />   )<br />   (setq custObj (vla-AddObject dictObj key class))<br />   ;; Set the name and description for the style<br />   (vla-put-Name custObj "MyTableStyle")<br />   (vla-put-Description<br />     custObj<br />     "This is my custom table style"<br />   )<br />   ;; Sets the bit flag value for the style<br />   (vla-put-BitFlags custObj 1)<br />   ;; Sets the direction of the table, top to bottom or bottom to top<br />   (vla-put-FlowDirection custObj acTableTopToBottom)<br />   ;; Sets the supression of the table header<br />   (vla-put-HeaderSuppressed custObj :vlax-false)<br />   ;; Sets the horizontal margin for the table cells<br />   (vla-put-HorzCellMargin custObj 0.22)<br />   ;; Sets the supression of the table title<br />   (vla-put-TitleSuppressed custObj :vlax-false)<br />   ;; Sets the vertical margin for the table cells<br />   (vla-put-VertCellMargin custObj 0.22)<br />   ;; Set the alignment for the Data, Header, and Title rows<br />   (vla-SetAlignment<br />     custObj<br />     (+ acDataRow acTitleRow)<br />     acMiddleLeft<br />   )<br />   (vla-SetAlignment custObj acHeaderRow acMiddleCenter)<br />   ;; Set the background color for the Header and Title rows<br />   (setq colObj (vlax-create-object "AutoCAD.AcCmColor.19"))<br />   (vla-SetRGB colObj 98 136 213)<br />   (vla-SetBackgroundColor<br />     custObj<br />     (+ acHeaderRow acTitleRow)<br />     colObj<br />   )<br />   ;; Clear the background color for the Data rows<br />   (vla-SetBackgroundColorNone custObj acDataRow :vlax-true)<br />   ;; Set the bottom grid color for the Title row<br />   (vla-SetRGB colObj 0 0 255)<br />   (vla-SetGridColor custObj acHorzBottom acTitleRow colObj)<br />   ;; Set the bottom grid lineweight for the Title row<br />   (vla-SetGridLineWeight<br />     tableStyle<br />     acHorzBottom<br />     acTitleRow<br />     acLnWt025<br />   )<br />   ;; Set the inside grid lines visible for the data and header rows<br />   (vla-SetGridVisibility<br />     custObj<br />     acHorzInside<br />     (+ acDataRow acHeaderRow)<br />     :vlax-true<br />   )<br />   ;; Set the text height for the Title, Header and Data rows<br />   (vla-SetTextHeight custObj acTitleRow 1.5)<br />   (vla-SetTextHeight custObj (+ acDataRow acHeaderRow) 1.0)<br />   ;; Set the text height and style for the Title row<br />   (vla-SetTextStyle<br />     custObj<br />     (+ acDataRow acHeaderRow acTitleRow)<br />     "Standard"<br />   )<br />   ;; Release the color object<br />   (vlax-release-object colObj)<br />   (princ)<br /> )

/db_自贡黄明儒_

楼主随便说几汉字吧{:soso_e147:}

cie0588

全英文那里看的懂，自己写的请用中午。别人的请翻译过来。。。

st788796

如果把前面说明删掉仅剩代码能看懂吗？来自: Android客户端

/db_自贡黄明儒_

楼主看看是不是应该这样
(vla-SetGridLineWeight tableStyle acHorzBottom acTitleRow acLnWt025)
(vla-SetGridLineWeight custObj acHorzBottom acTitleRow acLnWt025)

zhangq_cai1

应该开个英文板块~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~·