设为首页收藏本站转

发帖领奖家园QQ群申请版主版主评价切换到宽版

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 进度条

返回列表发新帖

查看: 603|回复: 3

[研讨] 进度条

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通

发表于 2017-6-8 10:15:49 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2017-6-8 10:17 编辑

;;进度条
;;这个可能简单些，只需要循环次数就可,放入循环语句就行。
(DEFUN HH:progress (n / A IN)
(setq in (getvar 'Useri3))
(setq a (* (FIX (* (/ (float in) n) 20)) 2))
(if (>= in n)
(setq in 0)
)
(setvar 'Useri3 (1+ in))
(GRTEXT -2 (SUBSTR "████████████████████" 1 a))
)
;;测试
(defun C:w1 ()
(repeat 50
(command "delay" 50)
(HH:progress 50)
)
(princ)
)

评分

参与人数 2	D豆 +10	收起理由
434939575	+ 5	有点好玩！
newer	+ 5

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复

使用道具举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2017-6-8 11:34:06 | 显示全部楼层

没用过，只会拖累速度

点评

/db_自贡黄明儒_

慢的程序，看起来像死机了，有了它，至少知道还是活的。发表于 2017-6-8 11:41

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

发表于 2017-6-8 12:43:42 | 显示全部楼层

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

iLisp 发表于 2017-6-8 11:34

有进度条，交互体验要好些！
但是循环套循环的情况下，最好是在外层循环做进度条。不然会拖慢很多

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

回复支持反对

使用道具举报

返回列表发新帖

|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-24 04:28 , Processed in 0.294008 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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