( XD::Table:isValidRowColumn)判断行列值是否在有效的范围内

Lispboy

1. (defun XD::Table:isValidRowColumn (tb row col / cols rows)
   
2.   (setq rows (XD::Table:numrows tb))
   
3.   (setq cols (XD::Table:numColumns tb))
   
4.   (and
   
5.     (>= row 0)
   
6.     (< row rows)
   
7.     (>= col 0)
   
8.     (< col cols)
   
9.   )
   
10. )
    
11. 
    

(defun XD::Table:isValidRowColumn (tb row col / cols rows)<br />   (setq rows (XD::Table:numrows tb))<br />   (setq cols (XD::Table:numColumns tb))<br />   (and<br />     (>= row 0)<br />     (< row rows)<br />     (>= col 0)<br />     (< col cols)<br />   )<br /> )<br /> <br />