Lisp以数组模式高速写入excel

admin1

(Defun vlxls-cell-put-value
                (xl        id       Data
                 /        ary       idx
                 Rtn    vllist-explode
                 vllist-explode1       xx
                 yy
                )
                    ;数组模式写入数据
  (Defun vllist-explode1 (lst)
    (cond ((not lst) nil)
      ((atom lst) (list lst))
      ((append (vllist-explode1 (car lst))
           (vllist-explode1 (cdr lst))
       )
      )
    )
  )
  (if (null id)
    (setq id "A1")
  )
  (if (= (type id) 'list)
    (setq id (vlxls-rangeid id))
  )
  (if (= (type (car Data)) 'LIST)
    (setq ARY (vlax-make-safearray
        vlax-vbstring
        (cons 0 (1- (length Data)))
        (cons 1 (length (car Data)))
          )
    )
    (PROGN
      (SETQ XX (1- (length (car Data))))
      (SETQ YY (1- (length Data)))
      (setq ARY    (vlax-make-safearray
          vlax-vbstring
          (cons 0 1)
          (cons 1 (length Data))
        )
      )
      (SETQ XX (1- (length Data)))
      (SETQ YY 0)
    )
  )
  (setq Rtn nil)
  (if (= xx yy 0)
    (vl-catch-all-apply
      (function    (lambda    ()
          (msxlp-put-VALUE2
                    ;msxlp-put-VALUE2;msxl-put-value2
            (set 'Rtn (msxlp-get-range xl id))
                    ;msxlp-get-range;msxl-get-range
            (car (vllist-explode1 data))
          )
        )
      )
    )
    (progn (setq id (vlxls-cellid-calc id xx yy))
       (vl-catch-all-apply
         (function (lambda ()
             (msxlp-put-VALUE2
                    ;msxlp-put-VALUE2;msxl-put-value2
               (set 'Rtn (msxlp-get-range xl id))
                    ;msxlp-get-range;msxl-get-range
               (vlax-safearray-fill ary data)
             )
               )
         )
       )
    )
  )
  Rtn
)