lisp+DCL 表格编辑使用说明。 ui:table
本帖最后由 vitalgg 于 2022-3-15 06:59 编辑http://atlisp.cn/static/videos/ui-table-ed.mp4
函数名ui:table
说明：表格编辑,纯DCL方式实现,使用前先设置 ui:*table-title* 标题，赋值给 ui:*table-numbers-per-page* (整数)，可以设置每页的行数(默认为20)。ui:*table-widths* 用于定义每列的宽度，默认每列宽度为10。最大支持列数为26列。
用法：
(ui:table lst-data)
参数：1 lst-data : 列表;
返回值：修改后的数据
示例：
(require 'ui:*)
(setq ui:*table-numbers-per-page* 15)
(setq ui:*table-widths* '(10 20 5 3 30))
(ui:table
(cons '("a""b""C""D""E")
(progn
(setq lst '())(setq i% 0)
(reverse
(repeat 1006
(setq lst
(cons
(list (strcat "A" (itoa (setq i% (1+ i%))))
(strcat "B" (itoa i%))
(strcat "C" (itoa i%))
(strcat "D" (itoa i%))
(strcat "E" (itoa i%)))
lst)))))))
(setq lst-data '(("姓名" "性别" "年龄" "身高")("张三" "男" 18 180)("李四" "女" 18 170)("王五" "男" 18 180)))
(setq ui:*table-title* "人员信息")
(setq ui:*table-widths* (ui:table-widths lst-data))
(ui:table lst-data)))
伪源码，无实现函数。 yxp 发表于 2022-3-15 15:02
伪源码，无实现函数。
那就删了或移到插件区吧，不知道怎么删帖 本帖最后由 xj6019 于 2022-3-15 16:42 编辑
安装上@lisp就啥都有了，直接实现，大佬一直在升级一直在扩展使用的函数库，功能库，能直接用，能直接下载源码，支持浩辰 中望等等。
算的上良心作家哦，大家可以试试玩玩，能用也能发布自己编译后的插件到@lisp，可玩性挺大的。参照大佬的网址 ：http://atlisp.cn/ 或者直接百度@lisp第一条就是 。替大佬打一波广告，欢迎高手试水:lol:P;P:victory: 嘿嘿嘿！！！
页:
[1]