(XD::Table:DrawGridLine)

Lispboy

1. ;|
   
2. 给表数据绘制表格线
   
3. 参数：
   
4.    pt  ---- 插入点（左上）
   
5.    lst ---- 表格型（MXN）表
   
6.    styl --- 文字样式
   
7.    txtH --- 字高
   
8.    txtwscl- 宽度比例系数
   
9.    hcellpanding--水平方向字线距（单边）
   
10.    vcellpanding--垂直方向字线距（单边）
    
11. 
    
12. 返回值：
    
13.   选择集
    
14. 
    
15. 示例：
    
16. lyrl=(("0" 5446.47) ("图层1" 3630.98) ("合计" 9077.45))
    
17. 命令: (setq a (XD::TABLE:DRAWGRIDLINE pj lyrl "standard" 3.5 0.8 0.5 0.2))
    
18. <Selection set: 162>
    
19. 
    
20. |;
    
21. (defun XD::Table:DrawGridLine (pj lst styl txtH txtwscl hcellpanding vcellpanding / cols height i len pj1 ss wid xDir yDir)
    
22.   (setq cols (XD::Table:ColumnsWidth lst styl txtH txtwscl hcellpanding)
    
23.         wid (apply
    
24.               '+
    
25.               cols
    
26.             )
    
27.         height (XD::Table:TotalHeight lst txtH vcellpanding)
    
28.         xDir (getvar "ucsxdir")
    
29.         yDir (getvar "ucsydir")
    
30.         yDir (xdrx_vector_negate yDir)
    
31.   )
    
32.   (setq pj1 pj)
    
33.   (setq ss (ssadd))
    
34.   (repeat (1+ (length lst))               ; 行
    
35.     (xdrx_line_make pj1 (mapcar
    
36.                           '+
    
37.                           pj1
    
38.                           (trans (xdrx_vector_product xDir wid) 1 0 1)
    
39.                         )
    
40.     )
    
41.     (ssadd (entlast) ss)
    
42.     (setq pj1 (mapcar
    
43.                 '+
    
44.                 pj1
    
45.                 (trans (xdrx_vector_product yDir (+ txtH (* 2 vcellpanding))) 1 0 1)
    
46.               )
    
47.     )
    
48.   )
    
49.   (setq pj1 pj
    
50.         i 0
    
51.         len (length cols)
    
52.   )
    
53.   (repeat (1+ len)
    
54.     (xdrx_line_make pj1 (mapcar
    
55.                           '+
    
56.                           pj1
    
57.                           (trans (xdrx_vector_product yDir height) 1 0 1)
    
58.                         )
    
59.     )
    
60.     (ssadd (entlast) ss)
    
61.     (if (< i len)
    
62.       (progn
    
63.         (setq pj1 (mapcar
    
64.                     '+
    
65.                     pj1
    
66.                     (trans (xdrx_vector_product xDir (nth i cols)) 1 0 1)
    
67.                   )
    
68.               i (1+ i)
    
69.         )
    
70.       )
    
71.     )
    
72.   )
    
73.   ss
    
74. )
    
75. 
    

;|<br /> 给表数据绘制表格线<br /> 参数：<br />    pt  ---- 插入点（左上）<br />    lst ---- 表格型（MXN）表<br />    styl --- 文字样式<br />    txtH --- 字高<br />    txtwscl- 宽度比例系数<br />    hcellpanding--水平方向字线距（单边）<br />    vcellpanding--垂直方向字线距（单边）<br /> <br /> 返回值：<br />   选择集<br /> <br /> 示例：<br /> lyrl=(("0" 5446.47) ("图层1" 3630.98) ("合计" 9077.45))<br /> 命令: (setq a (XD::TABLE:DRAWGRIDLINE pj lyrl "standard" 3.5 0.8 0.5 0.2))<br /> <Selection set: 162><br /> <br /> |;<br /> (defun XD::Table:DrawGridLine (pj lst styl txtH txtwscl hcellpanding vcellpanding / cols height i len pj1 ss wid xDir yDir)<br />   (setq cols (XD::Table:ColumnsWidth lst styl txtH txtwscl hcellpanding)<br />         wid (apply<br />               '+<br />               cols<br />             )<br />         height (XD::Table:TotalHeight lst txtH vcellpanding)<br />         xDir (getvar "ucsxdir")<br />         yDir (getvar "ucsydir")<br />         yDir (xdrx_vector_negate yDir)<br />   )<br />   (setq pj1 pj)<br />   (setq ss (ssadd))<br />   (repeat (1+ (length lst))               ; 行<br />     (xdrx_line_make pj1 (mapcar<br />                           '+<br />                           pj1<br />                           (trans (xdrx_vector_product xDir wid) 1 0 1)<br />                         )<br />     )<br />     (ssadd (entlast) ss)<br />     (setq pj1 (mapcar<br />                 '+<br />                 pj1<br />                 (trans (xdrx_vector_product yDir (+ txtH (* 2 vcellpanding))) 1 0 1)<br />               )<br />     )<br />   )<br />   (setq pj1 pj<br />         i 0<br />         len (length cols)<br />   )<br />   (repeat (1+ len)<br />     (xdrx_line_make pj1 (mapcar<br />                           '+<br />                           pj1<br />                           (trans (xdrx_vector_product yDir height) 1 0 1)<br />                         )<br />     )<br />     (ssadd (entlast) ss)<br />     (if (< i len)<br />       (progn<br />         (setq pj1 (mapcar<br />                     '+<br />                     pj1<br />                     (trans (xdrx_vector_product xDir (nth i cols)) 1 0 1)<br />                   )<br />               i (1+ i)<br />         )<br />       )<br />     )<br />   )<br />   ss<br /> )<br /> <br />

st788796

以前不喜欢Table，在程序中用过几次后觉得做表格还是优先考虑Table，就像用EXCEL

Lispboy

st788796 发表于 2013-11-17 17:19
以前不喜欢Table，在程序中用过几次后觉得做表格还是优先考虑Table，就像用EXCEL

生成后就不再动直到打印这样的表，还是做成块吧。