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

shenfjliu · 发表于 2016-12-19 22:24:09

回复学习学习！

laiz3000 · 发表于 2017-1-2 15:25:00

啥也不说了，感谢楼主分享哇！

cq_qg68 · 发表于 2017-1-6 08:52:23

很实用的技巧。

yxianfo · 发表于 2017-1-7 17:02:12

源码必须学习。

sicky111 · 发表于 2017-1-8 11:43:03

这个好啊。

elitefish · 发表于 2017-1-9 10:32:59

看看，不错

zhangq_cai1 · 发表于 2017-1-9 11:59:24

啥也不说了，感谢楼主分享哇！

elitefish · 发表于 2017-1-9 13:37:43

本帖最后由 elitefish 于 2017-1-9 15:22 编辑

奇怪，vbs里面使用 wscript.shell 的 popup 可以自动关闭
但在CAD里面 (mc_PopupBox "12224" 2 "2456" 0) 却无法自动关闭

qianzj · 发表于 2017-1-10 16:03:11

“我来测试一下，行不行”

shenfjliu · 发表于 2017-1-10 21:41:26

xxxx学习学习！谢谢

xinxirong · 发表于 2017-1-12 20:04:43

ffffffffffffffffffff

yxianfo · 发表于 2017-1-18 16:36:14

本帖最后由 yxianfo 于 2017-1-21 10:48 编辑

qht5566 发表于 2016-12-6 22:57

是否要的是这个效果：
(defun c:df ();;线性标注
(setq olddimlfac (getvar "DIMLFAC")
      olddim (expt olddimlfac 2));;有勾了布局变成-1的情况，故平方变1
;(if (/= olddim 1)(mc_PopupBox  "当前标注样式的单位比例因子不为1" 1 "注意" 48))
(if (/= olddim 1)(vlax-invoke-method (vlax-create-object "wscript.shell")  'Popup "当前标注样式的单位比例因子不为1"  6  "注意"  48))
;;返回值操作部分
(command "DIMLINEAR")
(princ)
)

kqqt6236 · 发表于 2017-1-20 19:06:01

谢谢分享。

qht5566 · 发表于 2017-1-21 11:34:46

yxianfo 发表于 2017-1-18 16:36

是的，不过还是不能自动关闭。
系统是win8.1x64位的。

jpgt102329 · 发表于 2017-4-29 08:55:19

好东西学习一下

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

[每日一码] 弹出可定时自动关闭的消息窗口

点评