(XD::Table:getCellValues)获取Table的所有CellValue

st788796

1. (defun XD::Table:getCellValues (tb / rows cols nl j rowL)
   
2.   (setq        rows (1- (vlax-get tb 'rows))
   
3.         cols (vlax-get tb 'columns)
   
4.   )
   
5.   (while (>= rows 0)
   
6.     (setq j cols)
   
7.     (while (> j 0)
   
8.       (setq rowL (cons (vlax-invoke
   
9.                          tb
   
10.                          'getcellvalue
    
11.                          rows
    
12.                          (setq j (1- j))
    
13.                        )
    
14.                        rowL
    
15.                  )
    
16.       )
    
17.     )
    
18.     (setq nl   (cons rowL nl)
    
19.           rows (1- rows)
    
20.           rowL nil
    
21.     )
    
22.   )
    
23.   nl
    
24. )
    

(defun XD::Table:getCellValues (tb / rows cols nl j rowL)<br />   (setq        rows (1- (vlax-get tb 'rows))<br />         cols (vlax-get tb 'columns)<br />   )<br />   (while (>= rows 0)<br />     (setq j cols)<br />     (while (> j 0)<br />       (setq rowL (cons (vlax-invoke<br />                          tb<br />                          'getcellvalue<br />                          rows<br />                          (setq j (1- j))<br />                        )<br />                        rowL<br />                  )<br />       )<br />     )<br />     (setq nl   (cons rowL nl)<br />           rows (1- rows)<br />           rowL nil<br />     )<br />   )<br />   nl<br /> )<br />