请大师看看我的进度条，看看可否用时间的方法来实现

lgx9612

我自己做了一个进度条，附上我的代码，请教高手可不可用时间来控制。请指教!我现在是拖动鼠标来实现的，鼠标右键结束。

2. (defun progress_lgx(current_pcs tatoal current1_pcs tatoal1 / lgx_screenmin_point lgx_screenmax_point width-x_lgx
   
3.         height-y_lgx half-y_lgx grve_lgx min-x_lgx max-x_lgx y_zl_lgx x_zl_lgx)
   
4. ;;;by:  刘国新
   
5. (redraw)
   
6. (setq lgx_screenmin_point(list (- (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))
   
7.          (- (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))
   
8. (setq lgx_screenmax_point(list (+ (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))
   
9.          (+ (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))
   
10. (setq width-x_lgx (- (car lgx_screenmax_point)(car lgx_screenmin_point)))
    
11. (setq height-y_lgx (- (cadr lgx_screenmax_point)(cadr lgx_screenmin_point)))
    
12. (setq half-y_lgx (+ (cadr lgx_screenmin_point)(* height-y_lgx 0.5)))
    
13. (if (and (/= tatoal nil)(> tatoal 0))
    
14. (progn
    
15. (setq grve_lgx nil)
    
16. (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))
    
17. (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))
    
18. (if (and (/= tatoal1 nil)(> tatoal1 0))
    
19. (progn
    
20. (setq min-y_lgx (+ half-y_lgx (* height-y_lgx 0.005)))
    
21. (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.025)))
    
22. )
    
23. (progn
    
24. (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.01)))
    
25. (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.01)))
    
26. )
    
27. )
    
28. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
29.          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
30.          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
31.          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
32. (grvecs (cons 98 grve_lgx))
    
33. (setq grve_lgx nil)
    
34. (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))
    
35. (if (/= current_pcs 0)
    
36. (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current_pcs) (float tatoal))))
    
37. (setq x_zl_lgx 0)
    
38. )
    
39. (setq max-x_lgx (+ min-x_lgx x_zl_lgx))
    
40. (repeat 10
    
41. (setq min-y_lgx (+ min-y_lgx y_zl_lgx))
    
42. (setq max-y_lgx min-y_lgx)
    
43. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
44.        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
45.        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
46.        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
47. (grvecs (cons 1 grve_lgx))
    
48. )
    
49. )
    
50. )
    
51. (if (and (/= tatoal1 nil)(> tatoal1 0))
    
52. (progn
    
53. (setq grve_lgx nil)
    
54. (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))
    
55. (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))
    
56. (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.025)))
    
57. (setq max-y_lgx (- half-y_lgx (* height-y_lgx 0.005)))
    
58. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
59.          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
60.          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
61.          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
62. (grvecs (cons 98 grve_lgx))
    
63. (setq grve_lgx nil)
    
64. (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))
    
65. (if (/= current1_pcs 0)
    
66. (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current1_pcs) (float tatoal1))))
    
67. (setq x_zl_lgx 0)  
    
68. )
    
69. (setq max-x_lgx (+ min-x_lgx x_zl_lgx))
    
70. (repeat 10
    
71. (setq min-y_lgx (+ min-y_lgx y_zl_lgx))
    
72. (setq max-y_lgx min-y_lgx)
    
73. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
74.        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
75.        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
76.        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
77. (grvecs (cons 1 grve_lgx))
    
78. )
    
79. )
    
80. )
    
81. )
    
82. 
    
83. (defun c:test()
    
84. (setq current 1)
    
85. (setq current1 1)
    
86. (while (/= (car (apply 'GRREAD '(t 7 0))) 11)
    
87. (progress_lgx current 1000 current1 100)
    
88. (setq current (+ current 1))
    
89. (setq current1 (+ current1 1))
    
90. (if (= current 1000) (setq current 1))
    
91. (if (= current1 100) (setq current1 1))
    
92. )
    
93. )
    
94. 
    
95. ;;;如何可以用时间来控制显示进度条，例如我想用下面的方法但显示的过程不能显示出来
    
96. ;;;(progn
    
97. ;;;(setq current 1)
    
98. ;;;(repeat 51
    
99. ;;;(setq time_start (getvar "cdate"))
    
100. ;;;(while (< (* 1000000 (- (setq time_end (getvar "cdate")) time_start)) 0.03))
     
101. ;;;(progress_lgx current 100 current 150)
     
102. ;;;(setq current (+ current 2))
     
103. ;;;)
     
104. ;;;)
     

(defun progress_lgx(current_pcs tatoal current1_pcs tatoal1 / lgx_screenmin_point lgx_screenmax_point width-x_lgx<br />         height-y_lgx half-y_lgx grve_lgx min-x_lgx max-x_lgx y_zl_lgx x_zl_lgx)<br /> ;;;by:  刘国新<br /> (redraw)<br /> (setq lgx_screenmin_point(list (- (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))<br />          (- (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))<br /> (setq lgx_screenmax_point(list (+ (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))<br />          (+ (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))<br /> (setq width-x_lgx (- (car lgx_screenmax_point)(car lgx_screenmin_point)))<br /> (setq height-y_lgx (- (cadr lgx_screenmax_point)(cadr lgx_screenmin_point)))<br /> (setq half-y_lgx (+ (cadr lgx_screenmin_point)(* height-y_lgx 0.5)))<br /> (if (and (/= tatoal nil)(> tatoal 0))<br /> (progn<br /> (setq grve_lgx nil)<br /> (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))<br /> (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))<br /> (if (and (/= tatoal1 nil)(> tatoal1 0))<br /> (progn<br /> (setq min-y_lgx (+ half-y_lgx (* height-y_lgx 0.005)))<br /> (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.025)))<br /> )<br /> (progn<br /> (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.01)))<br /> (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.01)))<br /> )<br /> )<br /> (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)<br />          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)<br />          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)<br />          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))<br /> (grvecs (cons 98 grve_lgx))<br /> (setq grve_lgx nil)<br /> (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))<br /> (if (/= current_pcs 0)<br /> (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current_pcs) (float tatoal))))<br /> (setq x_zl_lgx 0)<br /> )<br /> (setq max-x_lgx (+ min-x_lgx x_zl_lgx))<br /> (repeat 10<br /> (setq min-y_lgx (+ min-y_lgx y_zl_lgx))<br /> (setq max-y_lgx min-y_lgx)<br /> (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)<br />        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)<br />        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)<br />        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))<br /> (grvecs (cons 1 grve_lgx))<br /> )<br /> )<br /> )<br /> (if (and (/= tatoal1 nil)(> tatoal1 0))<br /> (progn<br /> (setq grve_lgx nil)<br /> (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))<br /> (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))<br /> (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.025)))<br /> (setq max-y_lgx (- half-y_lgx (* height-y_lgx 0.005)))<br /> (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)<br />          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)<br />          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)<br />          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))<br /> (grvecs (cons 98 grve_lgx))<br /> (setq grve_lgx nil)<br /> (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))<br /> (if (/= current1_pcs 0)<br /> (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current1_pcs) (float tatoal1))))<br /> (setq x_zl_lgx 0)  <br /> )<br /> (setq max-x_lgx (+ min-x_lgx x_zl_lgx))<br /> (repeat 10<br /> (setq min-y_lgx (+ min-y_lgx y_zl_lgx))<br /> (setq max-y_lgx min-y_lgx)<br /> (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)<br />        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)<br />        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)<br />        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))<br /> (grvecs (cons 1 grve_lgx))<br /> )<br /> )<br /> )<br /> )<br /> <br /> (defun c:test()<br /> (setq current 1)<br /> (setq current1 1)<br /> (while (/= (car (apply 'GRREAD '(t 7 0))) 11)<br /> (progress_lgx current 1000 current1 100)<br /> (setq current (+ current 1))<br /> (setq current1 (+ current1 1))<br /> (if (= current 1000) (setq current 1))<br /> (if (= current1 100) (setq current1 1))<br /> )<br /> )<br /> <br /> ;;;如何可以用时间来控制显示进度条，例如我想用下面的方法但显示的过程不能显示出来<br /> ;;;(progn<br /> ;;;(setq current 1)<br /> ;;;(repeat 51<br /> ;;;(setq time_start (getvar "cdate"))<br /> ;;;(while (< (* 1000000 (- (setq time_end (getvar "cdate")) time_start)) 0.03))<br /> ;;;(progress_lgx current 100 current 150)<br /> ;;;(setq current (+ current 2))<br /> ;;;)<br /> ;;;)<br />

csharp

为什么写这么麻烦的，一般在状态栏用grtext

wowan1314

支持创新！   不过为什么通过 右键 或 时间来控制呢？

一般不都是通过 循环次数的百分比 来控制吗？ 这样才能与程序步调一致啊！

lgx9612

wowan1314 发表于 2014-8-9 13:06
支持创新！   不过为什么通过 右键 或 时间来控制呢？

一般不都是通过 循环次数的百分比 来控制吗？ 这 ...

    都可以,我只是想程序在计算运行过程中可以把进度的显示出来。现在的情况是在运算的过程显示不出来等运算完成后显示了最终的结果，所以我用移动鼠标能够将进度条可以显示出来，最终目的不是用鼠标来控制进度。所以来请求帮忙!

eachy

lgx9612 发表于 2014-8-9 19:41
都可以,我只是想程序在计算运行过程中可以把进度的显示出来。现在的情况是在运算的过程显示不出来等 ...

延迟和误差是正常的，不管什么进度条和处理都不可能完全同步，就是一个提示参考而已

lgx9612

     冥思苦想，终于找到解决的方法了，完全可以用时间或循环的方法来实现，并且进度过程可以显于出来，只要在
progress_lgx函数前加(princ)即可，为显示屏争取一点时间将进度显示出了

zinah

我不是高手，但我崇拜你。。。