（XD::VLA:Variant->List）安全的得到Variant，SafeArray的值到LISP表

marting

1. ;|
   
2. 函数名称:       XD::VLA:Variant->List
   
3. 调用格式:        (XD::VLA:Variant->List lst)
   
4. 参数说明:        lst ----- Variant，SafeArray对象或它们组成的表
   
5. 返回值:        表
   
6. 函数简介:        安全的得到Variant，SafeArray的值到LISP表
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2018-12-31
    
11. 
    
12. **允许在项目中使用，但请保留版权注释信息**
    
13. 
    
14. |;
    
15. (defun XD::VLA:Variant->List ( x )
    
16.     (cond
    
17.         (   (= 'list (type x))
    
18.             (mapcar 'XD::VLA:Variant->List x)
    
19.         )
    
20.         (   (= 'variant (type x))
    
21.             (XD::VLA:Variant->List (vlax-variant-value x))
    
22.         )
    
23.         (   (= 'safearray (type x))
    
24.             (XD::VLA:Variant->List (vlax-safearray->list x))
    
25.         )
    
26.         (   x   )
    
27.     )
    
28. )
    

;|<br /> 函数名称:       XD::VLA:Variant->List<br /> 调用格式:        (XD::VLA:Variant->List lst)<br /> 参数说明:        lst ----- Variant，SafeArray对象或它们组成的表<br /> 返回值:        表<br /> 函数简介:        安全的得到Variant，SafeArray的值到LISP表<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2018-12-31<br /> <br /> **允许在项目中使用，但请保留版权注释信息**<br /> <br /> |;<br /> (defun XD::VLA:Variant->List ( x )<br />     (cond<br />         (   (= 'list (type x))<br />             (mapcar 'XD::VLA:Variant->List x)<br />         )<br />         (   (= 'variant (type x))<br />             (XD::VLA:Variant->List (vlax-variant-value x))<br />         )<br />         (   (= 'safearray (type x))<br />             (XD::VLA:Variant->List (vlax-safearray->list x))<br />         )<br />         (   x   )<br />     )<br /> )<br />