社区 › AutoLISP/Visual LISP 编程技术 › （20230209不终更强迫症）-增删行滑杆/翻页版dcl模拟表格编辑

wzg356 发表于 2022-3-13 09:47:23

一样格式，下载程序有例子，加载后运营ttt即可，大函数第一个参数：行数，二参数：表

wzg356 发表于 2022-3-13 13:01:39

菜卷鱼 发表于 2022-3-10 08:59
是不是CAD 版本的问题。
有两行的引号前少了\
    (write-line "test:dialog {label = \"XX表\"; " f)    ...

升级翻页版

wzg356 发表于 2022-3-13 13:02:28

sniper1111 发表于 2022-3-10 08:17
很不做一直想找这样的形式表格，直观，操作方便

升级翻页版了

wzg356 发表于 2022-3-13 13:03:20

Nico 发表于 2022-3-11 13:27
这个效果好

升级翻页版了

wzg356 发表于 2022-3-13 13:03:58

paulpipi 发表于 2022-3-10 20:24
这个真的挺好的，感谢分享

升级翻页版了

434939575 发表于 2022-3-13 13:16:43

厉害，还可以这么玩。

紫苏炒黄瓜 发表于 2022-3-13 18:32:42

wzg356 发表于 2022-3-13 08:52
已升级翻页功能

看到加了翻页按钮，挺好的。
如果能达到13楼所说的滚动条动态翻页效果就更好了

伪书虫86 发表于 2022-3-13 22:36:01

vitalgg 发表于 2022-3-11 13:19


看着挺不错，纯lisp实现的么？

vitalgg 发表于 2022-3-14 09:20:50

本帖最后由 vitalgg 于 2022-3-14 09:32 编辑

伪书虫86 发表于 2022-3-13 22:36
看着挺不错，纯lisp实现的么？http://atlisp.cn/static/videos/ui-table-ed.mp4

纯的，纯得不能再纯了。先安装 @lisp (见签名网址) ，就能直接在 CAD命令行运行以下代码。
(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)))))))

紫苏炒黄瓜 发表于 2022-3-14 16:56:29

vitalgg 发表于 2022-3-14 09:20
纯的，纯得不能再纯了。先安装 @lisp (见签名网址) ，就能直接在 CAD命令行运行以下代码。

不错的

查看完整版本: （20230209不终更强迫症）-增删行滑杆/翻页版dcl模拟表格编辑