[分享]：显示模拟进程条的函数 同时附返回屏幕四个角坐标的函数

fylinwater

显示模拟进程条的函数 同时附返回屏幕四个角坐标的函数
考虑UCS为VIEW的状态

2. 
   
3. ;;———————————————————————————————————
   
4. ;;processbar-jw.lsp
   
5. ;; Copyright (C) 2001 by ZJW ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.
   
6. ;;
   
7. ;;命令(函数)名称：     (processbar-jw doing  total  FIRST)
   
8. ;;返    回    值：      
   
9. ;;使用的公用变量：     无
   
10. ;;调用的其他函数：     无
    
11. ;;功          能：     显示进程条
    
12. ;;适用条件和范围：     第一次使用时FIRST为T  其他时刻为NIL  
    
13. ;;使用方法和技巧：     无
    
14. ;;功能扩展的方向：
    
15. ;;程序漏洞 (BUG)：     暂无
    
16. ;;程序完成地日期：     9:35 01-12-6
    
17. ;;开    发    者：     zjw
    
18. ;;修  改  日  志：     无
    
19. ;;附  加  说  明：     无
    
20. ;;———————————————————————————————————
    
21. ;{start
    
22. ;;内部变量简要说明：
    
23. ;;
    
24. (defun processbar-jw ( doing  total first / p1 p2 p3 p4 pa pb )
    
25. (if first
    
26. (progn
    
27. (setq p1 (nth 3 (wincorner-jw)))
    
28. (setq p2 (nth 3 (wincorner2-jw 1 0.495)))
    
29. (setq p3 (nth 3 (wincorner2-jw 0.93 0.495)))
    
30. (setq p4 (nth 3 (wincorner2-jw 0.93 1)))
    
31.   (grdraw p1 p2 1)
    
32.   (grdraw p2 p3 1)
    
33.   (grdraw p3 p4 1)
    
34.   (grdraw p4 p1 1)
    
35. )
    
36. )
    
37. (setq total (float total))
    
38. (setq doing (float doing))
    
39. (setq pa (nth 3 (wincorner2-jw 0.935 (- 0.998 (* (/ doing total) 0.5))  )))
    
40.   (setq pb (nth 3 (wincorner2-jw 0.995 (- 0.998 (* (/ doing total) 0.5)) )))
    
41.   ;(grdraw pa pb 2 )
    
42.   ;(grdraw pa pb -1 );对于统计量较大的用这种,可以重复调用，每次出现的效果不一样
    
43.   (grdraw pa pb 5)
    
44. (princ)
    
45. )
    
46. ;
    
47. ;end}
    
48. ;;——————————————————END————————————————————
    

<br /> ;;———————————————————————————————————<br /> ;;processbar-jw.lsp<br /> ;; Copyright (C) 2001 by ZJW ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.<br /> ;;<br /> ;;命令(函数)名称：     (processbar-jw doing  total  FIRST)<br /> ;;返    回    值：      <br /> ;;使用的公用变量：     无<br /> ;;调用的其他函数：     无<br /> ;;功          能：     显示进程条<br /> ;;适用条件和范围：     第一次使用时FIRST为T  其他时刻为NIL  <br /> ;;使用方法和技巧：     无<br /> ;;功能扩展的方向：<br /> ;;程序漏洞 (BUG)：     暂无<br /> ;;程序完成地日期：     9:35 01-12-6<br /> ;;开    发    者：     zjw <br /> ;;修  改  日  志：     无<br /> ;;附  加  说  明：     无<br /> ;;———————————————————————————————————<br /> ;{start<br /> ;;内部变量简要说明：<br /> ;;<br /> (defun processbar-jw ( doing  total first / p1 p2 p3 p4 pa pb )<br /> (if first<br /> (progn<br /> (setq p1 (nth 3 (wincorner-jw)))<br /> (setq p2 (nth 3 (wincorner2-jw 1 0.495)))<br /> (setq p3 (nth 3 (wincorner2-jw 0.93 0.495)))<br /> (setq p4 (nth 3 (wincorner2-jw 0.93 1)))<br />   (grdraw p1 p2 1)<br />   (grdraw p2 p3 1)<br />   (grdraw p3 p4 1)<br />   (grdraw p4 p1 1)<br /> )<br /> ) <br /> (setq total (float total))<br /> (setq doing (float doing))<br /> (setq pa (nth 3 (wincorner2-jw 0.935 (- 0.998 (* (/ doing total) 0.5))  )))<br />   (setq pb (nth 3 (wincorner2-jw 0.995 (- 0.998 (* (/ doing total) 0.5)) )))<br />   ;(grdraw pa pb 2 )<br />   ;(grdraw pa pb -1 );对于统计量较大的用这种,可以重复调用，每次出现的效果不一样<br />   (grdraw pa pb 5)<br /> (princ)<br /> )<br /> ;<br /> ;end}<br /> ;;——————————————————END————————————————————<br />

2. 
   
3. ;;———————————————————————————————————
   
4. ;;wincorner-jw.lsp
   
5. ;; Copyright (C) 2001 by ZJW ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.
   
6. ;;
   
7. ;;命令(函数)名称：     (wincorner-jw) (wincorner2-jw perx pery)
   
8. ;;参  数  说  明：     perx pery 为返回点区域占屏幕的百分率
   
9. ;;返    回    值：     表,表中有四个坐标点为当前窗口的左上、右上、右下、左下的坐标
   
10. ;;使用的公用变量：     无
    
11. ;;调用的其他函数：     (ucsorview)
    
12. ;;功          能：     
    
13. ;;适用条件和范围：     
    
14. ;;使用方法和技巧：     
    
15. ;;功能扩展的方向：
    
16. ;;程序漏洞 (BUG)：     暂无
    
17. ;;程序完成地日期：     12:48 01-12-10
    
18. ;;开    发    者：     zjw
    
19. ;;修  改  日  志：     无
    
20. ;;附  加  说  明：     无
    
21. ;;———————————————————————————————————
    
22. ;{start
    
23. ;;内部变量简要说明：
    
24. ;;
    
25. (defun wincorner-jw( / p h w p1 p2 p3 p4 s num ename alpha y x)
    
26.   (setq p (getvar "screensize"))
    
27.    (setq h (/ (getvar "viewsize") 2))
    
28.    (setq w (* h (/ (nth 0 p)  (nth 1 p) )))
    
29.   (setq p (getvar "viewctr"))
    
30.   (setq alpha (- 0 (ucsorview))) ;;求坐标偏移角
    
31. ;
    
32.   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )
    
33.   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))
    
34.   (setq p1 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
35.   (setq p3 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
36. ;;
    
37.   (setq  x (+ (* (- 0 w) (cos alpha)) ( *  h (sin alpha))) )
    
38.   (setq  y (- (* h (cos alpha)) ( * (- 0 w) (sin alpha))))
    
39.   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
40.   (setq p4 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
41. ;;
    
42. (list p1 p2 p3 p4)
    
43. 
    
44. )
    
45. ;
    
46. ;end}
    
47. ;;———————————————————————————————————
    
48. ;{start
    
49. ;;内部变量简要说明：
    
50. ;;
    
51. (defun wincorner2-jw( perx pery / p h w p1 p2 p3 p4  alpha y x)
    
52.   (setq p (getvar "screensize"))
    
53.    (setq h  (/ (getvar "viewsize") 2))
    
54.    (setq w  (* h (/ (nth 0 p)  (nth 1 p) )))
    
55.    (setq h (* pery h))
    
56.    (setq w (* perx w))
    
57.   (setq p (getvar "viewctr"))
    
58.   (setq alpha (- 0 (ucsorview))) ;;求坐标偏移角
    
59. ;
    
60.   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )
    
61.   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))
    
62.   (setq p1 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
63.   (setq p3 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
64. ;;
    
65.   (setq  x (+ (* (- 0 w) (cos alpha)) ( *  h (sin alpha))) )
    
66.   (setq  y (- (* h (cos alpha)) ( * (- 0 w) (sin alpha))))
    
67.   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))
    
68.   (setq p4 (list (+ (nth 0 p) x) (- (nth 1 p) y)))
    
69.   ;(grdraw p1 p2 1)
    
70.   ;(grdraw p2 p3 2)
    
71.   ;(grdraw p3 p4 3)
    
72.   ;(grdraw p4 p1 4)
    
73. ;;
    
74. (list p1 p2 p3 p4)
    
75. )
    
76. ;
    
77. ;end}
    
78. ;;——————————————————END————————————————————
    
79. 
    
80. (defun ucsorview ( / lpoint2 tw)
    
81. (if  (= 1 (getvar "worlducs")) (getvar "viewtwist")  0 )
    
82. )
    
83. 
    

<br /> ;;———————————————————————————————————<br /> ;;wincorner-jw.lsp<br /> ;; Copyright (C) 2001 by ZJW ,WuXi Municipal Enginerring Design Institue. All Rights Reserved.<br /> ;;<br /> ;;命令(函数)名称：     (wincorner-jw) (wincorner2-jw perx pery)<br /> ;;参  数  说  明：     perx pery 为返回点区域占屏幕的百分率<br /> ;;返    回    值：     表,表中有四个坐标点为当前窗口的左上、右上、右下、左下的坐标<br /> ;;使用的公用变量：     无<br /> ;;调用的其他函数：     (ucsorview)<br /> ;;功          能：     <br /> ;;适用条件和范围：     <br /> ;;使用方法和技巧：     <br /> ;;功能扩展的方向：<br /> ;;程序漏洞 (BUG)：     暂无<br /> ;;程序完成地日期：     12:48 01-12-10<br /> ;;开    发    者：     zjw <br /> ;;修  改  日  志：     无<br /> ;;附  加  说  明：     无<br /> ;;———————————————————————————————————<br /> ;{start<br /> ;;内部变量简要说明：<br /> ;;<br /> (defun wincorner-jw( / p h w p1 p2 p3 p4 s num ename alpha y x)<br />   (setq p (getvar "screensize"))<br />    (setq h (/ (getvar "viewsize") 2))<br />    (setq w (* h (/ (nth 0 p)  (nth 1 p) )))<br />   (setq p (getvar "viewctr"))<br />   (setq alpha (- 0 (ucsorview))) ;;求坐标偏移角<br /> ;<br />   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )<br />   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))<br />   (setq p1 (list (- (nth 0 p) x) (+ (nth 1 p) y)))<br />   (setq p3 (list (+ (nth 0 p) x) (- (nth 1 p) y)))<br /> ;;<br />   (setq  x (+ (* (- 0 w) (cos alpha)) ( *  h (sin alpha))) )<br />   (setq  y (- (* h (cos alpha)) ( * (- 0 w) (sin alpha))))<br />   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))<br />   (setq p4 (list (+ (nth 0 p) x) (- (nth 1 p) y)))<br /> ;;<br /> (list p1 p2 p3 p4)<br /> <br /> )<br /> ;<br /> ;end}<br /> ;;———————————————————————————————————<br /> ;{start<br /> ;;内部变量简要说明：<br /> ;;<br /> (defun wincorner2-jw( perx pery / p h w p1 p2 p3 p4  alpha y x)<br />   (setq p (getvar "screensize"))<br />    (setq h  (/ (getvar "viewsize") 2))<br />    (setq w  (* h (/ (nth 0 p)  (nth 1 p) )))<br />    (setq h (* pery h))<br />    (setq w (* perx w))<br />   (setq p (getvar "viewctr"))<br />   (setq alpha (- 0 (ucsorview))) ;;求坐标偏移角<br /> ;<br />   (setq  x (+ (* w (cos alpha)) ( * h (sin alpha))) )<br />   (setq  y (- (* h (cos alpha)) ( * w (sin alpha))))<br />   (setq p1 (list (- (nth 0 p) x) (+ (nth 1 p) y)))<br />   (setq p3 (list (+ (nth 0 p) x) (- (nth 1 p) y)))<br /> ;;<br />   (setq  x (+ (* (- 0 w) (cos alpha)) ( *  h (sin alpha))) )<br />   (setq  y (- (* h (cos alpha)) ( * (- 0 w) (sin alpha))))<br />   (setq p2 (list (- (nth 0 p) x) (+ (nth 1 p) y)))<br />   (setq p4 (list (+ (nth 0 p) x) (- (nth 1 p) y)))<br />   ;(grdraw p1 p2 1)<br />   ;(grdraw p2 p3 2)<br />   ;(grdraw p3 p4 3)<br />   ;(grdraw p4 p1 4)<br /> ;;<br /> (list p1 p2 p3 p4)<br /> )<br /> ;<br /> ;end}<br /> ;;——————————————————END————————————————————<br /> <br /> (defun ucsorview ( / lpoint2 tw)<br /> (if  (= 1 (getvar "worlducs")) (getvar "viewtwist")  0 )<br /> )<br /> <br />

cy956

进度条在doslib中有专门的函数

2. 
   
3. (defun work1(prom y)
   
4.   (setq x 0)
   
5.   (dos_getprogress prom "进行中，请耐心等待..." y)
   
6.   (repeat (fix (/ y 3))
   
7.     (setq a 1)
   
8.   )
   
9.   (while (< x y)
   
10.     (dos_getprogress -1)
    
11.     (setq x (1+ x))
    
12.   )
    
13.   (dos_getprogress t)
    
14. )
    
15. ;;;(work1 "数据处理" 1000);;;1000~10000
    
16. (defun work2 (prom y)
    
17.   (dos_progbar prom 10)
    
18.   (repeat (fix (/ y 3))
    
19.     (setq a 1)
    
20.   )
    
21.   (dos_progbar –1)
    
22.   (dos_progbar)
    
23.   (setq x 0)
    
24.   (dos_progbar prom y)
    
25.   (while (< x y)
    
26.     (dos_progbar -1)
    
27.     (setq x (1+ x))
    
28.   )
    
29.   (dos_progbar)
    
30. )
    

<br /> (defun work1(prom y)<br />   (setq x 0)<br />   (dos_getprogress prom "进行中，请耐心等待..." y)<br />   (repeat (fix (/ y 3))<br />     (setq a 1)<br />   )<br />   (while (< x y)<br />     (dos_getprogress -1)<br />     (setq x (1+ x))<br />   )<br />   (dos_getprogress t)<br /> )<br /> ;;;(work1 "数据处理" 1000);;;1000~10000<br /> (defun work2 (prom y)<br />   (dos_progbar prom 10)<br />   (repeat (fix (/ y 3))<br />     (setq a 1)<br />   )<br />   (dos_progbar –1)<br />   (dos_progbar)<br />   (setq x 0)<br />   (dos_progbar prom y)<br />   (while (< x y)<br />     (dos_progbar -1)<br />     (setq x (1+ x))<br />   )<br />   (dos_progbar)<br /> )<br />

这都是doslib－help中抄来改的，
一个进度条在图中，一个在状态行。
不过一般而言，进度条是唬人的玩艺儿，
其实浪费时间。

fylinwater

进程条本来没什么 但不用会让人以为程序死掉了
而且同样的程序用2秒
用了进程条要3秒  给人的感觉却是后者要快

前生

是啊,人的思维是活的，有一些小小的创意时。就很好!!!

XDSoft

XDRX_API提供的进度条函数，用了ARX的方法，应该说把使用进度条需要的时间降到了最低，在状态栏上。和ACAD自己打开图的时候的进度条表现完全一致。

在大程序运行的时候，比如消除重线等等，使用进度条还是很方便的，以前做过测试，20万条线，有进度条和没有也就差几秒。
但如果没有进度条，用户不知道什么时候会完。程序要人性是最主要的，其次才是在算法上研究。

2. 
   
3. [FONT=courier new]
   
4. 
   
5. 96. xdrx_pbarbegin
   
6. 
   
7. 功能：设置ACAD状态行进度条初值值
   
8. 
   
9. 调用格式：(xdrx_pbarbegin <提示字符串> <终值>)
   
10. 
    
11. 说明：1.参数<终值>:整数值
    
12.       2.显示进度条，必须先调用此函数，在LISP的循环体外
    
13. 
    
14. 97. xdrx_pbarsetpos
    
15. 
    
16. 功能：设置进度条的位置
    
17. 
    
18. 调用格式：(xdrx_pbarsetpos <位置>)
    
19. 
    
20. 说明：1.<位置>:在0和由函数xdrx_pbarbegin设置的终值之间的整数值
    
21.       2.该函数在lisp循环体内调用
    
22. 
    
23. 返回值：NIL
    
24. 98. xdrx_pbarend
    
25. 
    
26. 功能：清除ACAD状态行的进度条
    
27. 
    
28. 调用格式: (xdrx_pbarend)
    
29. 
    
30. 返回值：NIL
    
31. 
    
32. 举例：函数xdrx_pbarbegin,xdrx_pbarsetpos,xdrx_pbarend函数应用
    
33. 
    
34.      (defun c:test(/ i)
    
35.         (xdrx_pbarbegin "已经完成:" 100)
    
36.         (setq i 0)
    
37.         (repeat 100  ;;循环执行10秒左右
    
38.            (xdrx_pbarsetpos (setq i (1+ i)))
    
39.            (xdrx_sleep 100);延迟0.1秒
    
40.         )
    
41.         (xdrx_pbarend)
    
42.         (princ)
    
43.      )
    
44. 
    
45. [/FONT]

<br /> [FONT=courier new]<br /> <br /> 96. xdrx_pbarbegin<br /> <br /> 功能：设置ACAD状态行进度条初值值<br /> <br /> 调用格式：(xdrx_pbarbegin <提示字符串> <终值>)<br /> <br /> 说明：1.参数<终值>:整数值<br />       2.显示进度条，必须先调用此函数，在LISP的循环体外<br /> <br /> 97. xdrx_pbarsetpos<br /> <br /> 功能：设置进度条的位置<br /> <br /> 调用格式：(xdrx_pbarsetpos <位置>)<br /> <br /> 说明：1.<位置>:在0和由函数xdrx_pbarbegin设置的终值之间的整数值<br />       2.该函数在lisp循环体内调用<br /> <br /> 返回值：NIL<br /> 98. xdrx_pbarend<br /> <br /> 功能：清除ACAD状态行的进度条<br /> <br /> 调用格式: (xdrx_pbarend)<br /> <br /> 返回值：NIL<br /> <br /> 举例：函数xdrx_pbarbegin,xdrx_pbarsetpos,xdrx_pbarend函数应用<br /> <br />      (defun c:test(/ i)<br />         (xdrx_pbarbegin "已经完成:" 100)<br />         (setq i 0)<br />         (repeat 100  ;;循环执行10秒左右<br />            (xdrx_pbarsetpos (setq i (1+ i)))<br />            (xdrx_sleep 100);延迟0.1秒<br />         )<br />         (xdrx_pbarend)<br />         (princ)<br />      )<br /> <br /> [/FONT]

梦断江南

下次楼主最好能附上个实例应用程序,这样测试起来方便些

LUCAS

考慮UCS為VIEW的狀態------好像無效
使用例
(defun C:TT (/ N)
  (command "_.redraw")
  (setq N 1)
  (PROCESSBAR-JW 1 1500 t)
  (repeat 1500
    ;;(command "_.rotate" "l" "" "0,0" 5)
    ;;(print N)
    (PROCESSBAR-JW N 1500 NIL)
    (setq N (1+ N)
    )
  )
  (command "_.redraw")
  (princ)
)