论坛 › A/VLISP › [TB-LISP函数]：TBC:Chunk 将一个表分割成多个表

tengteb 发表于 2022-6-9 14:24:22

[TB-LISP函数]：TBC:Chunk 将一个表分割成多个表

;将一个表分割成多个表
(defun TBC:Chunk (lst n / e i m l)
(setq i 0)
(foreach e lst
    (setq i (1+ i)
          m (cons e m)
    )
    (and
      (>= i n)
      (setq l (cons (reverse m) l)
          m nil
          i 0
      )
    ) ;and
) ;foreach
(and m (setq l (cons (reverse m) l)))
(reverse l)
) ;defun

qxlonmsn 发表于 2022-6-10 08:01:21

6666666666666

zizhumeizhilian 发表于 2022-12-6 16:21:40

zizhumeizhilian邀请您访问晓东CAD家园-论坛 http://bbs.xdcad.net/?fromuid=776841

happyending 发表于 2025-12-22 09:21:43

每天都来学习学习。感谢分享。

查看完整版本: [TB-LISP函数]：TBC:Chunk 将一个表分割成多个表