[原创]：！！求两组实体的交点表.！！

陌生人

求两组实体的交点表.
当第二个选集为nil，即为求第一选集的自身交点列表.

[php];求两组曲线的交点集列表.－－－－－－by陌生人.2004.1
;;调用方法: (x@ints ss1 ss2)  [/php]

2. 
   
3. ;应用测试.
   
4. ;在两组曲线所有交点处画半径100的圆:
   
5. (defun c:test ()
   
6.   (setq doc (vla-get-activedocument(vlax-get-acad-object))
   
7.     filter '((0 . "line,spline,*polyline,arc,circle,ellipse")))
   
8.   (vla-startundomark doc)
   
9.   (foreach n
   
10.        (x@ints (progn(princ "\n选第一组曲线：")(ssget filter))
    
11.                    (progn (princ "\n选第二组曲线<回车求选集自身交点>：")(ssget filter)))
    
12. ;;两处的filter可设置不同.
    
13.            (vl-cmdf ".circle" n 100)
    
14.   )
    
15.   (vla-endundomark doc)
    
16. )
    
17. ;当1组选1个曲线，2组代码改为(entget "x" filter)时候，即为求：一条曲线与所有相交实体的交点列表，并在交点处画圆。

<br /> ;应用测试. <br /> ;在两组曲线所有交点处画半径100的圆: <br /> (defun c:test () <br />   (setq doc (vla-get-activedocument(vlax-get-acad-object)) <br />     filter '((0 . "line,spline,*polyline,arc,circle,ellipse"))) <br />   (vla-startundomark doc) <br />   (foreach n <br />        (x@ints (progn(princ "\n选第一组曲线：")(ssget filter)) <br />                    (progn (princ "\n选第二组曲线<回车求选集自身交点>：")(ssget filter)))<br /> ;;两处的filter可设置不同. <br />            (vl-cmdf ".circle" n 100) <br />   ) <br />   (vla-endundomark doc) <br /> )<br /> ;当1组选1个曲线，2组代码改为(entget "x" filter)时候，即为求：一条曲线与所有相交实体的交点列表，并在交点处画圆。

tianshanxue

好

陌生人

x@ints.fas