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

自制进度条（源码）






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-8-16 09:35:17

帆航 发表于 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:46

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

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

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

opendcl?
帮顶

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

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

是的
opendcl做的

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

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

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

不错不错，支持一个

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

挺好的啊我顶

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

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

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

不错，，支持一个

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

如何使用？

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

楼主，请问这个进行条怎么加载和使用，谢谢！
我有下载，但是不会用，不要请您给个帮忙，谢谢！
页: [1] 2 3 4 5
查看完整版本: 自制进度条（源码）