关于选择集变表函数测试！

wowan1314

     这段时间大家都在讨论mapcar函数的高效。那么要利用mapcar函数，无疑对数据需要-“变表”-操作。


     最常见的是 选择集变表 -----常见的做法是利用循环+ssname
今天突然想到可利用mapcar+ssnamex处理选择集成表！代码要少很多.
所以又进行了测试。现将测试结果公布！共同讨论。

2. ;;;样本为：三万一条直线
   
3. (DEFUN C:3W ()
   
4. (SETQ ENT (ENTGET(CAR(ENTSEL))))
   
5. (REPEAT 30000 (ENTMAKE ENT))
   
6. )
   
7. 
   
8. ;;测试时间函数
   
9. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
   
10. 
    
11. ;;mapcar方法---利用SSNAMEX--------选择集变表
    
12. (DEFUN c:T11 ()
    
13. (SETQ SS (SSGET))
    
14. (SETQ T1 (get-utime))
    
15. (CDR(REVERSE (MAPCAR 'CADR (SSNAMEX SS))))
    
16. (SETQ T2 (get-utime))
    
17. (PRINC "\n用时:")
    
18. (PRINC (- T2 T1))
    
19. (PRINC "S")
    
20. (PRINC)
    
21. )
    
22. 
    
23. ;;repeat方法----利用SSNAME--------选择集变表函数
    
24. (DEFUN c:T12 ()
    
25. (SETQ SS (SSGET))
    
26. (SETQ T1 (get-utime))
    
27. (ss2entl SS)
    
28. (SETQ T2 (get-utime))
    
29. (PRINC "\n用时:")
    
30. (PRINC (- T2 T1))
    
31. (PRINC "S")
    
32. (PRINC)
    
33. )
    
34. 
    
35. ;;选择集变表--BY newer
    
36. (defun ss2entl (ss / el i len)
    
37.   (if (= 'PICKSET (type ss))
    
38.     (progn
    
39.       (setq i -1
    
40.             len (sslength ss)
    
41.       )
    
42.       (repeat len
    
43.         (setq el (cons (ssname ss (setq i (1+ i))) el))
    
44.       )
    
45.     )
    
46.   )
    
47.   el
    
48. )

;;;样本为：三万一条直线<br /> (DEFUN C:3W ()<br /> (SETQ ENT (ENTGET(CAR(ENTSEL))))<br /> (REPEAT 30000 (ENTMAKE ENT))<br /> )<br /> <br /> ;;测试时间函数<br /> (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br /> <br /> ;;mapcar方法---利用SSNAMEX--------选择集变表<br /> (DEFUN c:T11 ()<br /> (SETQ SS (SSGET))<br /> (SETQ T1 (get-utime))<br /> (CDR(REVERSE (MAPCAR 'CADR (SSNAMEX SS))))<br /> (SETQ T2 (get-utime))<br /> (PRINC "\n用时:")<br /> (PRINC (- T2 T1))<br /> (PRINC "S")<br /> (PRINC)<br /> )<br /> <br /> ;;repeat方法----利用SSNAME--------选择集变表函数<br /> (DEFUN c:T12 ()<br /> (SETQ SS (SSGET))<br /> (SETQ T1 (get-utime))<br /> (ss2entl SS)<br /> (SETQ T2 (get-utime))<br /> (PRINC "\n用时:")<br /> (PRINC (- T2 T1))<br /> (PRINC "S")<br /> (PRINC)<br /> )<br /> <br /> ;;选择集变表--BY newer<br /> (defun ss2entl (ss / el i len)<br />   (if (= 'PICKSET (type ss))<br />     (progn<br />       (setq i -1<br />             len (sslength ss)<br />       )<br />       (repeat len<br />         (setq el (cons (ssname ss (setq i (1+ i))) el))<br />       )<br />     )<br />   )<br />   el<br /> )

命令: T11
选择对象: 指定对角点: 找到 30001 个


选择对象:


用时:0.156S


命令:
命令: T12
选择对象: 指定对角点: 找到 30001 个


选择对象:


用时:0.015S



结论：ssnamex是个不高效的函数相对于ssname来说！

Lispboy

差一个数量级啊，葛老。你的结论及建议呢？

taner

所有的方法中，SSNAMEX是最慢的

wowan1314

Lispboy 发表于 2013-6-3 18:55
差一个数量级啊，葛老。你的结论及建议呢？

结论写了啊。 ssnamex不高效，那么久只能还是用循环来把选择集变表了。

wowan1314

taner 发表于 2013-6-3 18:56
所有的方法中，SSNAMEX是最慢的

是呀！ 同样取图元名。ssnamex比ssname整整差了一个级别。

wowan1314

Lispboy 发表于 2013-6-3 18:55
差一个数量级啊，葛老。你的结论及建议呢？

我觉的我也被你害了。总在想函数效率问题。都没去研究算法、矩阵之类的。

Lispboy

wowan1314 发表于 2013-6-3 19:15
我觉的我也被你害了。总在想函数效率问题。都没去研究算法、矩阵之类的。

还有谁被我害了，都出来吧。:'(

Lispboy

wowan1314 发表于 2013-6-3 19:15
我觉的我也被你害了。总在想函数效率问题。都没去研究算法、矩阵之类的。

我好像也说过矩阵，算法啥的吧，怎么你就偏往这条路走呢。

wowan1314

Lispboy 发表于 2013-6-3 19:29
我好像也说过矩阵，算法啥的吧，怎么你就偏往这条路走呢。

呵呵。你给了个容易的课题给我。。。。  人都有“避重就轻”的本能啊

QiaoCheng

获取关于选择集创建方式的信息

(ssnamex ss [index])
本函数只能查找当前图形模型空间和图纸空间中的图元，而不能查找非图形对象和其他块定义中的图元。

它是不是自身加了个判断?

wowan1314

QiaoCheng 发表于 2013-6-3 19:56
获取关于选择集创建方式的信息

(ssnamex ss )

什么意思？

QiaoCheng

我是这么觉得的，像这些AutoLISP函数本身有的就直接拿来用就是了，
我们也不知道它的内在构造，但应该也是像我们平时自己定义的函数一样吧？

不知道是不是我想的不靠谱啊{:soso_e120:}

marting

QiaoCheng 发表于 2013-6-3 19:56
获取关于选择集创建方式的信息

(ssnamex ss )

看你的这句话的意思好像就是 SSNAME 能查找非图形对象和其他块定义中的图元？

llsheng_73

t11这个函数还有点问题，如果ss是通过(ssget"X" filter)或者(ssget"F" filter)甚至是通过ssadd得到的选择集，那么ssnamex后再cdr一下就会丢掉一个图元而不是与选择窗口有关的表...
_$ (setq ss(ssget"X"))
<Selection set: 3>
_$ (sslength ss)
1
_$ (cdr(reverse(mapcar'cadr(ssnamex ss))))
nil
_$ (setq ss(ssadd(entlast)))
<Selection set: 5>
_$ (cdr(reverse(mapcar'cadr(ssnamex ss))))
nil
如果不考虑时间效率，要通过ssnamex处理选择集得到图元表也得考虑适用选择集的不同构成方式
(defun s2es(s)(reverse(mapcar'cadr(member(nth(1-(sslength s))(setq s(ssnamex s)))(reverse s)))))
其实有时最快的不一定是适用的，比如用repeat是最快，但是假如选择集内图元总数超过计算机最大整数表示范围，这时根本无法直接进行repeat了不是？当然，如果确实需要repeat还是有办法的，得采用进制换算的办法了
假设最大整数只能表示511，那么1024可以用512进制来表示为2 0，或者用500进制表示为2 24,那么就可以这样来实现循环1024次
(repeat 2(repeat 500    ...))(repeat 24 ...)这样来变通