脚本学习

Gu_xl

不如这个函数来的简单

2. 
   
3. ;;;==================================================================
   
4. ;;;mc_PopupBox  弹出可定时自动关闭的消息窗口
   
5. ;;函数名：mc_PopupBox
   
6. ;|函数功能：弹出可定时自动关闭的消息窗口
   
7.   作者：明经通道mccad
   
8.   参数：strText：消息窗口的文字内容
   
9.         intWaitTime：弹出窗口显示的时间，按秒计算
   
10.         strTitle：消息窗口的标题
    
11.         intDispType：窗口显示的样式，包括按钮和图标，具体如下：
    
12.   按钮类型 0. 显示“确定”按钮                      1. 显示“确定”和“取消”按钮
    
13.            2. 显示“终止”、“重试”和“忽略”按钮  3. 显示“是”、“否”和“取消”按钮
    
14.            4. 显示“是”和“否”按钮                5. 显示“重试”和“取消”按钮
    
15.   图标类型 16 显示停止标记图标  32 显示问号图标
    
16.            48 显示感叹号图标    64 显示信息标记图标
    
17.   返回值：指示用户所单击的按扭编号。若用户在 intWaitTime 秒之前不单击按扭，则 返回值为 -1 。
    
18.   1. “确定”按扭 2. “取消”按扭 3. “终止”按扭 4. “重试”按扭 5. “忽略”按扭 6. “是”按扭 7. “否”按扭
    
19. 示例
    
20. (defun c:mcbox()
    
21.   (mc_PopupBox "明经通道欢迎你"  2  "明经通道函数示例"  64)
    
22. )
    
23. |;
    
24. ;;;==================================================================
    
25. (defun mc_PopupBox (strText intWaitTime strTitle intDispType)
    
26.   (vlax-invoke-method (vlax-create-object "wscript.shell") 'Popup strText  intWaitTime strTitle intDispType)
    
27. )
    
28. 
    

<br /> ;;;==================================================================<br /> ;;;mc_PopupBox  弹出可定时自动关闭的消息窗口<br /> ;;函数名：mc_PopupBox<br /> ;|函数功能：弹出可定时自动关闭的消息窗口<br />   作者：明经通道mccad<br />   参数：strText：消息窗口的文字内容<br />         intWaitTime：弹出窗口显示的时间，按秒计算<br />         strTitle：消息窗口的标题<br />         intDispType：窗口显示的样式，包括按钮和图标，具体如下：<br />   按钮类型 0. 显示“确定”按钮                      1. 显示“确定”和“取消”按钮 <br />            2. 显示“终止”、“重试”和“忽略”按钮  3. 显示“是”、“否”和“取消”按钮 <br />            4. 显示“是”和“否”按钮                5. 显示“重试”和“取消”按钮 <br />   图标类型 16 显示停止标记图标  32 显示问号图标 <br />            48 显示感叹号图标    64 显示信息标记图标 <br />   返回值：指示用户所单击的按扭编号。若用户在 intWaitTime 秒之前不单击按扭，则 返回值为 -1 。<br />   1. “确定”按扭 2. “取消”按扭 3. “终止”按扭 4. “重试”按扭 5. “忽略”按扭 6. “是”按扭 7. “否”按扭<br /> 示例<br /> (defun c:mcbox()<br />   (mc_PopupBox "明经通道欢迎你"  2  "明经通道函数示例"  64)<br /> )<br /> |;<br /> ;;;==================================================================<br /> (defun mc_PopupBox (strText intWaitTime strTitle intDispType)<br />   (vlax-invoke-method (vlax-create-object "wscript.shell") 'Popup strText  intWaitTime strTitle intDispType)<br /> )<br /> <br />

1300366

好东西，下了就要顶

haiyunzhou

学习了 非常感谢

669423907

这是个挺有趣的东东啊！

tianyi1230

高版本的貌似不能用

革天明

谢谢楼主分享

jyzas

太牛了

328302216

顶一个

恕放之生命

谢谢分享。