关于 TableStyle 中几个设置有没有Vlisp方法

st788796

问题1 : 将 自定义的 TableStyle 如何设置为当前，除了 tablestyle 命令有没有 a/vlisp 方法

问题2：这个页边距是控制每个 Cell 内部文字与 GridLine 距离的，翻遍了手册也没有找到方法设置，对 Table 而言，ARX 提供的方法不比 ActiveX  多，ARX有的 ActiveX 都有

下面代码是创建一个 新 TableStyle 样式，但无法解决上面两个问题，请高手们支支招！

1. ;|
   
2. gridLineType  AcGridLineType enum; the type of the grid line
   
3. 
   
4. acHorzBottom       Top or bottom horizontal grid line, based on the flow direction.
   
5. acHorzInside       All horizontal grid lines, excluding the top and bottom lines.
   
6. acHorzTop          Top or bottom horizontal grid line, based on the flow direction.
   
7. acInvalidGridLine  An invalid grid line.
   
8. acVertInside       All the vertical grid lines, excluding the farthest left and farthest right grid lines.
   
9. acVertLeft         Farthest left grid line.
   
10. acVertRight        Farthest right grid line.
    
11. 
    
12. rowType  AcRowType enum; the row type
    
13. 
    
14. acDataRow
    
15. acHeaderRow
    
16. acTitleRow
    
17. acUnknownRow
    
18. |;
    
19. (defun XD::Table:createTableStyle (name               textHeight  /
    
20.                                    dicts       tableStyle  nTableStyle
    
21.                                   )
    
22.   (setq        dicts            (vla-get-Dictionaries **XD::DOC**)
    
23.         tableStyle  (vla-item dicts "acad_tablestyle")
    
24.         nTableStyle (vla-addobject tableStyle name "AcDbTableStyle")
    
25.   )
    
26.   (vla-setalignment nTableStyle acDataRow acMiddleCenter)
    
27.   (vla-setalignment nTableStyle acHeaderRow acMiddleCenter)
    
28.   (vla-setalignment nTableStyle acTitleRow acMiddleCenter)
    
29. 
    
30.   (vla-settextheight nTableStyle acDataRow textHeight)
    
31.   (vla-settextheight nTableStyle acHeaderRow textHeight)
    
32.   (vla-settextheight nTableStyle acTitleRow textHeight)
    
33. 
    
34.   (vla-setGridVisibility
    
35.     nTableStyle
    
36.     acHorzTop
    
37.     acTitleRow
    
38.     :vlax-false
    
39.   )
    
40.   (vla-setGridVisibility
    
41.     nTableStyle
    
42.     acVertLeft
    
43.     acTitleRow
    
44.     :vlax-false
    
45.   )
    
46.   (vla-setGridVisibility
    
47.     nTableStyle
    
48.     acVertRight
    
49.     acTitleRow
    
50.     :vlax-false
    
51.   )
    
52. )

;|<br /> gridLineType  AcGridLineType enum; the type of the grid line<br /> <br /> acHorzBottom       Top or bottom horizontal grid line, based on the flow direction. <br /> acHorzInside       All horizontal grid lines, excluding the top and bottom lines. <br /> acHorzTop          Top or bottom horizontal grid line, based on the flow direction. <br /> acInvalidGridLine  An invalid grid line. <br /> acVertInside       All the vertical grid lines, excluding the farthest left and farthest right grid lines. <br /> acVertLeft         Farthest left grid line. <br /> acVertRight        Farthest right grid line. <br /> <br /> rowType  AcRowType enum; the row type <br /> <br /> acDataRow <br /> acHeaderRow <br /> acTitleRow <br /> acUnknownRow<br /> |;<br /> (defun XD::Table:createTableStyle (name               textHeight  /<br />                                    dicts       tableStyle  nTableStyle<br />                                   )<br />   (setq        dicts            (vla-get-Dictionaries **XD::DOC**)<br />         tableStyle  (vla-item dicts "acad_tablestyle")<br />         nTableStyle (vla-addobject tableStyle name "AcDbTableStyle")<br />   )<br />   (vla-setalignment nTableStyle acDataRow acMiddleCenter)<br />   (vla-setalignment nTableStyle acHeaderRow acMiddleCenter)<br />   (vla-setalignment nTableStyle acTitleRow acMiddleCenter)<br /> <br />   (vla-settextheight nTableStyle acDataRow textHeight)<br />   (vla-settextheight nTableStyle acHeaderRow textHeight)<br />   (vla-settextheight nTableStyle acTitleRow textHeight)<br /> <br />   (vla-setGridVisibility<br />     nTableStyle<br />     acHorzTop<br />     acTitleRow<br />     :vlax-false<br />   )<br />   (vla-setGridVisibility<br />     nTableStyle<br />     acVertLeft<br />     acTitleRow<br />     :vlax-false<br />   )<br />   (vla-setGridVisibility<br />     nTableStyle<br />     acVertRight<br />     acTitleRow<br />     :vlax-false<br />   )<br /> )

st788796

第一个问题找到答案了
系统变量 "CTABLESTYLE"

st788796

第二个问题：

  (vla-put-VertCellMargin nTableStyle 1.5);_垂直边距
  (vla-put-HorzCellMargin nTableStyle 1.5);_水平边距

E 文还需要加强啊！

代码如下

1. (defun XD::Table:createTableStyle (name               textHeight  /
   
2.                                    dicts       tableStyle  nTableStyle
   
3.                                   )
   
4.   (setq        dicts            (vla-get-Dictionaries **XD::DOC**)
   
5.         tableStyle  (vla-item dicts "acad_tablestyle")
   
6.         nTableStyle (vla-addobject tableStyle name "AcDbTableStyle")
   
7.   )
   
8.   (vla-settextheight nTableStyle acDataRow textHeight)
   
9.   (vla-settextheight nTableStyle acHeaderRow textHeight)
   
10.   (vla-settextheight nTableStyle acTitleRow textHeight)
    
11.   (vla-setGridVisibility nTableStyle acHorzTop acTitleRow :vlax-false)
    
12.   (vla-setGridVisibility nTableStyle acVertLeft acTitleRow :vlax-false)
    
13.   (vla-setGridVisibility nTableStyle acVertRight acTitleRow :vlax-false)
    
14.   (vla-put-VertCellMargin nTableStyle 1.5)
    
15.   (vla-put-HorzCellMargin nTableStyle 1.5)
    
16.   (vla-setalignment nTableStyle acDataRow acMiddleCenter)
    
17.   (vla-setalignment nTableStyle acHeaderRow acMiddleCenter)
    
18.   (vla-setalignment nTableStyle acTitleRow acMiddleCenter)
    
19.   (setvar "ctablestyle" name)
    
20.   name
    
21. )
    

(defun XD::Table:createTableStyle (name               textHeight  /<br />                                    dicts       tableStyle  nTableStyle<br />                                   )<br />   (setq        dicts            (vla-get-Dictionaries **XD::DOC**)<br />         tableStyle  (vla-item dicts "acad_tablestyle")<br />         nTableStyle (vla-addobject tableStyle name "AcDbTableStyle")<br />   )<br />   (vla-settextheight nTableStyle acDataRow textHeight)<br />   (vla-settextheight nTableStyle acHeaderRow textHeight)<br />   (vla-settextheight nTableStyle acTitleRow textHeight)<br />   (vla-setGridVisibility nTableStyle acHorzTop acTitleRow :vlax-false)<br />   (vla-setGridVisibility nTableStyle acVertLeft acTitleRow :vlax-false)<br />   (vla-setGridVisibility nTableStyle acVertRight acTitleRow :vlax-false)<br />   (vla-put-VertCellMargin nTableStyle 1.5)<br />   (vla-put-HorzCellMargin nTableStyle 1.5)<br />   (vla-setalignment nTableStyle acDataRow acMiddleCenter)<br />   (vla-setalignment nTableStyle acHeaderRow acMiddleCenter)<br />   (vla-setalignment nTableStyle acTitleRow acMiddleCenter)<br />   (setvar "ctablestyle" name)<br />   name<br /> )<br />