已知面上三点坐标，线的2点，求线和面的交点

zhhunicorn

如题，面的三点坐标p1,p2,p3,线的2点坐标pa,pb,求直线和平面的交点pc。

Gu_xl

【越飞越高讲堂17】论点、线、面、三角形及多边形

xyp1964

2. (defun abc (p1 p2 p3 pa pb / pa1 pb1)
   
3.   (command "ucs" "")
   
4.   (command "ucs" "n" "3" "non" p1 "non" p2 "non" p3)
   
5.   (setq pa1 (trans pa 0 1)
   
6.         pa1 (list (car pa1) (cadr pa1) 0)
   
7.         pb1 (trans pb 0 1)
   
8.         pb1 (list (car pb1) (cadr pb1) 0)
   
9.         pa1 (trans pa1 1 0)
   
10.         pb1 (trans pb1 1 0)
    
11.   )
    
12.   (command "ucs" "")
    
13.   (inters pa pb pa1 pb1 nil)
    
14. )

(defun abc (p1 p2 p3 pa pb / pa1 pb1)<br />   (command "ucs" "")<br />   (command "ucs" "n" "3" "non" p1 "non" p2 "non" p3)<br />   (setq pa1 (trans pa 0 1)<br />         pa1 (list (car pa1) (cadr pa1) 0)<br />         pb1 (trans pb 0 1)<br />         pb1 (list (car pb1) (cadr pb1) 0)<br />         pa1 (trans pa1 1 0)<br />         pb1 (trans pb1 1 0)<br />   )<br />   (command "ucs" "")<br />   (inters pa pb pa1 pb1 nil)<br /> )

fan_zh

两大版主同时出现，院长还给出源码，楼主走运了！

zhhunicorn

幸运啊，非常感谢。

ivde

ill 和 ilp 函数可以确定交点。

ill(p1,p2,p3,p4)
确定两条直线 (p1、p2) 和 (p3、p4) 的交点。所有点都被认为是三维点。

ilp(p1,p2,p3,p4,p5)
确定直线（通过 p1、p2）和平面（通过三点 p3、p4、p5）的交点。

(cal "ilp(p1,p2,p3,p4,p5)")