.net用户可以通过调用DoEvents强制进行界面更新,LISP因为机制接口等限制,没有相应的方法 (vla-eval (vlax-get-acad-object) "DoEvents") 可以用(grtext -2 "tips")在状态栏中显示,只是提示效果不是很明显,我在2014中测试没有问题。 本帖最后由 elitefish 于 2018-12-17 22:51 编辑
写一个 dcl ,里面写上你的提示内容,设置一个 default 按钮 但什么都不允许操作
用 new_dialog 加载后不要用start_dialog
等你的循环结束后直接调用 (done_dialog 0)
来关闭对话框 fools 发表于 2018-11-14 16:58
(vla-eval (vlax-get-acad-object) "DoEvents")
vbs 里面没有 doevents 本帖最后由 VBALISPER 于 2024-12-22 11:35 编辑
qwas 发表于 2018-12-15 09:51
可以用(grtext -2 "tips")在状态栏中显示,只是提示效果不是很明显,我在2014中测试没有问题。
谢谢分享。2020版中,中间的参数变成-1了。-2也能出现,闪现一下,就消失了,不注意还观察不到。 进程展示还是直接调用acet的progressbar吧。毕竟高版本CAD,ET一般都会装的。
页:
1
[2]