ODCL怎样才能退出对话框再返回？

alwtyp

各位高手，请问OPENDCL怎样才能退出对话框再返回？

1. (Defun C:ABC(/)
   
2.   (Setvar "Cmdecho" 1)
   
3.   ;(Setq Block (Ssget))
   
4.   (Command "Opendcl")
   
5.   (Setvar "Cmdecho" 1)
   
6.   ;(_Load_ODCL_Frame nil nil)
   
7.   (Dcl_Project_Load "ABC.Odcl");加载对话框
   
8.   (Dcl_Form_Show ABC_FORM1);启动对话框界面
   
9. (Princ)
   
10. )
    
11. 
    
12. (defun c:abc_Form1_TextButton1_OnClicked (/)
    
13.   (Dcl_Form_Close abc_Form1)
    
14.   (Setq Block (Ssget))
    
15.   (Dcl_Form_Show ABC_FORM1)
    
16.   )

(Defun C:ABC(/)<br />   (Setvar "Cmdecho" 1)<br />   ;(Setq Block (Ssget))<br />   (Command "Opendcl")<br />   (Setvar "Cmdecho" 1)<br />   ;(_Load_ODCL_Frame nil nil)<br />   (Dcl_Project_Load "ABC.Odcl");加载对话框<br />   (Dcl_Form_Show ABC_FORM1);启动对话框界面<br /> (Princ)<br /> )<br /> <br /> (defun c:abc_Form1_TextButton1_OnClicked (/)<br />   (Dcl_Form_Close abc_Form1)<br />   (Setq Block (Ssget))<br />   (Dcl_Form_Show ABC_FORM1)<br />   )

shenhung

OPENDCL的 SAMPLE目錄內SELECTION.LSP 就有了.

Gu_xl

这是初学者经常容易犯的错误！c:abc_Form1_TextButton1_OnClicked事件中关闭对话框后，在该代码中并未执行后面的(Setq Block (Ssget))(Dcl_Form_Show ABC_FORM1)，因为此时对话框并未真正关闭！应该修改如下:

1. (Defun C:ABC(/)
   
2.   (Setvar "Cmdecho" 1)
   
3.   ;(Setq Block (Ssget))
   
4.   (Command "Opendcl")
   
5.   (Setvar "Cmdecho" 1)
   
6.   ;(_Load_ODCL_Frame nil nil)
   
7.   (Dcl_Project_Load "ABC.Odcl");加载对话框
   
8.   
   
9.   (Dcl_Form_Show ABC_FORM1);启动对话框界面
   
10. (if loop
    
11.    (progn
    
12. (Setq Block (Ssget))
    
13.   (Dcl_Form_Show ABC_FORM1)
    
14.    ）
    
15.   )
    
16. (Princ)
    
17. )
    
18. 
    
19. (defun c:abc_Form1_TextButton1_OnClicked (/)
    
20.   (Dcl_Form_Close abc_Form1)
    
21.   (setq loop t)
    
22.    )

(Defun C:ABC(/)<br />   (Setvar "Cmdecho" 1)<br />   ;(Setq Block (Ssget))<br />   (Command "Opendcl")<br />   (Setvar "Cmdecho" 1)<br />   ;(_Load_ODCL_Frame nil nil)<br />   (Dcl_Project_Load "ABC.Odcl");加载对话框<br />   <br />   (Dcl_Form_Show ABC_FORM1);启动对话框界面<br /> (if loop<br />    (progn<br /> (Setq Block (Ssget))<br />   (Dcl_Form_Show ABC_FORM1)<br />    ）<br />   )<br /> (Princ)<br /> )<br /> <br /> (defun c:abc_Form1_TextButton1_OnClicked (/)<br />   (Dcl_Form_Close abc_Form1)<br />   (setq loop t)<br />    )

shenhung

謝謝G版的解說.

alwtyp

Gu_xl 发表于 2013-5-1 22:17
这是初学者经常容易犯的错误！c:abc_Form1_TextButton1_OnClicked事件中关闭对话框后，在该代码中并未执行后 ...

谢谢GU版.非常感谢

alwtyp

shenhung 发表于 2013-5-1 22:13
OPENDCL的 SAMPLE目錄內SELECTION.LSP 就有了.

水平有限，在SELECTION中只看到关闭对话框，没看明白怎么回调的

shenhung

2. (Defun C:ABC(/)
   
3.   (Setvar "Cmdecho" 1)
   
4.   ;(Setq Block (Ssget))
   
5.   (Command "Opendcl")
   
6.   (Setvar "Cmdecho" 1)
   
7.   ;(_Load_ODCL_Frame nil nil)
   
8.   (Dcl_Project_Load "ABC.Odcl");加载对话框
   
9.   
   
10.   (setq intshow (Dcl_Form_Show ABC_FORM1))  ;启动对话框界面
    
11.   ;intshow 為關閉對話框後取得的返回值
    
12. (if  (= intshow 1)   ;借由判斷返回值. 執行你的程序.
    
13.    (progn
    
14. (Setq Block (Ssget))
    
15.   (Dcl_Form_Show ABC_FORM1)
    
16.    ）
    
17.   )
    
18. (Princ)
    
19. )
    
20. 
    
21. (defun c:abc_Form1_TextButton1_OnClicked (/)
    
22.   (Dcl_Form_Close abc_Form1  1 )   ;關閉對話框並傳遞一個值 給 dcl_form_show
    
23.   
    
24.    )

(Defun C:ABC(/)<br />   (Setvar "Cmdecho" 1)<br />   ;(Setq Block (Ssget))<br />   (Command "Opendcl")<br />   (Setvar "Cmdecho" 1)<br />   ;(_Load_ODCL_Frame nil nil)<br />   (Dcl_Project_Load "ABC.Odcl");加载对话框<br />   <br />   (setq intshow (Dcl_Form_Show ABC_FORM1))  ;启动对话框界面<br />   ;intshow 為關閉對話框後取得的返回值<br /> (if  (= intshow 1)   ;借由判斷返回值. 執行你的程序.<br />    (progn<br /> (Setq Block (Ssget))<br />   (Dcl_Form_Show ABC_FORM1)<br />    ）<br />   )<br /> (Princ)<br /> )<br /> <br /> (defun c:abc_Form1_TextButton1_OnClicked (/)<br />   (Dcl_Form_Close abc_Form1  1 )   ;關閉對話框並傳遞一個值 給 dcl_form_show<br />   <br />    )

SELECTION.LSP 的範例.基本上跟 AUTOCAD DCL 的用法是一樣的. !!

清风明月名字

是应该向OPENDCL的作者公司提意见，汉字如果作它的文件名，插件就无法运行了
比如写成这样“CJ567dxm第一个可理解的OPENDCL文件”，插件就不成立

wwwliuyu

清风明月名字 发表于 2013-5-2 10:03
是应该向OPENDCL的作者公司提意见，汉字如果作它的文件名，插件就无法运行了
比如写成这样“CJ567dxm第一个 ...

其实你可以为每个控件定义一变量名，这样不管你如何更改文件名都不会影响。

清风明月名字

如何定义？有例子吗？