（XD::Mat:IsMatrix）判断是否是矩阵并返回阶数

marting

1. (defun XD::Mat:IsMatrix (m / order)
   
2.   (if (= (type m) 'VARIANT)
   
3.     (setq m (xd::vla:variant->value m))
   
4.   )
   
5.   (or (and (= (length m) 4)
   
6.            (vl-every '(lambda (x) (= (length x) 4)) m)
   
7.            (vl-every '(lambda (x) (or (= (type x) 'real) (= (type x) 'int)))
   
8.                      (xd::list:flat m)
   
9.            )
   
10.            (setq order 4)
    
11.       )
    
12.       (and (= (length m) 3)
    
13.            (vl-every '(lambda (x) (= (length x) 3)) m)
    
14.            (vl-every '(lambda (x) (or (= (type x) 'real) (= (type x) 'int)))
    
15.                      (xd::list:flat m)
    
16.            )
    
17.            (setq order 3)
    
18.       )
    
19.   )
    
20.   order
    
21. )
    

(defun XD::Mat:IsMatrix (m / order)<br />   (if (= (type m) 'VARIANT)<br />     (setq m (xd::vla:variant->value m))<br />   )<br />   (or (and (= (length m) 4)<br />            (vl-every '(lambda (x) (= (length x) 4)) m)<br />            (vl-every '(lambda (x) (or (= (type x) 'real) (= (type x) 'int)))<br />                      (xd::list:flat m)<br />            )<br />            (setq order 4)<br />       )<br />       (and (= (length m) 3)<br />            (vl-every '(lambda (x) (= (length x) 3)) m)<br />            (vl-every '(lambda (x) (or (= (type x) 'real) (= (type x) 'int)))<br />                      (xd::list:flat m)<br />            )<br />            (setq order 3)<br />       )<br />   )<br />   order<br /> )<br />