自制进度条（源码）

永不言弃 · 发表于 2017-8-10 20:15

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

本帖最后由 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-8-16 09:35

帆航发表于 2017-8-16 08:29
安装好了opendcel后，再把.odcl文件打开，然后添加.lsp进来，再然后呢，真的不会了，麻烦了

(defun c:tt();;;;测试
(xlr_open_bar);;;启用
(setq num 2500)
(setq k 0)
(repeat num
(setq k (1+ k))
(xlr_show_bar num k);;;当前值(num 为总数值 K当前值)
)
(xlr_close_bar);;;;停用
)

nyistjz · 发表于 2018-3-1 12:04

elitefish 发表于 2017-9-30 12:16
纯Lisp的进度条iRate：当前进度百分比数值（0~100） sMsg：进度条前显示的文字

你好，我加载了，没有显示进度条，是什么情况，我们可以加个朋友吗？
QQ84764744

zzyong00 · 发表于 2017-8-10 20:21

opendcl?
帮顶

永不言弃 · 发表于 2017-8-11 11:00

zzyong00 发表于 2017-8-10 20:21
opendcl?
帮顶

是的
opendcl做的

永不言弃 · 发表于 2017-8-11 16:06

这个可防止CAD进入假死状态

itoboy · 发表于 2017-8-11 21:14

不错不错，支持一个

LIULISHENG · 发表于 2017-8-12 08:31

挺好的啊我顶

Mickeylin · 发表于 2017-8-12 15:50

还不错呢，有好多次因为假死直接关掉了

enn09 · 发表于 2017-8-14 10:46

不错，，支持一个

depgfdepgf · 发表于 2017-8-14 12:37

如何使用？

nyistjz · 发表于 2017-8-14 20:20

楼主，请问这个进行条怎么加载和使用，谢谢！
我有下载，但是不会用，不要请您给个帮忙，谢谢！

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

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

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源