(XD::Table:CellTile)表数据增加行列标题

st788796 · 发表于 2014-11-12 08:36:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;2014.11.12
;|
增加列标题及行号
参数: rowTileList --- 列标题
num --- 行标题，int 依次 +1
list 附加到每行前
lst --- 给定 cell 区内容
返回值：表
|;
(defun XD::Table:CellTile (rowTileList num lst)
(if (eq (type num) 'INT)
(setq lst (mapcar '(lambda (x / l)
(setq l (cons (itoa num) x)
num (1+ num)
)
l
)
lst
)
)
(setq lst (mapcar '(lambda (x y)
(cons x y)
)
num
lst
)
)
)
(if rowTileList
(cons rowTileList lst)
lst
)
)

_$ (xd::table:celltile '("1" "2" "2" "3") 1 '(("a" "a" "a") ("b" "b" "b") ("c" "c" "c")))
(("1" "2" "2" "3") ("1" "a" "a" "a") ("2" "b" "b" "b") ("3" "c" "c" "c"))
_$ (xd::table:celltile nil 1 '(("a" "a" "a") ("b" "b" "b") ("c" "c" "c")))
(("1" "a" "a" "a") ("2" "b" "b" "b") ("3" "c" "c" "c"))
_$

wujiazhi14 · 发表于 2014-11-19 21:43:44

这些东西看不懂

账号		自动登录	找回密码
密码			立即注册

[表格] (XD::Table:CellTile)表数据增加行列标题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。