设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 请大师看看我的进度条，看看可否用时间的方法来实现 ...
返回列表 发新帖
查看: 2338|回复: 6

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

[复制链接]
lgx9612

已领礼包: 146个

财富等级: 日进斗金
发表于 2014-8-8 21:10:29 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 lgx9612 于 2014-8-8 21:18 编辑

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

  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. )

  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. ;;;)



lgx.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-8-9 06:41:36 来自手机 | 显示全部楼层
为什么写这么麻烦的，一般在状态栏用grtext
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wowan1314
发表于 2014-8-9 13:06:47 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
支持创新！   不过为什么通过 右键 或 时间来控制呢？

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

点评

lgx9612
都可以,我只是想程序在计算运行过程中可以把进度的显示出来。现在的情况是在运算的过程显示不出来等运算完成后显示了最终的结果，所以我用移动鼠标能够将进度条可以显示出来，最终目的不是用鼠标来控制进度。所  详情 回复 发表于 2014-8-9 19:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-9 19:41:05 | 显示全部楼层
wowan1314 发表于 2014-8-9 13:06
支持创新！   不过为什么通过 右键 或 时间来控制呢？

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

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

点评

eachy
延迟和误差是正常的，不管什么进度条和处理都不可能完全同步，就是一个提示参考而已  详情 回复 发表于 2014-8-9 20:01
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2014-8-9 20:01:11 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lgx9612 发表于 2014-8-9 19:41
都可以,我只是想程序在计算运行过程中可以把进度的显示出来。现在的情况是在运算的过程显示不出来等 ...

延迟和误差是正常的，不管什么进度条和处理都不可能完全同步，就是一个提示参考而已
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgx9612

已领礼包: 146个

财富等级: 日进斗金
 楼主| 发表于 2014-8-11 12:26:40 | 显示全部楼层
     冥思苦想，终于找到解决的方法了，完全可以用时间或循环的方法来实现，并且进度过程可以显于出来，只要在
progress_lgx函数前加(princ)即可，为显示屏争取一点时间将进度显示出了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zinah
发表于 2014-8-27 11:40:24 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
我不是高手，但我崇拜你。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-5-4 07:16 , Processed in 0.201038 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表