（XD::Table:AutoSize）调整表格行列到最合适尺寸

Lispboy · 发表于 2016-11-3 20:30:23

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

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

×

本帖最后由 Lispboy 于 2016-11-3 20:32 编辑

(defun XD::Table:AutoSize (ents / gap h i lst scl styl wids x y)
  (if (= (type ents) 'ENAME)
    (setq ents (list ents))
  )
  (mapcar
    '(lambda (x)
       (setq styl (xdrx_table_TextStyle x 1)
             h (xdrx_table_textheight x 1)
             scl (xdrx_getpropertyvalue (cadr styl) "xscale")
             gap (xdrx_table_horzCellMargin x)
       )
       (setq lst (xd::table:values x)
             wids (xd::table:columnswidth lst (car styl) h scl gap)
       )
       (XD::Table:begin x)
       (setq i -1)
       (mapcar
         '(lambda (y)
            (xdrx_table_SetColumnWidth x (setq i (1+ i))
                                       y
            )
          )
         wids
       )
       (xdrx_table_setrowheight x (+ h (* 2 gap)))
       (xd::table:end x)
     )
    ents
  )
  t
)

tony097 · 发表于 2016-11-5 09:15:22

学习借用，谢谢楼主分享！！！！

sicky111 · 发表于 2016-11-20 00:07:53

这个很实用。

whuliu0308 · 发表于 2016-12-27 13:25:45

楼主，请教如何使用的？调用函数名是？？

marting · 发表于 2016-12-27 14:18:26

whuliu0308 发表于 2016-12-27 13:25

函数发布里面都写的清清楚楚了，函数名，调用格式。。。。

wm_chen · 发表于 2016-12-31 03:43:20

啥也不说了，感谢楼主分享哇！

wm_chen · 发表于 2016-12-31 03:44:38

啥也不说了，感谢楼主分享哇！

w15994259099 · 发表于 2016-12-31 06:43:31

好程序，值得学习!

knife0930 · 发表于 2017-9-29 12:57:32

好程序，值得学习!

yjch · 发表于 2017-9-29 13:14:15

好思路，值得学习。

scnjlwb · 发表于 2018-2-27 14:08:39

谢谢分享！！！！

cgc218 · 发表于 2019-4-23 22:05:01

楼主，我下载了晓东工具箱，再加载这个代码不管用啊

cgc218 · 发表于 2019-4-23 22:07:13

楼主，我下载了晓东工具箱，再加载这个代码不管用啊

qxlonmsn · 发表于 2021-6-16 17:10:51

大神我好崇拜你

wzjck01 · 发表于 2021-6-17 09:33:03

学习借用，谢谢楼主分享！！！！

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

[表格] （XD::Table:AutoSize）调整表格行列到最合适尺寸

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