明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 永不言弃

[源码] 自制进度条(源码)

[复制链接]
 楼主| 发表于 2017-8-16 17:43 | 显示全部楼层
clinber 发表于 2017-8-16 17:17
有没有源码呢 想学习一下  大神

大神,这个不是源码是什么(一楼)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2017-8-16 18:12 | 显示全部楼层
永不言弃 发表于 2017-8-16 17:43
大神,这个不是源码是什么(一楼)

哈哈哈  抱歉  我这儿用的360浏览器 正好被弹出的下载图片对话框挡住了 只看到那个压缩包
发表于 2017-8-17 12:45 | 显示全部楼层
楼主,你写的工具条能显示cad本身命令的运行进度吗?谢谢
 楼主| 发表于 2017-8-17 16:03 | 显示全部楼层
帆航 发表于 2017-8-17 12:45
楼主,你写的工具条能显示cad本身命令的运行进度吗?谢谢

不可以哦                    
发表于 2017-9-27 15:27 | 显示全部楼层
fl;kjgflkjfdklkjfdgiojiodsjksdglkjkdsl;kgj;zg;jj
发表于 2017-9-29 14:53 | 显示全部楼层
程序没到百分之百 就关闭了
发表于 2017-9-30 09:30 | 显示全部楼层
这个好,让我们的等待有个念想。
发表于 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)
      )
    )
  )






本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2017-10-7 13:25 | 显示全部楼层
而个体惹怒
发表于 2017-10-8 10:42 | 显示全部楼层
厉害厉害,顶顶顶顶顶顶
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 18:35 , Processed in 1.091506 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表