加载opendcl的问题

我的我啊我

为何加载以后输入一次命令只出现对话框，里面的包括按钮之类的都没反应，然后esc后第二次输入命令出现对话框后就可以用了。这个是什么问题啊

newer

把代码和ODCL文件贴上来。

我的我啊我

2. (command "OPENDCL")
   
3. 
   
4. 
   
5. (defun c:tt ()
   
6.    (dcl_Project_Load "1" T)
   
7.    (dcl_Form_Show 1_Form1)
   
8.    (princ)
   
9. )
   
10. 
    
11. 
    
12. (defun c:1_Form1_OnInitialize (/)
    
13.   (dcl_Control_SetCaption 1_Form1_Label1 "1")
    
14. )
    
15. 
    
16. 
    
17. (defun c:1_Form1_TextButton3_OnClicked (/)
    
18.   (dcl_Form_Close 1_Form1 )
    
19. )

(command "OPENDCL")<br /> <br /> <br /> (defun c:tt ()<br />    (dcl_Project_Load "1" T)<br />    (dcl_Form_Show 1_Form1)<br />    (princ)<br /> )<br /> <br /> <br /> (defun c:1_Form1_OnInitialize (/)<br />   (dcl_Control_SetCaption 1_Form1_Label1 "1")<br /> )<br /> <br /> <br /> (defun c:1_Form1_TextButton3_OnClicked (/)<br />   (dcl_Form_Close 1_Form1 )<br /> )

我这边做的每一个都要这样先打开一次。难道是安装的问题？

newer

我的我啊我 发表于 2013-8-20 09:51
我这边做的每一个都要这样先打开一次。难道是安装的问题？

把ODCL文件也发上来，帮你看看。

我的我啊我

newer 发表于 2013-8-20 09:59
把ODCL文件也发上来，帮你看看。

111

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:1.odcl 
下载次数:4  文件大小:793 Bytes 
下载权限: 不限 以上  [免费赚D豆]

newer

我的我啊我 发表于 2013-8-20 10:01
111

没问题，正常。重新装下ODCL试试，建议如果你用ODCL开发，别用 (command "opendcl")， 自己加载下ODCL的ARX文件。或者直接加载晓东通用LISP函数库，它会自动加载ODCL的ARX。

另外，你把对话框保存成LSP，然后把内容拷贝到你的LISP文件里面，用dcl_project_import 加载试试。

我的我啊我

newer 发表于 2013-8-20 10:27
没问题，正常。重新装下ODCL试试，建议如果你用ODCL开发，别用 (command "opendcl")， 自己加载下ODCL的A ...

意思是odcl的arx文件没有加载是吗？

newer

我的我啊我 发表于 2013-8-20 10:52
意思是odcl的arx文件没有加载是吗？

不是，你没加载ODCL的ARX，不可能看到对话框。
我意思是只有 通过安装程序安装ODCL，才能用 (command "opendcl")，你不应该指望所有人都安装过ODCL，你应该提供ARX,然后你的LISP自动加载它。