bbalert 16种提示模式

taoyi0727

nSecondsToWait 问下这个参数是什么  刚才试了下试不出来

taoyi0727

找到了
  nSecondsToWait '等待选择的秒数。若选择超时，消息框自动关闭，返回值 -1
               '缺省值 0 秒，必须选择一个按钮，消息框才会关闭
好像在lisp里这个没有用

http://www.bathome.net/thread-19604-1-1.html

刘仁钊

命令: bb1 ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

1291500406

刘仁钊 发表于 2019-4-12 14:30
命令: bb1 ; 错误: no function definition: VLAX-GET-ACAD-OBJECT

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90879&highlight=vlax-get-acad-object
试试加
(vl-load-com)

刘仁钊

加载了(vl-load-com)成功了，谢谢!!

菜卷鱼

流弊啊，这种调用的代码就不会写

石井鱼

学习了

Kye

弹出消息框之前，需要点击任务栏中出现的按钮，这等于点击了两次，有什么办法少点击一次

Cad船长

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

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

llsheng_73

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

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

是这样的么？