[分享]：程序进度(??%)显示 , 终于搞定!

aeo · 发表于 2004-7-1 23:41:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

以前别人贴的都是到程序结束才显示.
这次搞定了.
[php]
(setq *app (vlax-get-acad-object))
(defun pross (k l)
  ;;;By Aeo
  (grtext -2
   (strcat "已完成 "
      (rtos (/ (* 100.0 k) l) 2 0 )  "%..."
   )
  )
  (vla-eval *app "DoEvents")
)
[/php]
test
[php]
;;测试 By Aeo
(defun c:test ( / h k l)
  (setq k 0 l 100 )
  (while(< k l)
(pross k l)
(command "delay"100)
(setq k(+ k 2))
  )(princ)
)
[/php]
不比ET里的函数差吧:)

其实，显示进度是以减慢程序速度为代价的.

aeo · 发表于 2004-7-1 23:48:35

讲讲DoEvents

windows处理事情，是排好队,一件一件来的，
DoEvents函数可以临时返回控制器给操作系统,先处理一下手头的事情.

PLgis · 发表于 2004-7-2 09:17:25

好。值得学习。

zhang8755 · 发表于 2004-7-2 11:06:28

我在2004下测试有没有(vla-eval *app "DoEvents") 都一样，这句到底有什么用？

aaddff · 发表于 2004-7-2 12:50:02

做的很好，但我不知道做什么用？
可以说一下吗？

秋枫 · 发表于 2004-7-2 22:20:15

学了一招！

aaddff · 发表于 2004-7-3 09:24:03

(defun c:process ()
(acet-ui-progress "加载进度" 100)
(setq x 0)
(while (< x 100)
   (command "delay" 15)
      ;(princ (strcat "\n" (itoa x)))
      (acet-ui-progress -1)
      (setq x (1+ x))
)
(acet-ui-progress)
(princ)
)

shisj · 发表于 2004-7-3 09:42:27

acet-ui-progress 该函数我没有找到帮助，是什么作用？

netbee · 发表于 2004-7-3 13:58:48

acet-ui-progress是ET工具中的

zhanzujie · 发表于 2004-7-11 13:50:33

请问ET工具中函数的的用法在哪里能找到

zuicai · 发表于 2004-7-11 14:55:37

明经通道也在讨论这个问题。

lsjjm · 发表于 2004-7-20 05:20:49

也贴一个ACET函数的:
[php]
(defun c:test ()
  (acet-ui-progress-init "Processing Bar" 1000)
  (setq i 0)
  (repeat 1000
(setq i (1+ i))
(acet-ui-progress-safe i)
  )
  (acet-ui-progress-done)
)
[/php]

li_seagull · 发表于 2004-9-21 13:05:03

(defun c:test ()
  (acet-ui-progress-init "Processing Bar" 1000)
  (setq i 0)
  (repeat 1000
(setq i (1+ i))
(acet-ui-progress-safe i)
  )
  (acet-ui-progress-done)
)

它山之石 · 发表于 2004-9-22 16:22:46

真的能与程序的运行同步显示%百分比吗？
在R14下如何实现？
我问晓东，也没见答复。

saltxf · 发表于 2004-9-29 16:17:28

要进度百分比有什么用啊！能举个例子说明下？

账号		自动登录	找回密码
密码			立即注册

[分享]：程序进度(??%)显示 , 终于搞定!

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块