phoevana 发表于 2013-4-18 22:40:18

怎样实现grid输入数据的保存

自己想做一个工具要用到grid，但是每次输入的数据等工具退出后，再次打开grid的数据都消失了，不能保存上次输入的。还有能有什么办法把每次的输入数据保存为不同的版本，等下次要用的时候能选择以前不同的版本数据。

XDSoft 发表于 2013-4-19 01:55:22

很漂亮的对话框

http://bbs.xdcad.net/forum.php?m ... o=lastpost#lastpost


这个帖子里面的工具就用到了Grid控件。




1、你的这些数据输入完，应该是在一个变量里面保存吧，你可以设计成全局变量。

2、每次打开对话框的时候，在OnInitialize里面，在生成它们显示出来。



解决后，希望能分享出你做这个对话框的经验，帖下代码来论坛。



(defun c:MenuSetup1_OnInitialize (/)
;...............................
(Grid_Display $XD_CCommandMenuList-temp)
;..............................
)


下面这个GRID显示的基本你改改就能用。

(defun Grid_Display (val / i n intRow l)
    (dcl_Grid_Clear CCommandList)
    (setq i 1)
    (foreach n val
      (setq intRow (dcl_Grid_AddString CCommandList (strcat (itoa i) "\t"
                                                            (car n) "\t"
                                                            (cadr n)
                                                    )
                   )
      )
      (setq i (1+ i))
    )
    (setq l (- 11 i))
    (repeat l
      (setq intRow (dcl_Grid_AddString CCommandList (strcat (itoa i) "\t" ""
                                                            "\t" ""
                                                    )
                   )
      )
      (setq i (1+ i))
    )
)

phoevana 发表于 2013-4-19 08:12:32

谢谢版主的回复，刚学lisp和odcl，回去再好好研究研究，现在也只是刚弄好一个框架，很多功能还没实现，等完善了一定发上来，求各位指正。

phoevana 发表于 2013-4-19 12:51:01

XDSoft 发表于 2013-4-19 01:55 static/image/common/back.gif
很漂亮的对话框

http://bbs.xdcad.net/forum.php?m ... o=lastpost#lastpost



谢谢版主的回复，刚学lisp和odcl，回去再好好研究研究，现在也只是刚弄好一个框架，很多功能还没实现，等完善了一定发上来，求各位指正。

li-fei-1979 发表于 2021-12-3 13:45:30

谢谢版主的回复，刚学
页: [1]
查看完整版本: 怎样实现grid输入数据的保存