zhhunicorn 发表于 2014-12-1 13:57:56

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

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

Gu_xl 发表于 2014-12-1 14:23:35

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

xyp1964 发表于 2014-12-1 15:03:07

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

fan_zh 发表于 2014-12-1 16:48:49

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

zhhunicorn 发表于 2014-12-1 17:11:19

幸运啊，非常感谢。

ivde 发表于 2014-12-1 17:21:35

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)")
页: [1]
查看完整版本: 已知面上三点坐标，线的2点，求线和面的交点