(XD::Table:SetColumnWidth)设置表格的列宽

Lispboy · 发表于 2016-7-19 11:16:41

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

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

×

本帖最后由 Lispboy 于 2016-7-19 11:20 编辑

(defun XD::Table:SetColumnWidth (tb width col / box box1 cols ents ents2
ents3 height i mat row typ v w
)
(setq typ (XD::Table:TYPE tb))
(cond
((= typ "X")
(setq cols (XD::Table:numColumns tb)
rows (XD::Table:numRows tb)
)
(cond
((= (type width) 'LIST)
(setq i 0)
(repeat (length width)
(XD::Table:setcolumnwidth tb (nth i width) i)
(setq i (1+ i))
)
)
((or
(= (type width) 'REAL)
(= (type width) 'INT)
)
(cond
((= (type col) 'INT)
(if (XD::Table:isValidRowColumn tb 0 col)
(progn
(setq w (XD::Table:ColumnWidth tb col)
v (list (- width w) 0 0.0)
)
(setq ents (XD::Table:getentbyColumn tb col col)
ents2 (cadr ents)
)
(if (not ents2)
(setq ents3 (car ents))
(setq ents3 ents2)
)
(setq box (xdrx_entity_box ents3
(XD::Table:direction tb)
)
box (xd::pnts:close box)
box1 (apply
'xdrx_points_offset
(cons (/ w 5.0) box)
)
box1 (xd::pnts:close box1)
)
(if ents2
(progn
(setq ents (XD::Table:getentbyColumn tb col cols))
)
(progn
(setq mat (xdrx_matrix_identity 3)
mat (xdrx_matrix_settranslation mat
(list
(/ w 2.0)
0 0.0
)
)
box1 (xdrx_points_transform box1 mat)
)
)
)
(xdrx_entity_stretch (append
(car ents)
(last ents)
) box1 v
)
(xdrx_object_regen tb)
1
)
)
)
(t
(setq i 0)
(repeat cols
(XD::Table:setColumnWidth tb width i)
(setq i (1+ i))
)
)
)
)
)
)
((= typ "A")
(cond
((= (type width) 'LIST)
(setq i 0)
(repeat (length width)
(xdrx_table_setColumnWidth tb i (nth i width))
(setq i (1+ i))
)
)
((or
(= (type width) 'INT)
(= (type width) 'REAL)
)
(xdrx_table_setColumnWidth tb col width)
)
(t
(xdrx_table_setColumnWidth tb width)
)
)
(xdrx_object_regen tb)
)
((= typ "E")
((= (type width) 'LIST) (setq i 0)
(repeat (length width)
(xdex_sheet_setColWidth i (nth i width))
(setq i (1+ i))
)
)
((or
(= (type width) 'INT)
(= (type width) 'REAL)
)
(xdex_sheet_setColWidth col width)
)
(t
(xdex_sheet_setColWidth width)
)
)
)
)

(defun XD::Table:SetColumnWidth (tb width col / box box1 cols ents ents2 
                                    ents3 height i mat row typ v w 
                                ) 
  (setq typ (XD::Table:TYPE tb)) 
  (cond 
    ((= typ "X") 
      (setq cols (XD::Table:numColumns tb) 
            rows (XD::Table:numRows tb) 
      ) 
      (cond 
        ((= (type width) 'LIST) 
          (setq i 0) 
          (repeat (length width) 
            (XD::Table:setcolumnwidth tb (nth i width) i) 
            (setq i (1+ i)) 
          ) 
        ) 
        ((or 
           (= (type width) 'REAL) 
           (= (type width) 'INT) 
         ) 
          (cond 
            ((= (type col) 'INT) 
              (if (XD::Table:isValidRowColumn tb 0 col) 
                (progn 
                  (setq w (XD::Table:ColumnWidth tb col) 
                        v (list (- width w) 0 0.0) 
                  ) 
                  (setq ents (XD::Table:getentbyColumn tb col col) 
                        ents2 (cadr ents) 
                  ) 
                  (if (not ents2) 
                    (setq ents3 (car ents)) 
                    (setq ents3 ents2) 
                  ) 
                  (setq box (xdrx_entity_box ents3 
                                             (XD::Table:direction tb) 
                            ) 
                        box (xd::pnts:close box) 
                        box1 (apply 
                               'xdrx_points_offset 
                               (cons (/ w 5.0) box) 
                             ) 
                        box1 (xd::pnts:close box1) 
                  ) 
                  (if ents2 
                    (progn 
                      (setq ents (XD::Table:getentbyColumn tb col cols)) 
                    ) 
                    (progn 
                      (setq mat (xdrx_matrix_identity 3) 
                            mat (xdrx_matrix_settranslation mat 
                                                            (list 
                                                                  (/ w 2.0) 
                                                                  0 0.0 
                                                            ) 
                                ) 
                            box1 (xdrx_points_transform box1 mat) 
                      ) 
                    ) 
                  ) 
                  (xdrx_entity_stretch (append 
                                         (car ents) 
                                         (last ents) 
                                       ) box1 v 
                  ) 
                  (xdrx_object_regen tb) 
                  1 
                ) 
              ) 
            ) 
            (t 
              (setq i 0) 
              (repeat cols 
                (XD::Table:setColumnWidth tb width i) 
                (setq i (1+ i)) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
    ((= typ "A") 
      (cond 
        ((= (type width) 'LIST) 
          (setq i 0) 
          (repeat (length width) 
            (xdrx_table_setColumnWidth tb i (nth i width)) 
            (setq i (1+ i)) 
          ) 
        ) 
        ((or 
           (= (type width) 'INT) 
           (= (type width) 'REAL) 
         ) 
          (xdrx_table_setColumnWidth tb col width) 
        ) 
        (t 
          (xdrx_table_setColumnWidth tb width) 
        ) 
      ) 
      (xdrx_object_regen tb) 
    ) 
    ((= typ "E") 
      ((= (type width) 'LIST) (setq i 0) 
       (repeat (length width) 
         (xdex_sheet_setColWidth i (nth i width)) 
         (setq i (1+ i)) 
       ) 
      ) 
      ((or 
         (= (type width) 'INT) 
         (= (type width) 'REAL) 
       ) 
       (xdex_sheet_setColWidth col width) 
      ) 
      (t 
        (xdex_sheet_setColWidth width) 
      ) 
    ) 
  ) 
)

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

[表格] (XD::Table:SetColumnWidth)设置表格的列宽

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