使用进度条的目的
本帖最后由 自贡黄明儒 于 2022-9-13 17:08 编辑使用进度条的目的，我认为主要是循环中，让使用者看到没有死机
今后循环中使用(princ(getvar "Millisecs")),也许就简单了。
(defun C:w2 ()
(while T
(princ(strcat "\r" (VL-PRINC-TO-STRING(getvar "Millisecs"))))
)
(princ)
)
。。。。
后续：以前有人讨论过，5楼vectra是正解。我忘了，随手发的。
;;(startapp "cmd.exe /c del/f D:\\1.txt")正确写法
(startapp "cmd.exe /c del/f D://1.txt")可以在循环中不断弹出，表示程序还在运行，并非死机。
都没查到"Millisecs"是个什么东西么，如果每个循环都显示，是会影响效率，关键显示一会儿，后面的就卡在那儿显示不出来了，直到结束 会严重影响循环效率。。 vectra 发表于 2022-5-27 11:05
会严重影响循环效率。。
系统函数，不会太费时间吧。 这个问题是无解的 因为循环起来就不会更新显示了 也就失去了提示进度的意义 目前只找到通过对话框来提示进度的办法 本帖最后由 自贡黄明儒 于 2022-5-27 15:11 编辑
vectra 发表于 2022-5-27 14:49
这个问题是无解的 因为循环起来就不会更新显示了 也就失去了提示进度的意义 目前只找到通过对话框来提示进 ...
好像是 这么回事情。我也是突然想起，随便说说。 如果转圈圈了，任何东西都会停止更新，直到转完圈圈 显示出来很费时间的 不明觉厉。。 个人观点
搞进度条只会适得其反
影响速度还是其次
普通人见到进度条不动了
第一反应不去按ESC的有几个？
页:
[1]
2