(XD::ODCL:GridAddList)表格内容添加到ODCL的GRID控件表中

Lispboy · 发表于 2013-11-17 00:46:02

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

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

×

;|
表内容添加到ODCL的GRID控件表中
参数：
control ---- 控件变量名（字符串）
lst ---- 表
noflag ---- T or NIL 头列是否添加编号
返回值：
T
|;
(defun XD::ODCL:GridAddList (control lst noflag / ctrl i len n x)
(setq ctrl (eval (read control)))
(dcl_grid_clear ctrl)
(setq len (length lst))
(setq i 1)
(foreach n lst
(apply
'dcl_grid_addrow
(cons ctrl (mapcar
'(lambda (x)
(cond
((= (type x) 'INT)
(itoa x)
)
((= (type x) 'REAL)
(rtos x 2 2)
)
(t
(vl-princ-to-string x)
)
)
)
(if noflag
(cons i n)
n
)
)
)
)
(setq i (1+ i))
)
t
)

;| 
表内容添加到ODCL的GRID控件表中 
参数： 
  control ---- 控件变量名（字符串） 
  lst     ---- 表 
  noflag  ---- T or NIL 头列是否添加编号 
返回值： 
  T 
|; 
(defun XD::ODCL:GridAddList (control lst noflag / ctrl i len n x) 
  (setq ctrl (eval (read control))) 
  (dcl_grid_clear ctrl) 
  (setq len (length lst)) 
  (setq i 1) 
  (foreach n lst 
    (apply 
      'dcl_grid_addrow 
      (cons ctrl (mapcar 
                   '(lambda (x) 
                      (cond 
                        ((= (type x) 'INT) 
                          (itoa x) 
                        ) 
                        ((= (type x) 'REAL) 
                          (rtos x 2 2) 
                        ) 
                        (t 
                          (vl-princ-to-string x) 
                        ) 
                      ) 
                    ) 
                   (if noflag 
                     (cons i n) 
                     n 
                   ) 
                 ) 
      ) 
    ) 
    (setq i (1+ i)) 
  ) 
  t 
)

jiang__jin · 发表于 2021-1-14 09:11:13

该函数如何使用，有示例吗

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

[OPENDCL] (XD::ODCL:GridAddList)表格内容添加到ODCL的GRID控件表中

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

相关帖子