[分享]：一个在状态条显示处理进度的函数

eachy

[PHP]
;;一个在状态条显示处理进度的函数
(defun Ea:pross (k l)
  (grtext -2
          (strcat "已完成 "
                  (rtos        (/ (* 100.0 k) l)
                        2
                        0
                  )
                  "%...."
          )
  )
)
;;测试
(defun c:test (/ ss sl i n)
  (setq        ss (ssget "x")
        sl (sslength ss)
        n  1
  )
  (vlax-for i (vla-get-activeselectionset
                (vla-get-activedocument (vlax-get-acad-object))
              )
    (pross n sl)
    (vla-put-color i acgreen)
    (setq n (1+ n))
  )
  (princ)
)[/PHP]

841594

ea:pross->pross:)

lijiao

为了增加点效果，稍微修改了一下：
[program]
(defun pross (k l / j)
  (setq j "")
  (repeat (fix (/ (* 20.0 k) l))
    (setq j (strcat j (chr 8)))
  )
  (grtext -2
          (strcat (rtos        (/ (* 100.0 k) l)
                        2
                        0
                  )
                  "%"
                  j
          )
  )
)
[/program]

lt_zzy

如果用14，我感觉这个比较适用。

0451doctor

我试着改了一下！版主见笑了！

netbee

有没有同时显示进度条的方法

aeo

测试：
[program]
(defun c:test ( / h k l)
  (setq k 0 l 20 h "...")
  (while(< k l)
    (pross k l h)
    (command "delay"100)
    (setq k(1+ k))
  )(princ)
)
[/program]

不管是谁的，都是到最后才会出现进度，过程中没有.
你们的机器可以吗?

841594

aeo:我也是。谁能告诉原因？

0451doctor

我的很正常！
[program]
(defun c:test ( / h k l)
  (setq k 0 l 20 h "...")
  (while(<= k l)
    (pross k l h)
    (command "delay"100)
    (setq k(1+ k))
  )
  (princ)
)
[/program]
改了一下，这样才能正常！