不遍历选择集到实体表的代码及各种遍历方法效率的比较

marting

不遍历选择集获得实体表的方法

第一个代码：

1. (defun ss->ents (ss)
   
2.   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   
3. )
   
4. 
   

(defun ss->ents (ss)<br />   (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br /> )<br /> <br />

命令: (ss->ents ss)
(<图元名: -bea4e8> <图元名: -24db50> <图元名: -24db68> <图元名: -24db80>)



第二个代码：


通常的遍历选择集的代码

1. (defun ss->ents1 (ss)
   
2.   (setq i (sslength ss))
   
3.   (repeat i
   
4.     (setq ents (cons (ssname ss (setq i (1- i))) ents))
   
5.   )
   
6. )
   
7. 
   

(defun ss->ents1 (ss)<br />   (setq i (sslength ss))<br />   (repeat i<br />     (setq ents (cons (ssname ss (setq i (1- i))) ents))<br />   )<br /> )<br /> <br />

命令: (ss->ents1 ss)
(<图元名: -bea4e8> <图元名: -24db50> <图元名: -24db68> <图元名: -24db80>)


上面哪个效率高呢？ 测试下，18000个实体
测试代码：

1. (defun c:tt ()
   
2.   (setq ss (ssget "x"))
   
3.   (setq ti (car (_vl-times)))
   
4.   (setq a (ss->ents ss))
   
5.   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))
   
6.   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))
   
7.   (setq ti (car (_vl-times)))
   
8.   (setq a (ss->ents1 ss))
   
9.   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))
   
10.   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))
    
11.   (princ)
    
12. )
    

(defun c:tt ()<br />   (setq ss (ssget "x"))<br />   (setq ti (car (_vl-times)))<br />   (setq a (ss->ents ss))<br />   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))<br />   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))<br />   (setq ti (car (_vl-times)))<br />   (setq a (ss->ents1 ss))<br />   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))<br />   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))<br />   (princ)<br /> )<br />

命令: tt

实体数:18000...Elapsed time : 0.079
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.078
实体数:18000...Elapsed time : 0.016

命令:
命令: tt

实体数:18000...Elapsed time : 0.078
实体数:18000...Elapsed time : 0.016


测试结果： 第二个代码效率要高的多

==============================


那么，遍历选择集从头开始，和从末尾往前哪个效率高呢？
第一种代码，从前往后遍历

1. (defun ss->ents1 (ss / i ents)
   
2.   (setq len (sslength ss) i -1)
   
3.   (repeat len
   
4.     (setq ents (cons (ssname ss (setq i (1+ i))) ents))
   
5.   )
   
6.   (reverse ents)
   
7. )
   
8. 
   

(defun ss->ents1 (ss / i ents)<br />   (setq len (sslength ss) i -1)<br />   (repeat len<br />     (setq ents (cons (ssname ss (setq i (1+ i))) ents))<br />   )<br />   (reverse ents)<br /> )<br /> <br />

第二种代码，从末尾往前遍历，少了一个reverse的操作。

1. (defun ss->ents2 (ss)
   
2.   (setq i (sslength ss))
   
3.   (repeat i
   
4.     (setq ents (cons (ssname ss (setq i (1- i))) ents))
   
5.   )
   
6. )
   

(defun ss->ents2 (ss)<br />   (setq i (sslength ss))<br />   (repeat i<br />     (setq ents (cons (ssname ss (setq i (1- i))) ents))<br />   )<br /> )<br />

测试代码：

1. (defun c:tt ()
   
2.   (setq ss (ssget "x"))
   
3.   (setq ti (car (_vl-times)))
   
4.   (setq a (ss->ents1 ss))
   
5.   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))
   
6.   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))
   
7.   (setq ti (car (_vl-times)))
   
8.   (setq a (ss->ents2 ss))
   
9.   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))
   
10.   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))
    
11.   (princ)
    
12. )
    

(defun c:tt ()<br />   (setq ss (ssget "x"))<br />   (setq ti (car (_vl-times)))<br />   (setq a (ss->ents1 ss))<br />   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))<br />   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))<br />   (setq ti (car (_vl-times)))<br />   (setq a (ss->ents2 ss))<br />   (prompt (strcat "\n实体数:" (itoa (length a)) "...Elapsed time : "))<br />   (princ (rtos (/ (- (car (_vl-times)) ti) 1000.0) 2 50))<br />   (princ)<br /> )<br />

测试结果：
命令: tt

实体数:18000...Elapsed time : 0.04699999999999999
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.015
实体数:18000...Elapsed time : 0.016

命令:
命令: tt

实体数:18000...Elapsed time : 0.016
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.015
实体数:18000...Elapsed time : 0.016

命令:
命令: tt

实体数:18000...Elapsed time : 0.016
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.016
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.016
实体数:18000...Elapsed time : 0.015

命令:
命令: tt

实体数:18000...Elapsed time : 0.04699999999999999
实体数:18000...Elapsed time : 0.015


表明： 从前往后遍历和 从后往前遍历选择集得到实体表，效率基本相同。从前往后遍历不会因为多一个reverse操作减慢多少。这个可以说明从后往前遍历选集，ssname 这个效率比从前往后顺序来要耗费多些时间，平衡了reverse的耗费。

kqqt6236

啥也不说了，感谢楼主分享哇！

yxpxa

精彩！ 正需要这方面的内容。
有没有试试 while 循环，众所周知， while 比 repeat 效率高。

1. (setq n 0 sL '())
   
2. (while (setq en (ssname ss n)) (setq n (1+ n) sL (cons en sL)))

(setq n 0 sL '())<br /> (while (setq en (ssname ss n)) (setq n (1+ n) sL (cons en sL)))

zhangq_cai1

啥也不说了，感谢楼主分享哇！