紫苏炒黄瓜 发表于 2022-3-10 08:36
以前也想过，但不知道怎么解决超出行数后下拉翻页的问题
行数过多，只能能另取面板，即增加按钮切换至下一面板，同时保存输出上一面板数据，结束/确定后两个面板的数据合并，有点复杂。
这个真的挺好的，感谢分享
本帖最后由 紫苏炒黄瓜 于 2022-3-11 12:34 编辑
wzg356 发表于 2022-3-10 20:20
行数过多，只能能另取面板，即增加按钮切换至下一面板，同时保存输出上一面板数据，结束/确定后两个面板 ...
目前很多都是采用列表框，通过处理字符串来达到分列的效果。
如果能用滚动条配上你的面板类型就好了。
也就是文本框组合+滚动条。不知道动态效果怎么样。
另外，我以前是使用excel来代替dcl做交互界面的，
但是，excel兼容性的问题让我又转回dcl。很多电脑调用不出excel。
本帖最后由 vitalgg 于 2022-3-13 23:21 编辑
http://atlisp.cn/static/videos/ui-table-ed.mp4
(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)))))))
(ui:table '(("姓名" "性别" "年龄" "身高")("张三" "男" 18 180)("李四" "女" 18 170)("王五" "男" 18 180)))
这个效果好
看起来很不错的样子
紫苏炒黄瓜 发表于 2022-3-10 08:36
以前也想过，但不知道怎么解决超出行数后下拉翻页的问题
已升级翻页功能
翻页版文件传错了吗？ 我怎么没实现呀
本帖最后由 wzg356 于 2022-3-13 09:35 编辑
xj6019 发表于 2022-3-13 09:19
翻页版文件传错了吗？ 我怎么没实现呀
没错，原版/升级版函数名相同，参数不同，新开cad加载“”dcl模拟表格编辑可翻页.lsp", 显示行数小于表长才有翻页功能
本帖最后由 xj6019 于 2022-3-13 09:41 编辑
wzg356 发表于 2022-3-13 09:33
没错，原版/升级版函数名相同，参数不同，新开cad加载“”dcl模拟表格编辑可翻页.lsp", 显示行数小于表长 ...
什么意思呀 表要换写法吗？写个例子参考一下呗 怎么控制显示行数呀