bbalert 16种提示模式

1291500406 · 发表于 2019-4-11 23:45:43

本帖最后由 1291500406 于 2019-4-12 08:35 编辑

bbalert 16种模式

1291500406 · 发表于 2019-4-12 08:59:42

本帖最后由 1291500406 于 2019-4-12 09:01 编辑

烟盒迷唇发表于 2019-4-12 08:47
有什么好处

个性化的提示，远远超过自带的 (alert "提示")

(alert "提示")
标题为AutoCAD 信息而不是自己的标题

而( bbalert "显示确定按钮" 2 "必强提示1" 0) 弥补alert一些缺陷

1，提示面板带自动关闭时间
2，标题自定义
3，16种提示模式选择，让提示不单调 16 32 48 64 带图标提示是我最喜欢的
4，返回值简化程序的编写，是返回一个值否返回一个值判断值处理

llsheng_73 · 发表于 2020-5-19 17:53:37

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

是这样的么？

Cad船长 · 发表于 2020-5-19 17:33:24

(setq atr (bbalert (strcat "即将统一标注样式，请确认出图比例设置是否与图纸图框比例匹配。匹配点确定，否则点取消后先正确设置出图比例再统一！！" ) 2 "提示：" 1))
(princ atr)
(if (= atr 2)(exit))

经测试，没有取到返回值，这个判断点了哪个按钮的返回值该怎么取呢？

烟盒迷唇 · 发表于 2019-4-12 08:47:02

有什么好处

纵横八方 · 发表于 2019-4-12 09:51:43

强哥，强哥，你最棒，强哥，强哥，你最强，你最棒，你最强

434939575 · 发表于 2019-4-12 10:40:19

这个不错，顶起来

yaokui25 · 发表于 2019-4-12 11:07:43

这个不错，顶起来。外瑞外瑞古德

taoyi0727 · 发表于 2019-4-12 12:59:29

这个好 , 不会写这种好像是调用了系统什么东本看不懂

纵横八方 · 发表于 2019-4-12 13:10:23

taoyi0727 发表于 2019-4-12 12:59
这个好 , 不会写这种好像是调用了系统什么东本看不懂

自由度面板共享出来吧！

1291500406 · 发表于 2019-4-12 13:15:35

纵横八方发表于 2019-4-12 13:10
自由度面板共享出来吧！

哈哈，快快交出来

taoyi0727 · 发表于 2019-4-12 13:36:11

纵横八方发表于 2019-4-12 13:10
自由度面板共享出来吧！

还没有写完还在写系统变量水平低时间少进度有点慢昨晚画图还搞到1点过

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

[源码] bbalert 16种提示模式

本帖子中包含更多资源

点评