修正了我的进度条，可以用时间及次数循环来控制了

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. ;;;(progn  ;;;例子如下
   
5. ;;;(setq current 0)
   
6. ;;;(repeat 11
   
7. ;;;(progress_lgx current 100 current 150)
   
8. ;;;(while (/= (getpoint) nil))
   
9. ;;;(setq current (+ current 10))
   
10. ;;;)
    
11. ;;;(repeat 11
    
12. ;;;(progress_lgx current 100 current 0)
    
13. ;;;(while (/= (getpoint) nil))
    
14. ;;;(setq current (+ current 10))
    
15. ;;;)
    
16. ;;;)
    
17. ;;;原创,编写:  刘国新
    
18. ;;;进度条显示
    
19. (redraw)
    
20. (setq lgx_screenmin_point(list (- (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))
    
21.          (- (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))
    
22. (setq lgx_screenmax_point(list (+ (car (getvar "viewctr")) (/ (*(/ (getvar "viewsize") (cadr (getvar "screensize"))) (car (getvar "screensize"))) 2))
    
23.          (+ (cadr (getvar "viewctr")) (/ (getvar "viewsize") 2))))
    
24. (setq width-x_lgx (- (car lgx_screenmax_point)(car lgx_screenmin_point)))
    
25. (setq height-y_lgx (- (cadr lgx_screenmax_point)(cadr lgx_screenmin_point)))
    
26. (setq half-y_lgx (+ (cadr lgx_screenmin_point)(* height-y_lgx 0.5)))
    
27. (if (and (/= tatoal nil)(> tatoal 0))
    
28. (progn
    
29. (setq grve_lgx nil)
    
30. (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))
    
31. (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))
    
32. (if (and (/= tatoal1 nil)(> tatoal1 0))
    
33. (progn
    
34. (setq min-y_lgx (+ half-y_lgx (* height-y_lgx 0.005)))
    
35. (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.025)))
    
36. )
    
37. (progn
    
38. (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.01)))
    
39. (setq max-y_lgx (+ half-y_lgx (* height-y_lgx 0.01)))
    
40. )
    
41. )
    
42. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
43.          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
44.          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
45.          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
46. (grvecs (cons 98 grve_lgx))
    
47. (setq grve_lgx nil)
    
48. (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))
    
49. (if (/= current_pcs 0)
    
50. (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current_pcs) (float tatoal))))
    
51. (setq x_zl_lgx 0)
    
52. )
    
53. (setq max-x_lgx (+ min-x_lgx x_zl_lgx))
    
54. (repeat 10
    
55. (setq min-y_lgx (+ min-y_lgx y_zl_lgx))
    
56. (setq max-y_lgx min-y_lgx)
    
57. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
58.        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
59.        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
60.        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
61. (grvecs (cons 1 grve_lgx))
    
62. )
    
63. )
    
64. )
    
65. (if (and (/= tatoal1 nil)(> tatoal1 0))
    
66. (progn
    
67. (setq grve_lgx nil)
    
68. (setq min-x_lgx (+ (car lgx_screenmin_point)(* width-x_lgx 0.25)))
    
69. (setq max-x_lgx (- (car lgx_screenmax_point)(* width-x_lgx 0.25)))
    
70. (setq min-y_lgx (- half-y_lgx (* height-y_lgx 0.025)))
    
71. (setq max-y_lgx (- half-y_lgx (* height-y_lgx 0.005)))
    
72. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
73.          (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
74.          (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
75.          (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
76. (grvecs (cons 98 grve_lgx))
    
77. (setq grve_lgx nil)
    
78. (setq y_zl_lgx (/(* height-y_lgx 0.02) 11.0))
    
79. (if (/= current1_pcs 0)
    
80. (setq x_zl_lgx (* width-x_lgx 0.5 (/ (float current1_pcs) (float tatoal1))))
    
81. (setq x_zl_lgx 0)  
    
82. )
    
83. (setq max-x_lgx (+ min-x_lgx x_zl_lgx))
    
84. (repeat 10
    
85. (setq min-y_lgx (+ min-y_lgx y_zl_lgx))
    
86. (setq max-y_lgx min-y_lgx)
    
87. (setq grve_lgx (list (list min-x_lgx min-y_lgx)(list min-x_lgx max-y_lgx)
    
88.        (list min-x_lgx min-y_lgx)(list max-x_lgx min-y_lgx)
    
89.        (list min-x_lgx max-y_lgx)(list max-x_lgx max-y_lgx)
    
90.        (list max-x_lgx max-y_lgx)(list max-x_lgx min-y_lgx)))
    
91. (grvecs (cons 1 grve_lgx))
    
92. )
    
93. )
    
94. )
    
95. )
    
96. 
    
97. 
    
98. 
    
99. 
    
100. 
     
101. (defun c:test2(/ current time_start loop time_end)
     
102. (setq current 1)
     
103. (repeat 101
     
104. (setq time_start (getvar "cdate"))
     
105. (setq loop t)
     
106. (while loop
     
107. (if (> (* 1000000 (- (setq time_end (getvar "cdate")) time_start)) 0.04)
     
108. (setq loop nil)
     
109. )
     
110. (princ)
     
111. (progress_lgx current 100 current 150)
     
112. )
     
113. (setq current (+ current 1))
     
114. )
     
115. )
     
116. 
     
117. (defun c:test1(/ current loop)
     
118. (setq current 1)
     
119. (setq loop t)
     
120. (while loop
     
121. (princ)
     
122. (progress_lgx current 150 current 100)
     
123. (setq current (+ current 0.05))
     
124. (if (>= current 100)
     
125. (setq loop nil)
     
126. )
     
127. )
     
128. )
     
129. 
     
130. (defun c:test(/ current loop)
     
131. (setq current 1)
     
132. (setq loop t)
     
133. (while loop
     
134. (princ)
     
135. (progress_lgx current 100 nil nil)
     
136. (setq current (+ current 0.05))
     
137. (if (>= current 100)
     
138. (setq loop nil)
     
139. )
     
140. )
     
141. )

(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 /> ;;;(progn  ;;;例子如下<br /> ;;;(setq current 0)<br /> ;;;(repeat 11<br /> ;;;(progress_lgx current 100 current 150)<br /> ;;;(while (/= (getpoint) nil))<br /> ;;;(setq current (+ current 10))<br /> ;;;)<br /> ;;;(repeat 11<br /> ;;;(progress_lgx current 100 current 0)<br /> ;;;(while (/= (getpoint) nil))<br /> ;;;(setq current (+ current 10))<br /> ;;;)<br /> ;;;)<br /> ;;;原创,编写:  刘国新<br /> ;;;进度条显示<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 /> <br /> <br /> <br /> <br /> (defun c:test2(/ current time_start loop time_end)<br /> (setq current 1)<br /> (repeat 101<br /> (setq time_start (getvar "cdate"))<br /> (setq loop t)<br /> (while loop<br /> (if (> (* 1000000 (- (setq time_end (getvar "cdate")) time_start)) 0.04)<br /> (setq loop nil)<br /> )<br /> (princ)<br /> (progress_lgx current 100 current 150) <br /> )<br /> (setq current (+ current 1))<br /> )<br /> )<br /> <br /> (defun c:test1(/ current loop)<br /> (setq current 1)<br /> (setq loop t)<br /> (while loop<br /> (princ)<br /> (progress_lgx current 150 current 100)<br /> (setq current (+ current 0.05))<br /> (if (>= current 100)<br /> (setq loop nil)<br /> )<br /> )<br /> )<br /> <br /> (defun c:test(/ current loop)<br /> (setq current 1)<br /> (setq loop t)<br /> (while loop<br /> (princ)<br /> (progress_lgx current 100 nil nil)<br /> (setq current (+ current 0.05))<br /> (if (>= current 100)<br /> (setq loop nil)<br /> )<br /> )<br /> )

lgx9612

拉契 发表于 2014-8-12 18:02
一般什么时候会用到这个呢？

一般不会用到这个，如果你想弄点花样，在图面上显示一下你的程序在运算过程的进度如何时，如在大量计算或在循环时用到。

suliweihslg

这都是高手啊！{:soso_e179:}

拉契

一般什么时候会用到这个呢？

aeo

在运算中 grvecs真能即时更新吗？

zinah

比较有创意，顶了。。。。。。。。。

ynhh

进度条好象是在命令行中显示才有用吧
你这在图中显示
感觉位置应改在命令行中
或在屏幕中间水平位置
画一根会动的进度线也不错
画会后暂停N秒后此线自动删除

xvjiex

感谢楼主分享修正了我的进度条，可以用时间及次数循环来控制了

hh_lj007

感谢分享源码！