CAD Table属性设置求助

飞雪神光

1是除了table命令本身 怎么设置切换当前的表格样式

2是主要的问题 怎么用代码设置他的方向

lee50310

1.
若新設表格型式名稱為 "NewStyle"
要設為目前使用語法如下
(setvar "ctablestyle" "NewStyle")     ; NewStyle設為目前使用

使用系統自設表格型式名稱 "Standard" 則改為
(setvar "ctablestyle" "Standard")     ;Standard設為目前使用的

2.
部分程式

1.    (setq acadObj (vlax-get-acad-object))                           ;獲取AutoCAD應用程序
   
2.     (setq doc (vla-get-ActiveDocument acadObj))               ;獲取活動文檔對象  
   
3.     (setq dictionaries (vla-get-Dictionaries doc))
   
4.     (setq dictObj (vla-Item dictionaries "acad_tablestyle"))   
   
5.     (setq keyName "NewStyle" className "AcDbTableStyle")  
   
6.     (setq customObj (vla-AddObject dictObj keyName className))      
   
7.     (vla-put-Name customObj "NewStyle")                          ;創建 "NewStyle" 表格型式名稱
   
8.     (vla-put-Description customObj "New Style for My Tables")
   
9.   
   
10.     (vla-put-FlowDirection  customObj acTableTopToBottom)  ;表格方向朝下=acTableTopToBottom
    
11.                                                            ;表格方向朝上=acTableBottomToTop
    
12.     (vla-put-HorzCellMargin customObj 5)                            ;水平邊距 5
    
13.     (vla-put-VertCellMargin customObj 5)                             ;垂直邊距 5
    
14.     (vla-put-BitFlags customObj 1)         
    
15.             
    

   (setq acadObj (vlax-get-acad-object))                           ;獲取AutoCAD應用程序<br />     (setq doc (vla-get-ActiveDocument acadObj))               ;獲取活動文檔對象  <br />     (setq dictionaries (vla-get-Dictionaries doc))<br />     (setq dictObj (vla-Item dictionaries "acad_tablestyle"))    <br />     (setq keyName "NewStyle" className "AcDbTableStyle")  <br />     (setq customObj (vla-AddObject dictObj keyName className))      <br />     (vla-put-Name customObj "NewStyle")                          ;創建 "NewStyle" 表格型式名稱 <br />     (vla-put-Description customObj "New Style for My Tables")<br />   <br />     (vla-put-FlowDirection  customObj acTableTopToBottom)  ;表格方向朝下=acTableTopToBottom <br />                                                            ;表格方向朝上=acTableBottomToTop<br />     (vla-put-HorzCellMargin customObj 5)                            ;水平邊距 5<br />     (vla-put-VertCellMargin customObj 5)                             ;垂直邊距 5<br />     (vla-put-BitFlags customObj 1)          <br />              <br />

liuhe

cad自带帮助文件，有一个例题是关于表格样式的。需要查VBA的属性chm的文件。

飞雪神光

lee50310 发表于 2023-6-10 23:44
1.
若新設表格型式名稱為 "NewStyle"
要設為目前使用語法如下

感谢 大神的解答

yefei812678

感谢感谢感谢感谢