[原创]：程序进度显示,仅限autocad2002测试过

wujimmy

[php]
(defun c:t1()
(setq i% 0)
(repeat 10000
(princ (strcat "\r已经完成:" (rtos i% ) "%" ))
(setq i% (1+ i%))
  )
  (princ)
)

[/php]

参考:

得到返回结果之前不显示打印信息

在 AutoCAD R14 中，每个 AutoLISP 打印函数（例如 print、princ）都自动回显到 AutoCAD 命令行并立即可见。在 AutoCAD 2000 和更高版本中，显示驱动程序将缓存打印信息，直到得到返回结果（/n 或 /r）。结果，函数完成之前可能不显示信息。例如，在 R14 中，下列代码一遇到 princ 就发出信息“Wait. Program is busy...”。

(defun test()
(setq count 0)
(princ "\nWait.Program is busy...")
(while (< count 100000)
(setq count (1+ count)))
(princ "\nCounted: ")
(princ count)
(princ)

)

在 AutoCAD 2000 和更高版本中，不显示“Program is busy”的信息，直到在 while 循环后面遇到下一个 \n（已开始等待）。为确保立即显示信息，请在打印函数调用的结尾添加 \n 或 \r。例如：

(princ "\nWait. Program is busy...\n")

wuzz

如何保证程序加载和进度条同时运行？

wujimmy

什么意思?是不是指程序load过程中显示加载进程?

ccds

多个也能显示么？

qjcpj

使用doslib下的函数dos_getprogress可实现且更直观。

狂刀

不用ｐｒｉｎc
用grtext　写状态条

Jason0511

谢谢阿，缘分哪！

wuzz

不论是princ，还是grtext，程序必须执行完该循环后再往下运行，实际上这种进度条已经不能准确地反映程序加载的进度了

wujimmy

最初由 wuzz 发布
[B]不论是princ，还是grtext，程序必须执行完该循环后再往下运行，实际上这种进度条已经不能准确地反映程序加载的进度了 [/B]

你的理解好像有错误,我在这里写这个帖子目的只是提供一种
能够是命今显示一句话,然后是显示下一句话的时候,能够把上一句话自动清除掉.

至于你说的问题,根本就不是问题.真正用这段代码的时候是把repeat去掉,只是那句princ比较特别啊,你如果没有看这个帖子,估计要做出这种效果,还是很困难的.

说完了,就这样
有些人是毛病,在我的帖子里灌水,要是想灌水到别的地方去灌水去,自己开一个帖子自已灌,下回再碰到,就不要怪我不客气,删了ID.
如是缺钱花,跟我说一下,晓东有转帐功能,或者.......
气:(((((

gufengyin

grtext  不会改变任何设置

yunlong3000

我以前编程时遇到过几次“得到返回结果之前不显示打印信息”的情况，当时还以为与对话框有关（有问题的几个程序都有对话框），看来是另有原因呀。多谢楼主指点。

mkhsj927

显示进度条用ACEt－progress嘛

wujimmy

最初由 mkhsj927 发布
[B]显示进度条用ACEt－progress嘛 [/B]

不是每个人都有这个工具库的,所以还是用这个程序比较通用啊

grig_luo

ACEt－progress  再那里搞的到啊??