DCL的 (alert "\ntest!") 自动关闭

lincctw_ccl · 发表于 2012-12-2 00:06:08

本帖最后由 lincctw_ccl 于 2012-12-2 20:30 编辑

请问当 DCL的 (alert "\ntest!") 出现后要点选确定才能将它关闭,请问有没有办法让它出现后点选鼠标左键于CAD空白处自动关闭呢?谢谢!!

wowan1314 · 发表于 2012-12-2 11:30:09

论坛函数库好像有个自动关闭的函数。自己找找看。好像是明总上传的。

lincctw_ccl · 发表于 2012-12-2 13:05:32

感谢 wowan1314 解答!!
请问函数库是指
http://bbs.mjtd.com/forum-77-1.html
查了下好像没有??
还是我找错地方了??

jdlfjk · 发表于 2012-12-2 20:22:24

可以用Windows Script Host中的popup method
用这个创建对象：(vlax-create-object "WScript.shell")
intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])
nSecondsToWait 就是你需要的秒数
具体看http://msdn.microsoft.com/en-us/library/x83z1d9f(v=vs.84).aspx

lincctw_ccl · 发表于 2012-12-2 20:28:04

感谢 jdlfjk 指导!!
你给的参考数据看不懂!
我只会简单的LSP!
不过还是感谢您!!

jdlfjk · 发表于 2012-12-4 20:50:32

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

lincctw_ccl · 发表于 2012-12-4 22:23:40

jdlfjk 发表于 2012-12-4 20:50
(defun AlertX (String nSeconds / WSH RetVal)
(setq WSH (vlax-create-object "WScript.shell"))
( ...

感謝指導!

這兩天忙點~
還沒幾會試
先謝謝了

账号		自动登录	找回密码
密码			注册

DCL的 (alert "\ntest!") 自动关闭

点评

相关帖子

评分

点评

评分

浏览过的版块