永不言弃 发表于 2017-8-16 17:43:35

clinber 发表于 2017-8-16 17:17
有没有源码呢 想学习一下大神

大神，这个不是源码是什么（一楼）

clinber 发表于 2017-8-16 18:12:22

永不言弃 发表于 2017-8-16 17:43
大神，这个不是源码是什么（一楼）

哈哈哈抱歉我这儿用的360浏览器 正好被弹出的下载图片对话框挡住了 只看到那个压缩包

帆航 发表于 2017-8-17 12:45:20

楼主，你写的工具条能显示cad本身命令的运行进度吗？谢谢

永不言弃 发表于 2017-8-17 16:03:23

帆航 发表于 2017-8-17 12:45
楼主，你写的工具条能显示cad本身命令的运行进度吗？谢谢

不可以哦                  

张晓亮 发表于 2017-9-27 15:27:30

fl;kjgflkjfdklkjfdgiojiodsjksdglkjkdsl;kgj;zg;jj

lea丶丶 发表于 2017-9-29 14:53:34

程序没到百分之百 就关闭了

Excel2119 发表于 2017-9-30 09:30:55

这个好，让我们的等待有个念想。

elitefish 发表于 2017-9-30 12:16:21

本帖最后由 elitefish 于 2017-9-30 13:49 编辑

纯Lisp的进度条iRate：当前进度百分比数值 （0~100）sMsg：进度条前显示的文字

序号代码
01.
02.
03.
04.
05.
06.
07.
08.
09.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
;进度条(defun EF-ProgressBar (iRate sMsg / Lst str J)
(setq iRate (min 100 (max 0 iRate)))
(if (= iRate 100)
    (grtext)
    (progn
      (setq LST '("" "▏" "▎" "▍" "▌" "▋" "▊" "▉" "█")
      sProgress ""
      iRate (fix iRate)
      iRate (* iRate 2)
      )
      (repeat (/ iRate (length LST))
    (setq sProgress (strcat sProgress (last LST)))
    )
      (setq sProgress (strcat sProgress (nth (rem iRate (length LST)) LST)))
      (repeat (/ (- 44 (strlen sProgress)) 2)
    (setq sProgress (strcat sProgress "　"))
    )
      (setq sProgress (strcat sProgress (rtos (/ iRate 2) 2 0) "%"))
      (grtext -1 sMsg)
      (grtext -2 sProgress)
      )
    )
)






张晓亮 发表于 2017-10-7 13:25:31

而个体惹怒

逍遥天下 发表于 2017-10-8 10:42:28

厉害厉害，顶顶顶顶顶顶
页: 1 2 [3] 4 5
查看完整版本: 自制进度条（源码）