[原创]函数ssget的速度优化测试

wujimmy · 发表于 2005-12-11 21:45:59

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

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

×

本文对ssget的几个选癫问方法进行了测?lt;BR>要求:选择指定的坐标范围内的物体. 根据使用的选择方法不同而得到不同的响应时间. 结论如下: 1.采用先选择后过滤(s1,s2,s3这三个函数):这种方法的速度取决于一次所能选择到的物体的个数: 在估计能选择到的物体小于1000个的时候是有优势的,超过这个数以后,就很慢了. 2.采用选择过滤器中的坐标过滤功能(s4):这种方法的速度取决于文件的大小, 当文件很小时,速度是最快的,当文件有点大的时候,速度是最慢的 3.程序中如果有大量的选择操作时,不防先判断一下文件大小,以及估计一下选择集的大小,以考滤采用何种选择过滤方式
 新建一个文件下的测试数据: 100个圆: 函数:#<USUBR @04b1e118 S1>测试结果00:00:00:341 函数:#<USUBR @04b1e140 S2>测试结果00:00:00:250 函数:#<USUBR @04b1e168 S3>测试结果00:00:00:280 函数:#<USUBR @04b1e190 S4>测试结果00:00:00:029 500个圆: 函数:#<USUBR @04b1e118 S1>测试结果00:00:00:782 函数:#<USUBR @04b1e140 S2>测试结果00:00:00:630 函数:#<USUBR @04b1e168 S3>测试结果00:00:00:640 函数:#<USUBR @04b1e190 S4>测试结果00:00:00:070 1000个圆: 函数:#<USUBR @04b1e118 S1>测试结果00:00:01:752 函数:#<USUBR @04b1e140 S2>测试结果00:00:01:571 函数:#<USUBR @04b1e168 S3>测试结果00:00:01:512 函数:#<USUBR @04b1e190 S4>测试结果00:00:00:130
原来一个13M的图形下的测试数据: 100个圆 函数:#<USUBR @04a2dc80 S1>测试结果00:00:00:169 函数:#<USUBR @04a2dcbc S2>测试结果00:00:00:230 函数:#<USUBR @04a2dcf8 S3>测试结果00:00:00:150 函数:#<USUBR @04a2dd48 S4>测试结果00:00:02:152
500个圆: 函数:#<USUBR @04a2dc80 S1>测试结果00:00:00:841 函数:#<USUBR @04a2dcbc S2>测试结果00:00:00:730 函数:#<USUBR @04a2dcf8 S3>测试结果00:00:00:671 函数:#<USUBR @04a2dd48 S4>测试结果00:00:02:302
1000个圆: 函数:#<USUBR @04a2dc80 S1>测试结果00:00:01:821 函数:#<USUBR @04a2dcbc S2>测试结果00:00:01:542 函数:#<USUBR @04a2dcf8 S3>测试结果00:00:01:251 函数:#<USUBR @04a2dd48 S4>测试结果00:00:02:253

;;;VisualLisp函数测试 1
(defun c:tt ()
(setvar "cmdecho" 0)
(setq re_times 10)
(setq funlist (list s1 s2 s3 s4))
;(setq testlist (list 1111 2222 3333 4444 5555 6666 7777 8888 9999))
(setq pt1 (list 0 0 0)
pt2 (list 0 2000 0)
pt3 (list 2000 2000 0)
pt4 (list 2000 0 0)
)
(repeat 100 (addcircle));每次增加100圆,对于s1,s2,s3这三个方法影响大,对s4影响不大
(foreach fun funlist
(progn
(setq t1 (getvar "date")) ;_记录开始时间t1
(repeat re_times
(fun)
) ;_repeat
(setq t2 (getvar "date")) ;_记录结束时间t2
(princ "函数:")(princ fun)(princ "测试结果")
(princ (menucmd (strcat "M=$(edtime," (rtos (- t2 t1) 2 16) ",HH:MM:SS:MSEC)")))
(princ "\n")
) ;_progn
) ;_foreach
(setvar "cmdecho" 1)
(princ)
)
(defun s1()
(setq ss(ssget "F" (list pt1 pt2)
(list (cons 0 "CIRCLE")))
)
(ss_filter ss)
(setq ss nil)
)
(defun s2()
(setq ss (ssget "CP" (list pt1 pt2 pt3 pt4)
(list (cons 0 "CIRCLE")))
)
(ss_filter ss)
(setq ss nil)
)
(defun s3()
(setq ss(ssget "C" pt1 pt3
(list (cons 0 "CIRCLE")))
)
(ss_filter ss)
(setq ss nil)
)
(defun s4();_这个函数是最慢的!
(setq ss(ssget "X"
(list (cons -4 "&ltAND")
(cons 0 "CIRCLE")
(cons -4 "&gt=,&gt=,*")
(list 10 -1 -1 0)
(cons -4 "&lt=,&lt=,*")
(list 10 1 1 0)
(cons -4 "AND&gt")
)
)
)
(setq ss nil)
)
(defun ss_filter(ss)
(setq i% 0)
(repeat (sslength ss)
(progn
(setq sn (ssname ss i%))
(setq ent(entget sn))
(setq ptmid (assoc 10 ent))
(setq xmid (cadr ptmid))
(setq ymid (cadr ptmid))
(if (or (&gt xmid 1 ) (&gt ymid 1) (&lt xmid -1) (&lt ymid -1) ) (setq ss(ssdel en ss )) )
(setq i% (1+ i%))
);_progn
);_repeat
ss
)
(defun addcircle ()
(command "circle" (list 0 0 0) 1000 )
)

;;;VisualLisp函数测试 1 
 
(defun c:tt () 
  (setvar "cmdecho" 0) 
  (setq re_times 10) 
  (setq funlist (list s1 s2 s3 s4)) 
  ;(setq testlist (list 1111 2222 3333 4444 5555 6666 7777 8888 9999)) 
  (setq        pt1 (list 0 0 0) 
        pt2 (list 0 2000 0) 
        pt3 (list 2000 2000 0) 
        pt4 (list 2000 0 0) 
  ) 
  (repeat 100 (addcircle));每次增加100圆,对于s1,s2,s3这三个方法影响大,对s4影响不大 
  (foreach fun funlist 
    (progn 
      (setq t1 (getvar "date")) ;_记录开始时间t1 
      (repeat re_times 
        (fun) 
      ) ;_repeat 
      (setq t2 (getvar "date")) ;_记录结束时间t2 
      (princ "函数:")(princ fun)(princ "测试结果") 
      (princ (menucmd (strcat "M=$(edtime," (rtos (- t2 t1) 2 16) ",HH:MM:SS:MSEC)"))) 
      (princ "\n") 
    ) ;_progn 
 
  ) ;_foreach 
  (setvar "cmdecho" 1) 
  (princ) 
) 
(defun s1() 
 (setq ss(ssget "F"           (list pt1 pt2) 
                   (list (cons 0 "CIRCLE"))) 
  ) 
  (ss_filter ss) 
  (setq ss nil) 
  ) 
(defun s2() 
 (setq ss (ssget "CP"  (list pt1 pt2 pt3 pt4) 
                   (list (cons 0 "CIRCLE"))) 
  ) 
  (ss_filter ss) 
  (setq ss nil) 
  ) 
(defun s3() 
 (setq ss(ssget "C"  pt1 pt3 
                   (list (cons 0 "CIRCLE"))) 
  ) 
  (ss_filter ss) 
  (setq ss nil) 
  ) 
(defun s4();_这个函数是最慢的! 
 (setq ss(ssget        "X" 
                (list (cons -4 "&ltAND") 
                      (cons 0 "CIRCLE") 
                      (cons -4 "&gt=,&gt=,*") 
                      (list 10 -1 -1 0) 
                      (cons -4 "&lt=,&lt=,*") 
                      (list 10 1 1 0) 
                      (cons -4 "AND&gt") 
                ) 
         ) 
  ) 
  (setq ss nil) 
  ) 
(defun ss_filter(ss) 
   (setq i% 0) 
   (repeat (sslength ss) 
     (progn 
       (setq sn (ssname ss i%)) 
       (setq ent(entget sn)) 
       (setq ptmid (assoc 10 ent)) 
       (setq xmid (cadr ptmid)) 
       (setq ymid (cadr ptmid)) 
       (if (or (&gt xmid 1 ) (&gt ymid 1) (&lt xmid -1) (&lt ymid -1) ) (setq ss(ssdel en ss )) ) 
 
       (setq i% (1+ i%)) 
       );_progn 
      
     );_repeat 
 
  ss 
  ) 
(defun addcircle () 
 (command "circle" (list 0 0 0) 1000 ) 
  )

JOSDENNIS · 发表于 2005-12-12 19:01:04

樓主你研究的很深入, 好少人有空余時間來研究這些的了, 你的研究讓我多加了解了SSGET. 呵呵. 這個是寫LISP來處理對象最常用的了, 不過我一直以為程序的快慢不在乎這個涵數, 呵呵.

wujimmy · 发表于 2005-12-12 22:05:53

其实是因为我写的一个程序实在是太慢了
所以没法,中间设了好多记录时间的,才找到原来这个函数是这么的慢!
仔细研究了一下,公布出来,大家就不要再花时间了

WHGF · 发表于 2005-12-13 12:15:40

你的研究很有意义，在编程时不但要选择最好的算法，同时还要考虑系统中函数的特点性能。
你的代码我收藏学习，特别是
(setq funlist (list s1 s2 s3 s4))
和
(foreach fun funlist
：：
(fun)

grig_luo · 发表于 2006-4-17 16:50:37

不错! 选择集确实很慢

apsmould · 发表于 2006-4-18 09:22:43

收集。。。

wxytiger · 发表于 2013-11-2 12:10:06

感谢楼主，我也遇到了这个问题，选择好慢啊。

lt77887788 · 发表于 2013-11-3 18:24:45

感谢分享，期望自己早日升级

账号		自动登录	找回密码
密码			立即注册

[原创]函数ssget的速度优化测试

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

相关帖子