如何找到一根直线和任意三点决定平面的交点?

ljcgq · 发表于 2004-2-4 12:59:00

如何找到一根直线和任意三点决定平面的交点?

有好的算法么?

HQ_2003 · 发表于 2004-2-5 12:39:00

我也很想知道啊

ljcgq · 发表于 2004-2-5 19:19:00

那我告诉你::

那就是先把沿线作一柱体(实体)

在通过三个点的面在柱体上切一个剖面,

然后炸开剖面

再去捕捉生成椭圆的圆心!!

去写程序吧,写完了给大家贴出来.......

龙龙仔 · 发表于 2004-2-6 08:03:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=4143&replyID=16748

ljcgq · 发表于 2004-2-6 20:14:00

楼上的兄弟:

我看了你写的垂足的程序,很好,这段程序对三维图形投影到某一平面很有用处..

但是我希望的是直线和面的交点,好象不是一回事.....

无痕 · 发表于 2004-2-7 03:12:00

(defun C:EE0 (/ LIN PT1 PT2 PT3 WW1 WW2)
(command "_.ucs" "w")
(setq PT1 (getpoint "\n第一点: ")
PT2 (getpoint PT1 "\n第二点: "))
(grdraw PT1 PT2 3 1)
(setq PT3 (getpoint PT2 "\n第三点: "))
(grdraw PT2 PT3 3 1)
(grdraw PT3 PT1 3 1)
(command "_.ucs" 3 PT1 PT2 PT3)
(setq lin (car(entsel "\n面外线: "))
pt1 (cdr (assoc 10 (entget lin)))
pt2 (cdr (assoc 11 (entget lin))))
(setq WW1 (trans (list (car (trans pt1 0 1)) (cadr (trans pt1 0 1)) 0) 1 0)
WW2 (trans (list (car (trans pt2 0 1)) (cadr (trans pt2 0 1)) 0) 1 0)
pt3 (inters pt1 pt2 ww1 ww2 nil))
(command "_.ucs" "p")
(grdraw PT1 pt3 3 1)
(command "_.ucs" "p")
(princ "\n线与面交点(世界坐标): ")(princ pt3)
(princ)
)

Ea · 发表于 2004-2-7 03:44:00

来个数学方法

ljcgq · 发表于 2004-2-8 08:08:00

谢谢各位的帮助

ljcgq · 发表于 2004-2-8 15:51:00

无痕的坐标转化很值得学习,构思很巧妙... Ea的理论写的很简练我很羡慕... "总之，能推给AutoCAD做的事情，我们决不自己做。要不然，买这个软件做什么？"呵呵----- 那我就用cad的命令来完成这个任务希望大家多提出一些算法,让我们的思路更宽.... ;一根直线和任意三点决定平面的交点
;2004.2 ljc 唐山
(defun c:jj(/p1 p2 p3 st st1 )
(setq line (ssget '((0 . "line"))))
(setq osmode(getvar "osmode"))
(command "ucs" "" "")
(setq p1 (getpoint "选择第一点") p2 (getpoint "选择第二点") p3 (getpoint "选择第三点") )
(command "_cylinder"
(cdr(assoc 10 (entget(ssname line 0)))) 100 "c" (cdr(assoc 11 (entget(ssname line 0)))) "")
(setq st(entlast))
(command "section" st "" p1 p2 p3 )
(command "erase" st "")
(command "explode" (entlast) "")
(setq st1(entlast)) (SETVAR "OSMODE" 0)
(command "point" (cdr(assoc 10 (entget st1))) )
(command "erase" st1 "")
(SETVAR "OSMODE" osmode)
)

账号		自动登录	找回密码
密码			注册

如何找到一根直线和任意三点决定平面的交点?

本帖子中包含更多资源