用法
评论
建议
取 消
确 定
(defun vectra:list->var (lsp / e n var) (if (vl-consp lsp) (progn (setq n (1- (length lsp)) var (vlax-make-safearray vlax-vbvariant (cons 0 n))) (vlax-safearray-fill var (mapcar (quote (lambda (e) (vectra:list->var e))) lsp)) var) (vlax-make-variant lsp)))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新