关于曲线交点打断的程序效率测试

eachy

程序：曲线选择集交点断开

1. (defun get-utime () (* 86400.0 (getvar "tdusrtimer")))
   
2. (defun c:tt (/ ss t1 i t2 t3 t4 t5 el ol ool)
   
3.   (if (setq ss (ssget))
   
4.     (progn
   
5.       (setq t1 (get-utime))
   
6.       (setq ssl        (sslength ss)
   
7.             i        -1
   
8.       )
   
9.       (repeat ssl
   
10.         (setq el (cons (ssname ss (setq i (1+ i))) el))
    
11.       )
    
12.       (princ "\nRepeat Use Time ")
    
13.       (princ (- (setq t2 (get-utime)) t1))
    
14.       (princ " s")
    
15.       (vlax-for        obj (vla-get-activeselectionset
    
16.                       (vla-get-activedocument (vlax-get-acad-object))
    
17.                     )
    
18.         (setq ol (cons obj ol))
    
19.       )
    
20.       (princ "\nVlax-for Use Time ")
    
21.       (princ (- (setq t3 (get-utime)) t2))
    
22.       (princ " s")
    
23.       (mapcar 'vlax-ename->vla-object el)
    
24.       (princ "\nEntity Convert Use Time ")
    
25.       (princ (- (setq t4 (get-utime)) t3))
    
26.       (princ " s")
    
27.       (mapcar 'vlax-vla-object->ename ol)
    
28.       (princ "\nObject Convert Use time ")
    
29.       (princ (- (setq t5 (get-utime)) t4))
    
30.       (princ " s")
    
31.       (setq i -1)
    
32.       (repeat ssl
    
33.         (setq ool
    
34.                (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i))))
    
35.                      ool
    
36.                )
    
37.         )
    
38.       )
    
39.       (princ "\nRepeat + Convert Use Time ")
    
40.       (princ (- (get-utime) t5))
    
41.       (princ " s")
    
42.     )
    
43.   )
    
44.   (princ)
    
45. )
    
46. ;|
    
47. 运行前关闭 Vlisp 编辑器，否则会降低程序运行效率
    
48. 命令: tt
    
49. 选择对象: 指定对角点: 找到 20000 个
    
50. 
    
51. 选择对象:
    
52. 
    
53. Repeat Use Time 0.04 s
    
54. Vlax-for Use Time 0.251 s
    
55. Entity Convert Use Time 0.651 s
    
56. Object Convert Use time 0.29 s
    
57. Repeat + Convert Use Time 0.671 s
    
58. |;
    
59. (defun c:t1 (/ ss ssl i el el0 e1 e2 ptl pts t1 t2)
    
60.   (if (setq ss (ssget )
    
61.             ssl        (sslength ss)
    
62.             i        -1
    
63.       )
    
64.     (progn
    
65.       (setq t1 (get-utime))
    
66.       (repeat ssl
    
67.         (setq
    
68.           el
    
69.            (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i))))
    
70.                  el
    
71.            )
    
72.         )
    
73.       ) ;_直接构造Object 列表可以避免在 while 中的多次转换，vlax-ename->vla-object 要比
    
74.       ;;vlax-vla-object->ename 多费些时间
    
75.       (princ "\nRepeat Use time ")
    
76.       (princ (- (setq t2 (get-utime)) t1))
    
77.       (princ " s!")
    
78.       ;;前面先获取Object列表, 不管用什么方面都是秒以内的事
    
79.       ;;如果直接在 repeat 内部 ssname + vlax-ename->vla-object 作的重复转换就大大增加了
    
80.       (while el
    
81.         (setq e1  (car el)
    
82.               el  (cdr el)
    
83.               el0 el
    
84.         )
    
85.         (while el0
    
86.           (setq        e2  (car el0)
    
87.                 el0 (cdr el0)
    
88.                 pts (vlax-invoke e2 'intersectwith e1 acextendnone)
    
89.                 ;;pts (safearray-value (variant-value (vla-intersectwith e1 e2 acextendnone)))
    
90.           )
    
91.           (if pts
    
92.             (while pts
    
93.               (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)
    
94.                     pts        (cdddr pts)
    
95.               )
    
96.             )
    
97.           )
    
98.         )
    
99.       )
    
100.       (princ "\nGetinters Use time ")
     
101.       (princ (- (get-utime) t2))
     
102.       (princ " s!")
     
103.       (princ "\nInters Numbers = ")
     
104.       (princ (length ptl))
     
105.     )
     
106.   )
     
107.   (princ)
     
108. )
     
109. ;|
     
110. 在没有交点的情况下，两两实体要 intersectwith
     
111. 
     
112. 测试目的：实体数量对程序运行效率的影响
     
113. 
     
114. 命令: t1
     
115. 选择对象: 指定对角点: 找到 300 个
     
116. 
     
117. 选择对象:
     
118. 
     
119. Repeat Use time 0.04 s!
     
120. Getinters Use time 1.131 s!
     
121. Inters Numbers = 0
     
122. 
     
123. 命令:
     
124. 命令: t1
     
125. 选择对象: 指定对角点: 找到 600 个
     
126. 
     
127. 选择对象:
     
128. 
     
129. Repeat Use time 0.061 s!
     
130. Getinters Use time 3.785 s!
     
131. Inters Numbers = 0
     
132. 
     
133. 命令:
     
134. 命令:  T1
     
135. 选择对象: 指定对角点: 找到 820 个
     
136. 
     
137. 选择对象:
     
138. Repeat Use time 0.06 s!
     
139. Getinters Use time 6.85 s!
     
140. Inters Numbers = 0
     
141. 
     
142. 命令: t1
     
143. 选择对象: 指定对角点: 找到 1720 个
     
144. 
     
145. 选择对象:
     
146. 
     
147. Repeat Use time 0.15 s!
     
148. Getinters Use time 51.534 s!
     
149. Inters Numbers = 0
     
150. 
     
151. 使用 (safearray-value (variant-value (vla-intersectwith o1 o2 acextendnone)))
     
152. 测试比 vlax-invoke 要慢一些
     
153. 
     
154. 命令: t1
     
155. 选择对象: 指定对角点: 找到 1720 个
     
156. 
     
157. 选择对象:
     
158. 
     
159. Repeat Use time 0.201 s!
     
160. Getinters Use time 67.457 s!
     
161. Inters Numbers = 0
     
162. 
     
163. 命令: t1
     
164. 选择对象: 指定对角点: 找到 200 个
     
165. 
     
166. 选择对象:
     
167. 
     
168. Repeat Use time 0.03 s!
     
169. Getinters Use time 0.901 s!
     
170. Inters Numbers = 10000
     
171. 
     
172. |;
     
173. 
     
174. ;;可以看出选择集实体实体数量的多少对求交点的效率有着直接的影响
     
175. ;;Lisp 可以通过算法的优化提高运行效率，但是有些制约因素是不能回避的
     
176. ;;具体使用中要灵活运用，比如求交点，不要一次选择太多，分区域选择执行
     
177. ;;程序将有更高的效率

(defun get-utime () (* 86400.0 (getvar "tdusrtimer")))<br /> (defun c:tt (/ ss t1 i t2 t3 t4 t5 el ol ool)<br />   (if (setq ss (ssget))<br />     (progn<br />       (setq t1 (get-utime))<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq el (cons (ssname ss (setq i (1+ i))) el))<br />       )<br />       (princ "\nRepeat Use Time ")<br />       (princ (- (setq t2 (get-utime)) t1))<br />       (princ " s")<br />       (vlax-for        obj (vla-get-activeselectionset<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />         (setq ol (cons obj ol))<br />       )<br />       (princ "\nVlax-for Use Time ")<br />       (princ (- (setq t3 (get-utime)) t2))<br />       (princ " s")<br />       (mapcar 'vlax-ename->vla-object el)<br />       (princ "\nEntity Convert Use Time ")<br />       (princ (- (setq t4 (get-utime)) t3))<br />       (princ " s")<br />       (mapcar 'vlax-vla-object->ename ol)<br />       (princ "\nObject Convert Use time ")<br />       (princ (- (setq t5 (get-utime)) t4))<br />       (princ " s")<br />       (setq i -1)<br />       (repeat ssl<br />         (setq ool<br />                (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i))))<br />                      ool<br />                )<br />         )<br />       )<br />       (princ "\nRepeat + Convert Use Time ")<br />       (princ (- (get-utime) t5))<br />       (princ " s")<br />     )<br />   )<br />   (princ)<br /> )<br /> ;|<br /> 运行前关闭 Vlisp 编辑器，否则会降低程序运行效率<br /> 命令: tt<br /> 选择对象: 指定对角点: 找到 20000 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use Time 0.04 s<br /> Vlax-for Use Time 0.251 s<br /> Entity Convert Use Time 0.651 s<br /> Object Convert Use time 0.29 s<br /> Repeat + Convert Use Time 0.671 s<br /> |;<br /> (defun c:t1 (/ ss ssl i el el0 e1 e2 ptl pts t1 t2)<br />   (if (setq ss (ssget )<br />             ssl        (sslength ss)<br />             i        -1<br />       )<br />     (progn<br />       (setq t1 (get-utime))<br />       (repeat ssl<br />         (setq<br />           el<br />            (cons (vlax-ename->vla-object (ssname ss (setq i (1+ i))))<br />                  el<br />            )<br />         )<br />       ) ;_直接构造Object 列表可以避免在 while 中的多次转换，vlax-ename->vla-object 要比<br />       ;;vlax-vla-object->ename 多费些时间<br />       (princ "\nRepeat Use time ")<br />       (princ (- (setq t2 (get-utime)) t1))<br />       (princ " s!")<br />       ;;前面先获取Object列表, 不管用什么方面都是秒以内的事<br />       ;;如果直接在 repeat 内部 ssname + vlax-ename->vla-object 作的重复转换就大大增加了<br />       (while el<br />         (setq e1  (car el)<br />               el  (cdr el)<br />               el0 el<br />         )<br />         (while el0<br />           (setq        e2  (car el0)<br />                 el0 (cdr el0)<br />                 pts (vlax-invoke e2 'intersectwith e1 acextendnone)<br />                 ;;pts (safearray-value (variant-value (vla-intersectwith e1 e2 acextendnone)))<br />           )<br />           (if pts<br />             (while pts<br />               (setq ptl        (cons (list (car pts) (cadr pts) (caddr pts)) ptl)<br />                     pts        (cdddr pts)<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (princ "\nGetinters Use time ")<br />       (princ (- (get-utime) t2))<br />       (princ " s!")<br />       (princ "\nInters Numbers = ")<br />       (princ (length ptl))<br />     )<br />   )<br />   (princ)<br /> )<br /> ;|<br /> 在没有交点的情况下，两两实体要 intersectwith<br /> <br /> 测试目的：实体数量对程序运行效率的影响<br /> <br /> 命令: t1<br /> 选择对象: 指定对角点: 找到 300 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use time 0.04 s!<br /> Getinters Use time 1.131 s!<br /> Inters Numbers = 0<br /> <br /> 命令:<br /> 命令: t1<br /> 选择对象: 指定对角点: 找到 600 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use time 0.061 s!<br /> Getinters Use time 3.785 s!<br /> Inters Numbers = 0<br /> <br /> 命令:<br /> 命令:  T1<br /> 选择对象: 指定对角点: 找到 820 个<br /> <br /> 选择对象:<br /> Repeat Use time 0.06 s!<br /> Getinters Use time 6.85 s!<br /> Inters Numbers = 0<br /> <br /> 命令: t1<br /> 选择对象: 指定对角点: 找到 1720 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use time 0.15 s!<br /> Getinters Use time 51.534 s!<br /> Inters Numbers = 0<br /> <br /> 使用 (safearray-value (variant-value (vla-intersectwith o1 o2 acextendnone)))<br /> 测试比 vlax-invoke 要慢一些<br /> <br /> 命令: t1<br /> 选择对象: 指定对角点: 找到 1720 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use time 0.201 s!<br /> Getinters Use time 67.457 s!<br /> Inters Numbers = 0<br /> <br /> 命令: t1<br /> 选择对象: 指定对角点: 找到 200 个<br /> <br /> 选择对象:<br /> <br /> Repeat Use time 0.03 s!<br /> Getinters Use time 0.901 s!<br /> Inters Numbers = 10000<br /> <br /> |;<br /> <br /> ;;可以看出选择集实体实体数量的多少对求交点的效率有着直接的影响<br /> ;;Lisp 可以通过算法的优化提高运行效率，但是有些制约因素是不能回避的<br /> ;;具体使用中要灵活运用，比如求交点，不要一次选择太多，分区域选择执行<br /> ;;程序将有更高的效率

snoopychen

假如是2n个实体的话，两两求交的时候得(2n-1)(2n-2)
而若分两批来分别打断的时候，是2*((n-1)*(n-2))
大概会有一倍时间差别。
突然想到，选的时候可以全选，能否在求交的时候人为的来按照分区域计算呢。
记得在开始用lisp的时候编横线与竖线求交的时候。曾经用先选横线，再选竖线的方法来构建交点集，便快的多，但是没有通用性。
最近看线线（直线）相交的算法，经常采用排序法进行判断之后，求交的速度变快的多。
不知道lisp中求线面相交和面面相交有什么好方法。

eachy

200  个实体 ---〉 1s
600  个实体 ---〉 4s
820  个实体 ---〉 7s
1720个实体 ---〉67s

不是一个倍数的关系。还有Lisp 用的表，在长度很长的表中检索也是一个费时的做法（比如消重实体，简单的写法就是将 DXF 构造一个个表然后 比较），这样的应用也要分区域处理才高效

snoopychen

前两天在网上下载了qbrick.arx的06.6月修改版
在我机器上大概是2~3秒完成这个100*100的交线打断操作

acadx的arx在我这里加载不了,不知道它对应什么版本的cad,,所以它的cut打断没有办法测试
xdapi的批量打断没有找到

不知道arx的效率和lsp的效率在打断实体方面的差别有几倍的差距呢

eachy

最初由 snoopychen 发布
[B]前两天在网上下载了qbrick.arx的06.6月修改版
在我机器上大概是2~3秒完成这个100*100的交线打断操作

acadx的arx在我这里加载不了,不知道它对应什么版本的cad,,所以它的cut打断没有办法测试
xdapi的批量打断没有... [/B]

Arx 的高效率和强大功能是毋庸置疑的，但是受版本限制实在不爽。一般应用Lisp和Arx效率的差异可以忽略。