设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › OpenDCL › 关于向grid中添加内容的问题
返回列表 发新帖
查看: 2982|回复: 9

[求助] 关于向grid中添加内容的问题

[复制链接]
panziyang000
发表于 2013-5-29 21:39:51 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  请教大家，如何从另一个对话框中内容添加到GRID中，我自己写的不成功，ODCL文件也上传了 ，麻烦大家看看
  1. (defun c:Grd (/ cmdecho)

  3.   (setq cmdecho (getvar "CMDECHO"))
  4.   (setvar "CMDECHO" 0)
  5.   (command "_OPENDCL")
  6.   (setvar "CMDECHO" cmdecho)
  7.   (dcl_Project_Load "Grid.odcl" T )
  8.   (dcl_Form_Show Grid_Form1)
  9.   (princ)
  10. )
  11. (defun c:grid_Form1_OnInitialize (/)
  12. (dcl_Grid_AddColumns grid_Form1_格1
  13.   (list (list "A" 2)
  14.       (list "B" 2)
  15.       (list "c" 2)
  16.      )))

  18. (defun c:grid_Form1_TextButton1_OnClicked (/)
  19.   (setq *Open_grid_Form1 nil)
  20.   (dcl_form_show grid_Form2))

  22. (defun c:grid_Form1_TextButton2_OnClicked (/)
  23.   (setq *Open_grid_Form2 nil)
  24.   (dcl_form_close grid_Form2)

  26. (setq a  (dcl_control_GetText grid_Form2_TextBox1))
  27. (setq b  (dcl_control_GetText grid_Form2_TextBox2))
  28. (setq c  (dcl_control_GetText grid_Form2_TextBox3))
  29.       
  30. (dcl_Grid_SetCellText  1 1  a)
  31. (dcl_Grid_SetCellText  1 2  b)
  32. (dcl_Grid_SetCellText  1 3  c)
  33. )








QQ图片20130529213507.jpg

grid.odcl

1.19 KB, 下载次数: 13, 下载积分: D豆 -1 , 活跃度 1

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-5-29 21:57:42 | 显示全部楼层
你先把FORM2对话框关闭了，在 dcl_control_GetText 肯定没值了。
调下顺序。

  1. (defun c:grid_Form1_TextButton2_OnClicked (/)
  2.   (setq *Open_grid_Form2 nil)

  4.   (setq a  (dcl_control_GetText grid_Form2_TextBox1))
  5.   (setq b  (dcl_control_GetText grid_Form2_TextBox2))
  6.   (setq c  (dcl_control_GetText grid_Form2_TextBox3))

  8.   (dcl_form_close grid_Form2)


  11.   (dcl_Grid_SetCellText  1 1  a)
  12.   (dcl_Grid_SetCellText  1 2  b)
  13.   (dcl_Grid_SetCellText  1 3  c)
  14. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-5-29 22:00:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
另外

  (dcl_Grid_SetCellText  1 1  a)
  (dcl_Grid_SetCellText  1 2  b)
  (dcl_Grid_SetCellText  1 3  c)

这几个，你缺控件变量名，对谁操作。
QQ截图20130529220123.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

panziyang000
 楼主| 发表于 2013-5-29 22:13:11 | 显示全部楼层
(dcl_Grid_SetCellText grid_Form1_格1 1 1  a)
(dcl_Grid_SetCellText grid_Form1_格1 1 2  b)
(dcl_Grid_SetCellText grid_Form1_格1 1 3  c)

修改之后还是一样  点确定没用  
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2013-5-29 22:22:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
panziyang000 发表于 2013-5-29 22:13
(dcl_Grid_SetCellText grid_Form1_格1 1 1  a)
(dcl_Grid_SetCellText grid_Form1_格1 1 2  b)
(dcl_Gri ...

你把 dcl_form_close放到后面去了吗？ 把你修改后的最新的程序贴上来吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

panziyang000
 楼主| 发表于 2013-5-30 08:46:47 | 显示全部楼层
本帖最后由 牢固 于 2013-5-30 11:02 编辑

是不是我setcelltext的函数同错了  grid中拿不到值

  1. (defun c:Grd (/ cmdecho)

  3.         (setq cmdecho (getvar "CMDECHO"))
  4.         (setvar "CMDECHO" 0)
  5.         (command "_OPENDCL")
  6.         (setvar "CMDECHO" cmdecho)
  7.         (dcl_Project_Load "Grid.odcl" T )
  8.         (dcl_Form_Show Grid_Form1)
  9.         (princ)
  10. )
  11. (defun c:grid_Form1_OnInitialize (/)
  12. (dcl_Grid_AddColumns grid_Form1_格1
  13.   (list (list "A" 2)
  14.       (list "B" 2)
  15.       (list "C" 2)
  16.      
  17. )))

  19. (defun c:grid_Form1_TextButton1_OnClicked (/)
  20.   (setq *Open_grid_Form1 nil)
  21.   (dcl_form_show grid_Form2))

  23. (defun c:grid_Form2_TextButton1_OnClicked (/)
  24.   (setq *Open_grid_Form2 nil)
  25.   

  27. (setq a  (dcl_control_GetText grid_Form2_TextBox1))
  28. (setq b  (dcl_control_GetText grid_Form2_TextBox2))
  29. (setq c  (dcl_control_GetText grid_Form2_TextBox3))
  30.       
  31. (dcl_Grid_SetCellText grid_Form1_格1 1 1  a)
  32. (dcl_Grid_SetCellText grid_Form1_格1 1 2  b)
  33. (dcl_Grid_SetCellText grid_Form1_格1 1 3  c)
  34. (dcl_form_close grid_Form2))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-5-30 18:18:50 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(dcl_form_close grid_Form2))

这个老大让你拿下来，代码都帮你修改好了，你怎么没看，你拿下来的太多了，你FORM2还没关闭呢，就设置FORM1的格子肯定不行啊。 把 (dcl_form_close grid_Form2)) 放到 上面3行前。

你看下老大2楼那个帖子。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

arrowzone
发表于 2014-2-24 21:23:26 | 显示全部楼层
问题解决了嘛？我也有类似的问题
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

h0404

已领礼包: 2530个

财富等级: 家财万贯
发表于 2015-9-13 14:23:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
测试不理想,估计要行列同时命名才可以在格子里填字符,而且第一行或第一列默认从0开始。
(dcl_form_close grid_Form2))关闭，同样可以  (dcl_Grid_SetCellText grid_Form1_格1 1 1  a)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

skg123
发表于 2015-10-29 22:28:13 | 显示全部楼层
学习一下这个思路
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-17 20:43 , Processed in 0.269854 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表