请教求大量线交点是读写DXF文件速度快还是LISP中写表快

x_s_s_1

请各位大侠指教，写了如下代码，速度奇慢无比，基本想法是在所有线交点上画圆，以前有朋友用VBA写过一个，是通过将图元写为DXF然后在DXF文件中操作的，速度很快。不知为何？按道理LISP写表应该快一些

2. (vl-load-com)
   
3. ;;;以下代码来自bbs.mjtd.com
   
4. ;;;计算曲线交点
   
5. (defun Curveinters (en1 en2 / pl pts)
   
6.   (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
   
7.   (while pl
   
8.     (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
   
9.    pl (cdr (cdr (cdr pl)))
   
10.    )
    
11.     )
    
12. pts
    
13.   )
    
14. ;;;曲线选择集交点
    
15. (defun ssinters (ss / pts en1 en2)
    
16.   (while (> (sslength ss) 1)
    
17.     (setq en1 (ssname ss 0))
    
18.     (ssdel en1 ss)
    
19.     (setq n (sslength ss))
    
20.     (repeat n
    
21.       (setq en2 (ssname ss (setq n (1- n))))
    
22.       (setq pts (append pts (Curveinters en1 en2)))
    
23.       )
    
24.     )
    
25.   pts
    
26.   )
    
27. ;;;删除表中重复图元.不支持表中表的重复图元.
    
28. ;;; (gps->lst-delsame '(1 2 1 2 (1 1) (1 2 1 2 1) 1 2 (1 1) (1 2)))
    
29. ;;;  -->(1 2 (1 1) (1 2 1 2 1) (1 2))
    
30. (defun gps->lst-delsame (lst / lstitem lstnew)
    
31.    (foreach lstitem lst
    
32.      (if (not (member lstitem lstnew))
    
33.        (setq lstnew (append lstnew (list lstitem)))
    
34.      )
    
35.    )
    
36.    lstnew
    
37. )
    
38. ;;;以上代码来自bbs.mjtd.com
    
39. 
    
40.   (setq ss (ssget))
    
41.   (setq ptlst (gps->lst-delsame (ssinters ss)))
    
42.   (foreach pt ptlst (command "circle" pt 100))

(vl-load-com)<br /> ;;;以下代码来自bbs.mjtd.com<br /> ;;;计算曲线交点<br /> (defun Curveinters (en1 en2 / pl pts)<br />   (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))<br />   (while pl<br />     (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))<br />    pl (cdr (cdr (cdr pl)))<br />    )<br />     )<br /> pts<br />   )<br /> ;;;曲线选择集交点<br /> (defun ssinters (ss / pts en1 en2)<br />   (while (> (sslength ss) 1)<br />     (setq en1 (ssname ss 0))<br />     (ssdel en1 ss)<br />     (setq n (sslength ss))<br />     (repeat n<br />       (setq en2 (ssname ss (setq n (1- n))))<br />       (setq pts (append pts (Curveinters en1 en2)))<br />       )<br />     )<br />   pts<br />   )<br /> ;;;删除表中重复图元.不支持表中表的重复图元.<br /> ;;; (gps->lst-delsame '(1 2 1 2 (1 1) (1 2 1 2 1) 1 2 (1 1) (1 2)))<br /> ;;;  -->(1 2 (1 1) (1 2 1 2 1) (1 2))<br /> (defun gps->lst-delsame (lst / lstitem lstnew)<br />    (foreach lstitem lst<br />      (if (not (member lstitem lstnew))<br />        (setq lstnew (append lstnew (list lstitem)))<br />      )<br />    )<br />    lstnew<br /> )<br /> ;;;以上代码来自bbs.mjtd.com<br /> <br />   (setq ss (ssget))<br />   (setq ptlst (gps->lst-delsame (ssinters ss)))<br />   (foreach pt ptlst (command "circle" pt 100))

x_s_s_1

不好意思，是我自己脑袋被门挤了，进入误区了，解题方式有误，应该直接求直线端点，交点的组合太多了

hhh454

能把你的求交点的代码，贴出来吗？我也在学习求交点的代码

x_s_s_1

hhh454 发表于 2012-5-30 20:09
能把你的求交点的代码，贴出来吗？我也在学习求交点的代码

求交点的代码上面有，我后来的处理方法是提取直线端点就行了