(XD::Table:setTextString)Table批量写入文字

st788796

1. (defun XD::Table:setTextString (tb lst / r)
   
2.   (setq r -1)
   
3.   (xdrx_table_SuppressRegenerateTable tb t)
   
4.   (xdrx_table_settextstring
   
5.     tb
   
6.     (vl-remove
   
7.       nil
   
8.       (apply
   
9.         'append
   
10.         (mapcar
    
11.           '(lambda (x / j)
    
12.              (setq j -1
    
13.                    r (1+ r)
    
14.              )
    
15.              (vl-remove
    
16.                nil
    
17.                (mapcar '(lambda        (a)
    
18.                           (setq j (1+ j))
    
19.                           (if (and
    
20.                                 (null (xdrx_table_ismergedcell tb r j))
    
21.                                 (/= a "")
    
22.                                 (/= a nil)
    
23.                               )
    
24.                             (list r j (vl-princ-to-string a))
    
25.                             nil
    
26.                           )
    
27.                         )
    
28.                        x
    
29.                )
    
30.              )
    
31.            )
    
32.           lst
    
33.         )
    
34.       )
    
35.     )
    
36.   )
    
37.   (if (= (xdrx_table_rowtype tb 0) 2)
    
38.     (xdrx_table_settextstring
    
39.       tb
    
40.       (list (list 0 0 (vl-princ-to-string (caar lst))))
    
41.     )
    
42.   )
    
43.   (xdrx_table_SuppressRegenerateTable tb nil)
    
44.   tb
    
45. )
    

(defun XD::Table:setTextString (tb lst / r)<br />   (setq r -1)<br />   (xdrx_table_SuppressRegenerateTable tb t)<br />   (xdrx_table_settextstring<br />     tb<br />     (vl-remove<br />       nil<br />       (apply<br />         'append<br />         (mapcar<br />           '(lambda (x / j)<br />              (setq j -1<br />                    r (1+ r)<br />              )<br />              (vl-remove<br />                nil<br />                (mapcar '(lambda        (a)<br />                           (setq j (1+ j))<br />                           (if (and<br />                                 (null (xdrx_table_ismergedcell tb r j))<br />                                 (/= a "")<br />                                 (/= a nil)<br />                               )<br />                             (list r j (vl-princ-to-string a))<br />                             nil<br />                           )<br />                         )<br />                        x<br />                )<br />              )<br />            )<br />           lst<br />         )<br />       )<br />     )<br />   )<br />   (if (= (xdrx_table_rowtype tb 0) 2)<br />     (xdrx_table_settextstring<br />       tb<br />       (list (list 0 0 (vl-princ-to-string (caar lst))))<br />     )<br />   )<br />   (xdrx_table_SuppressRegenerateTable tb nil)<br />   tb<br /> )<br />

aihuyujian

table的东西一定要支持

610220362

xdrx_table_SuppressRegenerateTable 这些函数在哪里啊，没有加载运行不了吧