求垂足坐标题

yinzhiw · 发表于 2006-7-12 10:28:00

已知点ptStart,ptEnd 为一条直线L的两个端点，坐标为(x1,y1),(x2,y2)
从点pt(x0,y0) 做到直线L 的垂线，求垂足的坐标

谢谢

sjgau4311 · 发表于 2006-7-12 11:48:00

我以前用 AutoLISP 写过这个程式，很简单的。
你要不要自己试试看。

yinzhiw · 发表于 2006-7-12 14:04:00

就是因为没写出来才到这求助的啊

最好用vba

sjgau4311 · 发表于 2006-7-12 14:06:00

我没有使用过 VBA, 我用 LISP 写，你自己转如何？

mkhsj928 · 发表于 2006-7-12 14:28:00

Public Function m_ptCD(m_pt1() As Double, m_pt2() As Double, m_pt3() As Double, m_pt4() As Double)
'给定空间三点pt1,pt2 pt3,求出pt3到直线pt1-pt2的垂足点pt4
    Dim m_a As Double, m_b As Double
    m_a = Sqr((m_pt2(0) - m_pt1(0)) * (m_pt2(0) - m_pt1(0)) + _
              (m_pt2(1) - m_pt1(1)) * (m_pt2(1) - m_pt1(1)) + _
              (m_pt2(2) - m_pt1(2)) * (m_pt2(2) - m_pt1(2)))

    m_b = (m_pt2(0) - m_pt1(0)) * (m_pt3(0) - m_pt1(0)) + _
          (m_pt2(1) - m_pt1(1)) * (m_pt3(1) - m_pt1(1)) + _
          (m_pt2(2) - m_pt1(2)) * (m_pt3(2) - m_pt1(2))

    m_a = m_b / (m_a * m_a)

    m_pt4(0) = m_pt1(0) + (m_pt2(0) - m_pt1(0)) * m_a
    m_pt4(1) = m_pt1(1) + (m_pt2(1) - m_pt1(1)) * m_a
    m_pt4(2) = m_pt1(2) + (m_pt2(2) - m_pt1(2)) * m_a
End Function

sjgau4311 · 发表于 2006-7-12 14:50:00

台湾这边不流行 AutoCAD VBA, 看来大陆那边的程度不错。
推！

yinzhiw · 发表于 2006-7-17 20:31:00

看来版主是台湾的啊

谢谢了

sjgau4311 · 发表于 2006-7-18 10:31:00

五百年前是一家，同文同种，不用客气。
最近比较忙，要到八月下旬以后才比较有空，
到时候，会让大家刮目相看。

zxq651007z · 发表于 2006-7-25 15:19:00

好像不用这么麻烦，捕捉到PT后，直接作垂足就可以了，这样做出来的能保证集合精度

ll_j · 发表于 2006-7-27 19:34:00

(defun it(pt0 pts pte)

(inters pt0 (polar pt0 (+ (angle pts pte) (/ pi 2)) 1.0) pts pte nil)

)

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

求垂足坐标题

相关帖子

回复：（yinzhiw）看来版主是台湾的啊 ...