(XD::Table:MakeFromList)从NxM数据表生成表格

Lispboy · 发表于 2016-10-15 16:58:50

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

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

×

本帖最后由 Lispboy 于 2016-10-15 17:50 编辑

(defun XD::Table:MakeFromList (lst pt #height #gap / i scl styl tb trc wids stylent
                                   x
                              )
  (if (setq trc (xd::list:istable lst))
    (progn
      (setq styl (getvar "textstyle")
            scl (xdrx_getpropertyvalue (setq stylent(xdrx_object_get "style" styl))
                                       "xscale"
                )
            wids (XD::Table:ColumnsWidth lst styl #height scl #gap)
      )
      (setq tb (xdrx_table_make pt (car trc) (+ #height (* 2 #gap))
                                (cadr trc) (apply
                                             'max
                                             wids
                                           )
               )
      )
      (setq i -1)
      (XD::Table:begin tb)
      (mapcar
        '(lambda (x)
           (xdrx_table_SetColumnWidth tb (setq i (1+ i))
                                      x
           )
         )
        wids
      )
      (xd::table:settextstring tb lst)
      (xdrx_table_setalignment tb 5)
      (xdrx_table_settextheight tb #height)
      (xdrx_table_settextstyle tb 7 stylent)
      (xdrx_table_SetGridVisibility tb 2 41 nil)
      (XD::Table:end tb)
      tb
    )
  )
)

yjch · 发表于 2016-10-15 22:36:50

好好学习天天向上

yoyoho · 发表于 2016-10-16 06:52:46

确实是难得好帖啊，顶先

610220362 · 发表于 2017-4-15 21:07:56

NxM数据表的格式是怎样的？发个样板看看呗

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

[表格] (XD::Table:MakeFromList)从NxM数据表生成表格

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