找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

巢课
电巢直播8月计划
查看: 640|回复: 6
打印 上一主题 下一主题

请教:自动关闭FORM窗口要怎么做!

[复制链接]

46

主题

183

帖子

1821

积分

四级会员(40)

Rank: 4Rank: 4Rank: 4Rank: 4

积分
1821
跳转到指定楼层
1#
发表于 2014-1-21 10:08 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您!

您需要 登录 才可以下载或查看,没有帐号?注册

x
运行一个FORM后,当当前的命令改变(如突然运行了“ADD CONNET”命令),我希望当命令改变时就会自动关闭当前的FORM窗口。这个功能要怎么做?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友 微信微信
收藏收藏1 支持!支持! 反对!反对!

117

主题

2352

帖子

1万

积分

EDA365特邀版主

Rank: 6Rank: 6

积分
13799

最佳敬业奖

推荐
发表于 2014-2-22 17:14 | 只看该作者
长天落彩霞 发表于 2014-2-22 13:46
顶起,求解决方法的啊。

写了个示例,仅供参考
  1. defun( test ()
  2. prog((_File p _Form)

  3.         _File = axlTempFile()
  4.         p = outfile(_File "w")
  5.         fprintf(p "FILE_TYPE=FORM_DEFN VERSION=2\n")
  6.         fprintf(p "FORM AUTOGREYTEXT\n")
  7.         fprintf(p "FIXED\n")
  8.         fprintf(p "PORT 32 10\n")
  9.         fprintf(p "HEADER \"EDA365 Skill\"\n")
  10.         fprintf(p "TILE\n")

  11.         fprintf(p "TEXT \"EDA365 Skill\"\n")
  12.         fprintf(p "TLOC 1 0\n")
  13.         fprintf(p "OPTIONS UNDERLINE BOLD\n")
  14.         fprintf(p "ENDTEXT\n")
  15.         
  16.         fprintf(p "FIELD close\n")
  17.         fprintf(p "FLOC 1 20\n")
  18.         fprintf(p "MENUBUTTON Cancel 9 3\n")
  19.         fprintf(p "ENDFIELD\n")
  20.         
  21.         fprintf(p "ENDTILE\n")
  22.         fprintf(p "ENDFORM\n")
  23.         close(p)
  24.         
  25.         _Form = axlFormCreate(gensym("nil") _File nil nil t)
  26.         axlFormDisplay(_Form)
  27.         
  28.         while(axlSelect()
  29.                 t
  30.         )

  31.         axlFormClose(_Form)
  32. )
  33. )
复制代码
谁画出这天地 又画下我和你

46

主题

183

帖子

1821

积分

四级会员(40)

Rank: 4Rank: 4Rank: 4Rank: 4

积分
1821
2#
 楼主| 发表于 2014-2-22 13:46 | 只看该作者
顶起,求解决方法的啊。

57

主题

1857

帖子

7919

积分

六级会员(60)

Rank: 6Rank: 6

积分
7919
4#
发表于 2014-2-24 11:17 | 只看该作者
长天落彩霞 发表于 2014-2-22 13:46
顶起,求解决方法的啊。

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

46

主题

183

帖子

1821

积分

四级会员(40)

Rank: 4Rank: 4Rank: 4Rank: 4

积分
1821
5#
 楼主| 发表于 2014-2-26 15:08 | 只看该作者
deargds 发表于 2014-2-22 17:14
写了个示例,仅供参考

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

46

主题

183

帖子

1821

积分

四级会员(40)

Rank: 4Rank: 4Rank: 4Rank: 4

积分
1821
6#
 楼主| 发表于 2014-2-26 15:09 | 只看该作者
XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

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

46

主题

183

帖子

1821

积分

四级会员(40)

Rank: 4Rank: 4Rank: 4Rank: 4

积分
1821
7#
 楼主| 发表于 2014-2-28 12:19 | 只看该作者
XYX365 发表于 2014-2-24 11:17
上面的代碼,再加上下面的代碼就ok
axlCmdRegister("t" 'test ?doneCmd "axlFormClose(_Form)")

大师能不能中文说明一下axlCmdRegister函数后面几个参数的意思啊!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

巢课

技术风云榜

关于我们|手机版|EDA365 ( 粤ICP备18020198号 )

GMT+8, 2024-11-10 01:38 , Processed in 0.075833 second(s), 35 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表