求垂足坐标题

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

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

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

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)
)

页: [1] 2

明经CAD社区's Archiver

求垂足坐标题

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