（XD::Vla:StringArrayToSafeArray）关联字符串表转安全数组（SafeArray)

marting

1. ;|
   
2. 函数名称:        XD::Vla:StringArrayToSafeArray
   
3. 调用格式:        (XD::Vla:StringArrayToSafeArray lst)
   
4. 参数说明:        lst ----- 字符串关联表
   
5. 返回值:        SAFEARRAY
   
6. 函数简介:        LISP字符串关联表转SAFEARRAY数组
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2018-12-31
    
11. 
    
12. **允许在项目中使用，但请保留版权注释信息**
    
13. 
    
14. |;
    
15. 
    
16. (defun XD::Vla:StringArrayToSafeArray (lst)
    
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. )
    

;|<br /> 函数名称:        XD::Vla:StringArrayToSafeArray<br /> 调用格式:        (XD::Vla:StringArrayToSafeArray lst)<br /> 参数说明:        lst ----- 字符串关联表<br /> 返回值:        SAFEARRAY<br /> 函数简介:        LISP字符串关联表转SAFEARRAY数组<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2018-12-31<br /> <br /> **允许在项目中使用，但请保留版权注释信息**<br /> <br /> |;<br /> <br /> (defun XD::Vla:StringArrayToSafeArray (lst)<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 />

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

命令: (setq d (XD::VLA:STRINGARRAYTOSAFEARRAY lst))
#<safearray...>

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

qyming2000

学习              
来自: 微社区