[求助]：一个关于DCL和ssget的问题！

superxzg

我做了个DCL文件，其中有一个按钮，按钮关联了一个ssget函数，

结果运行以后就完蛋了，连cad都动不了了，修改了十多遍都不行，

每次都是结束任务。请大家帮忙查看一下问题。
我的目的是：按下按钮回到cad图形界面选择图形，选择完毕后在回

到dcl界面。


DCL程序：

2. 
   
3.   [FONT=courier new]
   
4. ncc:dialog  
   
5. {   
   
6. :row
   
7. {spacer_1;
   
8. 
   
9.    :text   
   
10.    {  label="选择图形..." ;  
    
11.          
    
12.    }
    
13.    spacer_1;
    
14.    :button                //新增的按鈕元件  
    
15.    {  label="选 择" ;  
    
16.       key="grch1" ;
    
17.       width=10;
    
18.       fixed_width=true;  
    
19.    }
    
20.    spacer_1;
    
21. }
    
22. ok_cancel;
    
23. }  
    
24. [/FONT]
    

<br />   [FONT=courier new]<br /> ncc:dialog  <br /> {   <br /> :row<br /> {spacer_1;<br /> <br />    :text    <br />    {  label="选择图形..." ;  <br />          <br />    }<br />    spacer_1;<br />    :button                //新增的按鈕元件  <br />    {  label="选 择" ;  <br />       key="grch1" ; <br />       width=10;<br />       fixed_width=true;  <br />    }<br />    spacer_1;<br /> }<br /> ok_cancel;<br /> }  <br /> [/FONT]<br />

2. 
   
3. 
   
4. lisp驱动程序:
   
5. 
   
6.   [FONT=courier new]
   
7. (DEFUN c:ncge ()
   
8.   (SETQ DCL_ID (LOAD_DIALOG "c:/ncc.DCL"))
   
9.   (NEW_DIALOG "ncc" DCL_ID)
   
10.   (ACTION_TILE "grch1" "(grch)(done_dialog) ")
    
11.   (START_DIALOG)
    
12.   (UNLOAD_DIALOG dcl_id)
    
13. )
    
14. (defun grch()
    
15.   (setq ss1 (ssget))
    
16. )
    
17.   [/FONT]
    

<br /> <br /> lisp驱动程序:<br /> <br />   [FONT=courier new]<br /> (DEFUN c:ncge ()<br />   (SETQ DCL_ID (LOAD_DIALOG "c:/ncc.DCL"))<br />   (NEW_DIALOG "ncc" DCL_ID)<br />   (ACTION_TILE "grch1" "(grch)(done_dialog) ")<br />   (START_DIALOG)<br />   (UNLOAD_DIALOG dcl_id)<br /> )<br /> (defun grch()<br />   (setq ss1 (ssget))<br /> )<br />   [/FONT]<br />

cy956

最简单的办法是找一本dcl的书，抄一段类似的程序。
你的问题，在dcl书中通常叫作“隐藏对话框”，看看就明白了。

superxzg

看看先
————————————————
问题解决了，如2楼所说，多谢指点！
后来者如有类似问题，请参见
http://www.mjtd.com/bbs/Archive_view.asp?boardID=3&ID=25178