foreach vlax-for速度比较

brainstorm

1. ;;;测试foreach and vlax-for
   
2. 
   
3. ;;;----------------------------------------------------------------------
   
4. (defun sstolst (ss / rtn)
   
5.   (setq n -1)
   
6.   (repeat (sslength ss)
   
7.     (setq rtn (append rtn (list (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))))
   
8.   )
   
9. )
   
10. (setq ss (sstolst(ssget)))
    
11. 
    
12. (defun test1 ()
    
13.   (foreach n ss
    
14.     (vla-get-application n)
    
15.   )
    
16. )
    
17. ;;;----------------------------------------------------------------------
    
18. (setq acadobj (vlax-get-acad-object)
    
19.       doc     (vla-get-activedocument acadobj)
    
20.       selctions(vla-get-selectionsets doc)
    
21.       sel (vla-add selctions "test")
    
22. )
    
23. (vla-clear sel)
    
24. (vla-selectonscreen sel)
    
25. 
    
26. 
    
27. (defun test2 ()
    
28.   (vlax-for n sel
    
29.     (vla-get-application n)
    
30.   )
    
31. )
    
32. ;;;-------------------------------------------------------------------------
    
33. 
    
34. (xd::quickbench '((test1)(test2)))
    

;;;测试foreach and vlax-for<br /> <br /> ;;;----------------------------------------------------------------------<br /> (defun sstolst (ss / rtn)<br />   (setq n -1)<br />   (repeat (sslength ss)<br />     (setq rtn (append rtn (list (vlax-ename->vla-object (ssname ss (setq n (1+ n)))))))<br />   )<br /> )<br /> (setq ss (sstolst(ssget)))<br /> <br /> (defun test1 ()<br />   (foreach n ss<br />     (vla-get-application n)<br />   )<br /> )<br /> ;;;----------------------------------------------------------------------<br /> (setq acadobj (vlax-get-acad-object)<br />       doc     (vla-get-activedocument acadobj)<br />       selctions(vla-get-selectionsets doc)<br />       sel (vla-add selctions "test")<br /> )<br /> (vla-clear sel)<br /> (vla-selectonscreen sel)<br /> <br /> <br /> (defun test2 ()<br />   (vlax-for n sel<br />     (vla-get-application n)<br />   )<br /> )<br /> ;;;-------------------------------------------------------------------------<br /> <br /> (xd::quickbench '((test1)(test2)))<br />

测试结果 foreach更快一些,但是感觉应该vlax-for更快，毕竟vl是后来才有的。感觉没有必要使用vla-select方法了
CPU:(1x)Intel(R) Core(TM) i7-3537U @ 2.00GHz 2Cores  / Memory:4G / OS:WIN 10 家庭中文版
Benchmarking ....... done for 64 iterations. Sorted from fastest.
Statement                     Increment  Time(ms) Normalize  Relative
-------------------------------------------------------------------------------
(TEST1)                              64      1547      1547      1.45    <fastest>
(TEST2)                              32      1125      2250      1.00    <slowest>
-------------------------------------------------------------------------------

yjch

点赞。学无止境，永远在路上。好好学习天天向上

marting

应该是FOREACH快，毕竟运行在AUTOLISP内部，VLA函数是ACTIVEX中。

kqqt6236

都是牛人啊。

yoyoho

谢谢分享！！！

liunian0524

感谢楼主分享

fan_zh

学习了，都是高手啊

炫翔

没有实际的可比性，一个是处理表 一个是处理对象集合
如果遍历出图元表 再 foreach 自然是慢的 因为进行了两次循环
每个函数存在一定有他独到优势的一面，视情况调用