麻烦大师写个求两线交点的函数

明天你好

选择两条线 ，可能是两多段线，也可能是两直线，也可能是一条直线，一条多段线

如果两线无交点则返回nil
有交点，包括虚拟交点 ，则返回交点坐标

谢谢！

marting

先搜索论坛吧， 这个函数太常见了，论坛有很多。

marting

写个吧

参数：
e1 ,e2  ---- 实体名 或 VLA对象名
typ      ---- 实体扩展求交方式，0--不扩展实体，1--扩展第一个实体 ，2--扩展第二个实体，3--两个都扩展

1. (defun XD::Ent:inters (e1 e2 typ / ints)
   
2.   (if (and (= (type e1) 'ename)
   
3.            (= (type e2) 'ename)
   
4.       )
   
5.     (setq e1 (vlax-ename->vla-object e1)
   
6.           e2 (vlax-ename->vla-object
   
7.                e2
   
8.              )
   
9.     )
   
10.   )
    
11.   (if (not
    
12.         (vl-catch-all-error-p
    
13.           (vl-catch-all-apply
    
14.             '(lambda ()
    
15.                (setq ints (xd::vla:variant->value
    
16.                             (vla-intersectwith e1 e2 typ)
    
17.                           )
    
18.                )
    
19.              )
    
20.           )
    
21.         )
    
22.       )
    
23.     (setq ints (xd::list:group-n ints 3))
    
24.   )
    
25.   ints
    
26. )
    

(defun XD::Ent:inters (e1 e2 typ / ints)<br />   (if (and (= (type e1) 'ename)<br />            (= (type e2) 'ename)<br />       )<br />     (setq e1 (vlax-ename->vla-object e1)<br />           e2 (vlax-ename->vla-object<br />                e2<br />              )<br />     )<br />   )<br />   (if (not<br />         (vl-catch-all-error-p<br />           (vl-catch-all-apply<br />             '(lambda ()<br />                (setq ints (xd::vla:variant->value<br />                             (vla-intersectwith e1 e2 typ)<br />                           )<br />                )<br />              )<br />           )<br />         )<br />       )<br />     (setq ints (xd::list:group-n ints 3))<br />   )<br />   ints<br /> )<br />

函数 xd::list:group-n 见：http://bbs.xdcad.net/thread-709133-1-1.html
函数 xd::vla:variant->value 见：http://bbs.xdcad.net/thread-709104-1-1.html

明天你好

谢谢marting大师， 论坛搜到了一个
http://bbs.xdcad.net/thread-673426-1-1.html

明天你好

marting 发表于 2017-5-22 09:23

marting大师，测试了下你写的函数，当选择无交点的两条线时（平行线），不是返回nil，而是显示错误:ActiveX服务器返回错误:无效索引。

marting

明天你好 发表于 2017-5-22 11:30

修改了，你重新拷贝回去试试。

明天你好

marting 发表于 2017-5-22 11:47

marting大师，现在可以了

pxt2015

xdapi有现成的函数

pxt2015

xdrx_curve_intersect