1如何按图层统计交点个数

gcho

如截图所描述，能到到按图层直线来统计交点个数吗？

gcho

大家帮帮忙或者提供个好的思路，感激不尽！

flytoday

应该统计某个层的线与某个层图元交点个数更好

【KAIXIN】

2. ;;交点列表[ss-选择集]
   
3. (defun yad_inters(ss / n n1 obj1 n2 obj2 ipt l_pt)
   
4.   (setq        n (sslength ss)
   
5.         n1 0
   
6.   )
   
7.   (while (< n1 (1- n))
   
8.     (setq obj1 (vlax-ename->vla-object (ssname ss n1))
   
9.           n2 (1+ n1)
   
10.     )
    
11.     (while (< n2 n)
    
12.       (setq obj2 (vlax-ename->vla-object (ssname ss n2))
    
13.             ipt  (vlax-variant-value (vla-intersectwith obj1 obj2 0))
    
14.       )
    
15.       (if (> (vlax-safearray-get-u-bound ipt 1) 0)
    
16.         (progn
    
17.           (setq ipt (vlax-safearray->list ipt))
    
18.           (while (> (length ipt) 0)
    
19.             (setq l_pt (cons (list (car ipt) (cadr ipt) (caddr ipt)) l_pt) ipt (cdddr ipt))
    
20.           )
    
21.         )
    
22.       )
    
23.       (setq n2 (1+ n2))
    
24.     )
    
25.     (setq n1 (1+ n1))
    
26.   )
    
27.   l_pt
    
28. )

;;交点列表[ss-选择集]<br /> (defun yad_inters(ss / n n1 obj1 n2 obj2 ipt l_pt)<br />   (setq        n (sslength ss)<br />         n1 0<br />   )<br />   (while (< n1 (1- n))<br />     (setq obj1 (vlax-ename->vla-object (ssname ss n1))<br />           n2 (1+ n1)<br />     )<br />     (while (< n2 n)<br />       (setq obj2 (vlax-ename->vla-object (ssname ss n2))<br />             ipt  (vlax-variant-value (vla-intersectwith obj1 obj2 0))<br />       )<br />       (if (> (vlax-safearray-get-u-bound ipt 1) 0)<br />         (progn<br />           (setq ipt (vlax-safearray->list ipt))<br />           (while (> (length ipt) 0)<br />             (setq l_pt (cons (list (car ipt) (cadr ipt) (caddr ipt)) l_pt) ipt (cdddr ipt))<br />           )<br />         )<br />       )<br />       (setq n2 (1+ n2))<br />     )<br />     (setq n1 (1+ n1))<br />   )<br />   l_pt<br /> )

【KAIXIN】

2. ;计算曲线交点  功能:返回两个对象的所有交点  
   
3. ;(KX-get-e1e2jiao en1 en2)  参数: ent1、ent2 均为ename对象
   
4. (defun KX-get-jiaodian (en1 en2 / pl pts)
   
5.   (setq pl  (vlax-invoke (vlax-ename->vla-object en2) 'IntersectWith (vlax-ename->vla-object en1) acExtendNone))
   
6.   (while pl
   
7.     (setq pts (append pts (list (list (car pl) (cadr pl) (caddr pl))))
   
8.    pl (cdr (cdr (cdr pl)))
   
9.    )
   
10.     )
    
11. pts
    
12.   )
    

;计算曲线交点  功能:返回两个对象的所有交点  <br /> ;(KX-get-e1e2jiao en1 en2)  参数: ent1、ent2 均为ename对象<br /> (defun KX-get-jiaodian (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 />

qq229918602

【KAIXIN】 发表于 2012-4-17 19:28

交点坐标集请问是不是1_pt？？？