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

wzg356

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

wzg356

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

升级翻页版

wzg356

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

升级翻页版了

wzg356

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

升级翻页版了

wzg356

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

升级翻页版了

434939575

厉害，还可以这么玩。

紫苏炒黄瓜

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

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

伪书虫86

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

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

vitalgg

伪书虫86 发表于 2022-3-13 22:36
看着挺不错，纯lisp实现的么？

如果无法播放，请点击此处在新窗口打开

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

1. (require 'ui:*)
   
2. (setq ui:*table-numbers-per-page* 15)
   
3. (setq ui:*table-widths* '(10 20 5 3 30))
   
4. (ui:table
   
5. (cons '("a""b""C""D""E")
   
6.        (progn
   
7.    (setq lst '())(setq i% 0)
   
8.    (reverse
   
9.     (repeat 1006
   
10.       (setq lst
    
11.       (cons
    
12.        (list (strcat "A" (itoa (setq i% (1+ i%))))
    
13.              (strcat "B" (itoa i%))
    
14.              (strcat "C" (itoa i%))
    
15.              (strcat "D" (itoa i%))
    
16.              (strcat "E" (itoa i%)))
    
17.        lst)))))))

(require 'ui:*)<br /> (setq ui:*table-numbers-per-page* 15)<br /> (setq ui:*table-widths* '(10 20 5 3 30))<br /> (ui:table<br /> (cons '("a""b""C""D""E")<br />        (progn<br />    (setq lst '())(setq i% 0)<br />    (reverse<br />     (repeat 1006<br />       (setq lst<br />       (cons <br />        (list (strcat "A" (itoa (setq i% (1+ i%))))<br />              (strcat "B" (itoa i%))<br />              (strcat "C" (itoa i%))<br />              (strcat "D" (itoa i%))<br />              (strcat "E" (itoa i%)))<br />        lst)))))))

紫苏炒黄瓜

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

不错的