变体 转表问题

taner

2. ;;;请教高手解释一下以下代码,这个递归实在没看懂
   
3. 
   
4. ;; Variant -> LISP
   
5. 
   
6. ;; gc:VariantToLispData
   
7. ;; Converts a variant or a safearray into LISP data (list)
   
8. ;;
   
9. ;; Argument: var variant or safearray
   
10. 
    
11. (defun gc:VariantToLispData (var)
    
12.   (cond
    
13.     ((= (type var) 'variant)
    
14.      (gc:VariantToLispData (vlax-variant-value var)))
    
15.     ((= (type var) 'safearray)
    
16.      (mapcar 'gc:VariantToLispData (vlax-safearray->list var))
    
17.     )
    
18.     (T var)
    
19.   )
    
20. )
    

;;;请教高手解释一下以下代码,这个递归实在没看懂<br /> <br /> ;; Variant -> LISP<br /> <br /> ;; gc:VariantToLispData<br /> ;; Converts a variant or a safearray into LISP data (list)<br /> ;;<br /> ;; Argument: var variant or safearray<br /> <br /> (defun gc:VariantToLispData (var)<br />   (cond<br />     ((= (type var) 'variant)<br />      (gc:VariantToLispData (vlax-variant-value var)))<br />     ((= (type var) 'safearray)<br />      (mapcar 'gc:VariantToLispData (vlax-safearray->list var))<br />     )<br />     (T var)<br />   )<br /> )<br />

snsj

这个好理解啊
1、(gc:VariantToLispData (vlax-variant-value var)))   (vlax-variant-value var) 可能有两种结果，一种直接返回变体的值：一个整数或字符串、布尔值，如果是这种则跳转到（T VAR）递归直接返回值了，如果返回的是一个 SafeArray ，则递归到(= (type var) 'safearray)进行处理：安全阵列也有两种可能，一种直接返回一个类似于（1 2 3 4 5）这样的表，还有一种可能是这个安全阵列返回了一个变体表（variant1.。。。。。。），这样遍历递归每个元素调用 (vlax-variant-value var) 返回每个变体的值。。。就这样年年岁岁的递归下去。。。。。
这个要从一个故事讲起:
从前，一个安全阵列被封装成一个变体，一个安全阵列又再装N个这样的变态体封装成一个安全阵列，然后这个安全阵列又被封装成了一个变体，然后又来了一个安全阵列封装了N个这样的变体。。。。。。。。。。于是这个变体终于憋不住了，生下了递归{:soso_e113:}，喝多了说胡话了。。。。。

st788796

一般不用这种函数，实际应用中返回值类型是可知的，直接转化

taner

谢谢讲解!希望多喝多说胡话!