请教：自动关闭FORM窗口要怎么做！

长天落彩霞

运行一个FORM后，当当前的命令改变（如突然运行了“ADD CONNET”命令），我希望当命令改变时就会自动关闭当前的FORM窗口。这个功能要怎么做？

deargds

长天落彩霞 发表于 2014-2-22 13:46
顶起，求解决方法的啊。

写了个示例，仅供参考

1. defun( test ()
   
2. prog((_File p _Form)
   
3. 
   
4.         _File = axlTempFile()
   
5.         p = outfile(_File "w")
   
6.         fprintf(p "FILE_TYPE=FORM_DEFN VERSION=2\n")
   
7.         fprintf(p "FORM AUTOGREYTEXT\n")
   
8.         fprintf(p "FIXED\n")
   
9.         fprintf(p "PORT 32 10\n")
   
10.         fprintf(p "HEADER \"EDA365 Skill\"\n")
    
11.         fprintf(p "TILE\n")
    
12. 
    
13.         fprintf(p "TEXT \"EDA365 Skill\"\n")
    
14.         fprintf(p "TLOC 1 0\n")
    
15.         fprintf(p "OPTIONS UNDERLINE BOLD\n")
    
16.         fprintf(p "ENDTEXT\n")
    
17.         
    
18.         fprintf(p "FIELD close\n")
    
19.         fprintf(p "FLOC 1 20\n")
    
20.         fprintf(p "MENUBUTTON Cancel 9 3\n")
    
21.         fprintf(p "ENDFIELD\n")
    
22.         
    
23.         fprintf(p "ENDTILE\n")
    
24.         fprintf(p "ENDFORM\n")
    
25.         close(p)
    
26.         
    
27.         _Form = axlFormCreate(gensym("nil") _File nil nil t)
    
28.         axlFormDisplay(_Form)
    
29.         
    
30.         while(axlSelect()
    
31.                 t
    
32.         )
    
33. 
    
34.         axlFormClose(_Form)
    
35. )
    
36. )

复制代码

长天落彩霞

顶起，求解决方法的啊。

XYX365

长天落彩霞 发表于 2014-2-22 13:46
顶起，求解决方法的啊。

上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

长天落彩霞

deargds 发表于 2014-2-22 17:14
写了个示例，仅供参考

试了一下，可以实现这个功能，万分感谢版主

长天落彩霞

XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

谢谢啊。貌似这个参数增加进去后，会让之前打开的窗口自动关闭掉。

长天落彩霞

XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

大师能不能中文说明一下axlCmdRegister函数后面几个参数的意思啊！