(vlax-Import-Type-Library :tlb-filename file :methods-prefix "sm-" :properties-prefix "sp-" :constants-prefix "sc-")
(setq refpar (vlax-make-variant (vlax-make-safearray vlax-vbObject (cons 0 0))))
(defun ak_list->variantArray0 (ptsList)
(vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant; element type
(cons 0 ;from
(- (length ptsList) 1) ;to
) ; array dimension
)
(mapcar 'vlax-make-variant ptsList)
);fill
)
)