Преобразование списка в безопасный массив
(defun ru-conv-list-to-typed-variant-array (some_list data_type)
;; data_type - в виде квотированной строки типа 'vlax-vbString
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
(eval data_type)
(cons 0 (1- (length some_list)))
) ;_ end of vlax-make-safearray
some_list
) ;_ end of vlax-safearray-fill
) ;_ end of vlax-make-variant
) ;_ end of defun
