自制进度条（源码）

永不言弃 · 发表于 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

厉害厉害，顶顶顶顶顶顶

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

[源码] 自制进度条（源码）

本帖子中包含更多资源

本帖子中包含更多资源