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

bbalert 16种提示模式

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

bbalert16种模式


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 (= atr2)(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点过
页: [1] 2 3
查看完整版本: bbalert 16种提示模式