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

highflybir

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

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

HFB_SetProgressMeterPos

1. ;;;测试进度条
   
2. (defun C:testSP (/ i)
   
3.   (HFB_SetProgressMeter "我的进度条" 0 1000)
   
4.   (setq i 1)
   
5.   (repeat 1000
   
6.     (command "delay" 10)
   
7.     (HFB_SetProgressMeterPos i)
   
8.     (setq i (1+ i))
   
9.   )
   
10.   (princ)
    
11. )
    

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

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

smartstar

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

richine001

太强悍了吧，

拖拖_拉拉_

太好了

zhangtieliang

厉害啊666666

20060510412

我试用了一下，cad在运行一段时间之后，就假死了