[LISP程序]：有谁用过Odcl_Grid_SetItemText，指点一二

darkblue

有哪位用过Odcl_Grid_SetItemText方法，好像根本就不能往单元格里添加内容。请指点一下。还有与AutoCAD进行交互的时候，要隐藏对话框，应该怎么做？谢谢！！！



没人回答，我自己来答了。第一个问题还是不能直接解决。只能用删除当前行，然后再添加一行。用新的信息替代原有信息。第二个问题，用如下代码实现：(Odcl_Form_Resize CP21-3_frmCP21-3 0 0);;CP21-3_frmCP21-3是窗体名。把它的尺寸设为零就可以了。但我只能用无模式对话框，模式对话框好像就不行了

aeo

好久没用odcl了 :(
隐藏对话框,
看object browser 里面提供的方法 -->应该都有close方法吧.(别忘了把要的信息先做过备份)

wkai

和dcl控制很象，要用循环

2. (defun c:tt ()
   
3.   (if (not (member "objectdcl.arx" (arx)))
   
4.     (arxload "objectdcl.arx" "加载objectdcl.arx 失败.")
   
5.   )
   
6.   (ODcl_LoadProject "hello" t)
   
7.   (setq bflag t)
   
8.   (while (= bflag T)
   
9.     (setq bflag nil)
   
10.     (Odcl_Form_Show "hello" "main")
    
11.   )
    
12. )
    
13. 
    
14. (defun c:main_ok_OnClicked (/ group?)
    
15.   (Odcl_Form_Close hello1_main)
    
16.   (setq bflag t)
    
17.   (getpoint)
    
18. )

(defun c:tt ()<br />   (if (not (member "objectdcl.arx" (arx)))<br />     (arxload "objectdcl.arx" "加载objectdcl.arx 失败.")<br />   )<br />   (ODcl_LoadProject "hello" t)<br />   (setq bflag t)<br />   (while (= bflag T)<br />     (setq bflag nil)<br />     (Odcl_Form_Show "hello" "main")<br />   )<br /> )<br /> <br /> (defun c:main_ok_OnClicked (/ group?)<br />   (Odcl_Form_Close hello1_main)<br />   (setq bflag t)<br />   (getpoint)<br /> )