怎么让这个对话延时3秒钟后自动关闭

gcho

(defun s::startup()
   (if (= (rem(fix(getvar"DATE")) 7) 4) (alert "今天星期五了\n完成了吗！"))
)


如题，上面的对话框是加载在CAD的启动文件中，目的是在打开CAD时，每逢周五会自动弹出一个对话框，我想让周五弹出这个对话后，延时3秒钟后能自动关闭，如何实现，谢高人指点！

尘缘一生

gcho 发表于 2014-8-8 10:33
谢谢wowan1314的lisp程序，我用你的程序试验成功了，非常感谢！
我还想对这个字符串进行升华一下：
1、 ...

关键是，返回的语句显示在哪里？能显示在屏幕上就好了

yaokui25

love1030312 发表于 2014-8-8 11:16
试验成功    但是为什么把程序放在AP启动项自动加载的时候，  显示但不自动关闭呢 求解

love1030312 兄弟，这个问题解决了吗？

yaokui25

llsheng_73 发表于 2014-9-7 11:05
加了一个title参数作为消息窗口的标题

73哥，为什么不能在指定时间内关闭呢？

Gu_xl

见 mc_PopupBox 弹出可定时自动关闭的消息窗口

wowan1314

我只是明经的搬运工!

2. 
   
3. (defun AlertX (String nSeconds / WSH RetVal)
   
4.   (setq WSH (vlax-create-object "WScript.shell"))
   
5.   (setq RetVal (vl-catch-all-apply 'vlax-invoke-method (list WSH 'Popup String nSeconds "" 48)))
   
6.   (if (vl-catch-all-error-p RetVal)
   
7.     (alert String)
   
8.     (vlax-release-object WSH)
   
9.   )
   
10.   RetVal
    
11. )
    
12. 我写了上面一个alertx函数，
    
13. 函数名：AlertX
    
14. 参数1：字符串；参数2：超时秒数（整数）
    
15. 返回值：1（点击了确定），-1 （超时）
    
16. 示例：(alertx "test123" 2)

<br /> (defun AlertX (String nSeconds / WSH RetVal)<br />   (setq WSH (vlax-create-object "WScript.shell"))<br />   (setq RetVal (vl-catch-all-apply 'vlax-invoke-method (list WSH 'Popup String nSeconds "" 48)))<br />   (if (vl-catch-all-error-p RetVal)<br />     (alert String)<br />     (vlax-release-object WSH)<br />   )<br />   RetVal<br /> )<br /> 我写了上面一个alertx函数，<br /> 函数名：AlertX<br /> 参数1：字符串；参数2：超时秒数（整数）<br /> 返回值：1（点击了确定），-1 （超时）<br /> 示例：(alertx "test123" 2)

gcho

Gu_xl 发表于 2014-8-8 10:11
见 mc_PopupBox 弹出可定时自动关闭的消息窗口

谢谢Gu_xl版主提供的VBA参考资料，对VBA是一点都不会，还是感谢你！

gcho

wowan1314 发表于 2014-8-8 10:14
我只是明经的搬运工!

谢谢wowan1314的lisp程序，我用你的程序试验成功了，非常感谢！
我还想对这个字符串进行升华一下：
1、系统时间是周一至周四时，从一个已经做好的txt文档中随机返回一句名言警句；
2、系统时间是周五时，只弹出“今天星期五了\n完成了吗”这个对话框。
能办到吗？

love1030312

wowan1314 发表于 2014-8-8 10:14
我只是明经的搬运工!

试验成功    但是为什么把程序放在AP启动项自动加载的时候，  显示但不自动关闭呢 求解

gcho

love1030312 发表于 2014-8-8 11:16
试验成功    但是为什么把程序放在AP启动项自动加载的时候，  显示但不自动关闭呢 求解

你估计没把 AlertX函数放在程序前面吧！

llsheng_73

wowan1314 发表于 2014-8-8 10:14
我只是明经的搬运工!

1. (defun AlertX (TITLE String nSeconds / WSH RetVal)
   
2.   (setq WSH (vlax-create-object "WScript.shell"))
   
3.   (setq RetVal (vl-catch-all-apply 'vlax-invoke-method (list WSH 'Popup String nSeconds TITLE 48)))
   
4.   (if (vl-catch-all-error-p RetVal)
   
5.     (alert String)
   
6.     (vlax-release-object WSH)
   
7.   )
   
8.   RetVal)

(defun AlertX (TITLE String nSeconds / WSH RetVal)<br />   (setq WSH (vlax-create-object "WScript.shell"))<br />   (setq RetVal (vl-catch-all-apply 'vlax-invoke-method (list WSH 'Popup String nSeconds TITLE 48)))<br />   (if (vl-catch-all-error-p RetVal)<br />     (alert String)<br />     (vlax-release-object WSH)<br />   )<br />   RetVal)

加了一个title参数作为消息窗口的标题

bai2000

wend0008

很好以后可以用上