测试程序运行效率程序

xshrimp

2. ;;;测试程序运行效率程序-----------------------------------------
3. (defun gps->test (lst / rlst rmax rxlst start-time tlst x y z)
4. (setq tlst lst)
5. (setq rlst (mapcar
6.       '(lambda (x)
7.   (setq start-time (getvar "cdate"))
8.   (eval x)
9.   (* 1000000 (- (getvar "cdate") start-time))
10.        )
11.       tlst
12.     )
13. )
15. (setq rmax  (apply 'max rlst))
16. (setq rxlst (mapcar
17.        '(lambda (x)
18.           (cond ((= 0 x) "∞")
19.          (T (/ rmax x))
20.          )
21.         )
22.        rlst
23.      )
24. )
25. (princ "\n测试程序......流逝时间(秒)......相对速度")
26.   (mapcar
27.     '(lambda (x y z)
28.        (mapcar
29.   'princ
30.   (list "\n"  x "......" y "......" z)
31.        )
32.      )
33.     tlst
34.     rlst
35.     rxlst
36.   )
37. (princ)
38. )
39. ;;;示例:---------------------------------------------------
40. (defun test1 (ss)
41.   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
42. )
43. (defun test2 (ss / n l)
44.   (repeat (setq n (sslength ss))
45.     (setq l (cons (ssname ss (setq n (1- n))) l))
46.   )  
47. )
48. (defun test3 (ss / n e l)
49.   (setq n -1)
50.   (while (setq e (ssname ss (setq n (1+ n))))
51.     (setq l (cons e l))
52.   )
53. )
54. ;|
55. 命令: (setq ss (ssget))      
56. 命令: (gps->test '((test1 ss) (test2 ss) (test3 ss)))
57.       测试程序......流逝时间(秒)......相对速度
58.       (TEST1 SS)......1.04308......1.0
59.       (TEST2 SS)......0.111759......9.33333
60.       (TEST3 SS)......0.0782311......13.3333
61. e.g.
62. (gps->test '((c:pw) (c:wq)))
63. |;

;;;测试程序运行效率程序----------------------------------------- (defun gps->test (lst / rlst rmax rxlst start-time tlst x y z) (setq tlst lst) (setq rlst (mapcar       '(lambda (x)   (setq start-time (getvar "cdate"))   (eval x)   (* 1000000 (- (getvar "cdate") start-time))        )       tlst     ) ) (setq rmax  (apply 'max rlst)) (setq rxlst (mapcar        '(lambda (x)           (cond ((= 0 x) "∞")          (T (/ rmax x))          )         )        rlst      ) ) (princ "\n测试程序......流逝时间(秒)......相对速度")   (mapcar     '(lambda (x y z)        (mapcar   'princ   (list "\n"  x "......" y "......" z)        )      )     tlst     rlst     rxlst   ) (princ) ) ;;;示例:--------------------------------------------------- (defun test1 (ss)   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))) ) (defun test2 (ss / n l)   (repeat (setq n (sslength ss))     (setq l (cons (ssname ss (setq n (1- n))) l))   )   ) (defun test3 (ss / n e l)   (setq n -1)   (while (setq e (ssname ss (setq n (1+ n))))     (setq l (cons e l))   ) ) ;| 命令: (setq ss (ssget))       命令: (gps->test '((test1 ss) (test2 ss) (test3 ss)))       测试程序......流逝时间(秒)......相对速度       (TEST1 SS)......1.04308......1.0       (TEST2 SS)......0.111759......9.33333       (TEST3 SS)......0.0782311......13.3333 e.g. (gps->test '((c:pw) (c:wq))) |;

smartstar

老大的源码，竟然没有顶过！！

wowan1314

同顶，，，，，，