highflybir 发表于 2013-8-1 00:18:30

【DynamicLisp的高级应用】-- 进度条

本帖最后由 highflybir 于 2013-8-1 09:07 编辑

DynamicLisp的新增加的一个函数的样例和演示：
(HFB_SetProgressMeter 参数1 参数2 参数3)
功能： 设置进度条的名称，最小值，最大值。
参数说明： 参数1：进度条的名称，为字符串。
                  参数2：开始的位置，最小值，非负整数。
                  参数3：结尾的位置，最大值，正整数。
返回值：   成功返回T，否则返回nil.

(HFB_SetProgressMeterPos 参数1)
功能：设置进度条的位置。
参数说明： 参数1： 进度条所在的位置。为整数值。
返回值：   成功返回T，否则返回nil.

HFB_SetProgressMeterPos

;;;测试进度条
(defun C:testSP (/ i)
(HFB_SetProgressMeter "我的进度条" 0 1000)
(setq i 1)
(repeat 1000
    (command "delay" 10)
    (HFB_SetProgressMeterPos i)
    (setq i (1+ i))
)
(princ)
)


相关介绍：
http://bbs.mjtd.com/thread-90447-15-1.html

smartstar 发表于 2013-8-1 06:48:42

回头下载学习测试，谢谢高飞鸟！

richine001 发表于 2013-8-1 12:10:27

太强悍了吧，

拖拖_拉拉_ 发表于 2014-12-16 11:55:00

太好了

zhangtieliang 发表于 2021-3-27 20:19:34

厉害啊666666

20060510412 发表于 2022-9-2 14:55:47

我试用了一下，cad在运行一段时间之后，就假死了
页: [1]
查看完整版本: 【DynamicLisp的高级应用】-- 进度条