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

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

本帖最后由 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 就是你需要的秒数
具体看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 static/image/common/back.gif
(defun AlertX (String nSeconds / WSH RetVal)
(setq WSH (vlax-create-object "WScript.shell"))
( ...

感謝指導!
這兩天忙點~
還沒幾會試
先謝謝了
页: [1]
查看完整版本: DCL的 (alert "\ntest!") 自动关闭