（XD::Vla:StringArrayToVariant）LISP字符串关联表转VARIANT数组

marting

1. ;|
   
2. 函数名称:        XD::Vla:StringArrayToVariant
   
3. 调用格式:        (XD::Vla:StringArrayToVariant lst)
   
4. 参数说明:        lst ----- 字符串关联表
   
5. 返回值:        Variant
   
6. 函数简介:        LISP字符串关联表转VARIANT数组
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2018-12-31
    
11. 
    
12. **允许在项目中使用，但请保留版权注释信息**
    
13. 
    
14. |;
    
15. (defun XD::Vla:StringArrayToVariant (lst)
    
16.   (vlax-make-variant
    
17.     (vlax-safearray-fill
    
18.       (vlax-make-safearray
    
19.         vlax-vbString
    
20.         (cons 0 (1- (length lst)))
    
21.         (cons 1 (apply 'max (mapcar 'length lst)))
    
22.       )
    
23.       lst
    
24.     )
    
25.   )
    
26. )
    

;|<br /> 函数名称:        XD::Vla:StringArrayToVariant<br /> 调用格式:        (XD::Vla:StringArrayToVariant lst)<br /> 参数说明:        lst ----- 字符串关联表<br /> 返回值:        Variant<br /> 函数简介:        LISP字符串关联表转VARIANT数组<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2018-12-31<br /> <br /> **允许在项目中使用，但请保留版权注释信息**<br /> <br /> |;<br /> (defun XD::Vla:StringArrayToVariant (lst)<br />   (vlax-make-variant<br />     (vlax-safearray-fill<br />       (vlax-make-safearray<br />         vlax-vbString<br />         (cons 0 (1- (length lst)))<br />         (cons 1 (apply 'max (mapcar 'length lst)))<br />       )<br />       lst<br />     )<br />   )<br /> )<br />

命令: !lst
(("fafaf" "faff") ("3435" "3535"))

命令: (setq d (XD::VLA:STRINGARRAYTOVARIANT lst))
#<variant 8200 ...>

命令: (xd::vla:variant->list a)
(("fafaf" "faff") ("3435" "3535"))

qyming2000

学习      
来自: 微社区

zhystar

学习了，谢谢