VLISP创建表格样式

newer

下面 代码是VLISP创建表格样式并设置一些属性。

1. (defun c:test (/ appAcad docCurrent dicts dictTableStyle newTableStyle)
   
2.    (setq appAcad (vlax-get-acad-object) ;get the ACAD application object
   
3.            docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing
   
4.            dicts (vla-get-dictionaries docCurrent)
   
5.     dictTableStyle (vla-item dicts "acad_tablestyle")
   
6.    ) ;setq
   
7. 
   
8.    (setq newTableStyle(vla-addobject dictTableStyle "NewStyle" "AcDbTableStyle"))
   
9. 
   
10. 
    
11.    (vla-put-name newTableStyle "newStyle")
    
12.    (vla-put-description newTableStyle "New Style for My Tables")
    
13.    (vla-put-flowdirection newTableStyle 0)
    
14.    (vla-put-horzcellmargin newTableStyle 0.22)
    
15.    (vla-put-BitFlags newTableStyle 1)
    
16.    (vla-setTextHeight newTableStyle 3 1.3)
    
17.    (princ)
    
18.   )
    
19. 
    

(defun c:test (/ appAcad docCurrent dicts dictTableStyle newTableStyle)<br />    (setq appAcad (vlax-get-acad-object) ;get the ACAD application object<br />            docCurrent (vla-get-ActiveDocument appAcad) ;get the current drawing<br />            dicts (vla-get-dictionaries docCurrent)<br />     dictTableStyle (vla-item dicts "acad_tablestyle") <br />    ) ;setq<br /> <br />    (setq newTableStyle(vla-addobject dictTableStyle "NewStyle" "AcDbTableStyle"))<br /> <br /> <br />    (vla-put-name newTableStyle "newStyle")<br />    (vla-put-description newTableStyle "New Style for My Tables")<br />    (vla-put-flowdirection newTableStyle 0)<br />    (vla-put-horzcellmargin newTableStyle 0.22)<br />    (vla-put-BitFlags newTableStyle 1)<br />    (vla-setTextHeight newTableStyle 3 1.3)<br />    (princ) <br />   )<br /> <br />

HLCAD

我正好欠缺“表格”这一块的知识，谢谢楼主给我补上这一课。

/db_自贡黄明儒_

05以后才有的新东西，一直就没有用过。

kqqt6236

版主产量一直很高啊

wzjck01

还不够全面，功能有限，求完成表格功能