老大的鸭梨 发表于 2014-12-25 17:40:04

求点到直线的垂足

小弟，有个问题搞不定了，希望各位大神帮忙解决下。
已知一条直线，现在需要求另外一点到直线上的垂足点，我想用两条直线相交求交点的方式，就是用inters这个函数，但是发现在三维空间下有问题。
(defun c:111()
(setq p1 (getpoint))
(setq p2 (getpoint))
(setq p0 (getpoint))
(setq ang (angle p1 p2))
(setq p (inters p1 p2 p0 (polar p0 (+ an _pi2) 10000) nil))
(princ)
)

感觉在三维空间下要考虑坐标系的转换啊。。。。

lht 发表于 2014-12-25 18:31:58

本帖最后由 lht 于 2014-12-25 18:35 编辑

(setq ent (car (entsel))
(setq p0 (getpoint))
(setq p (vlax-curve-getClosestPointTo ent p0))

老大的鸭梨 发表于 2014-12-25 19:18:53

To:lht
我试了下，用于直线的话，貌似每次总是返回第二端点的坐标。。。

自贡黄明儒 发表于 2014-12-26 10:18:46

http://bbs.mjtd.com/thread-109035-1-1.html

老大的鸭梨 发表于 2014-12-29 15:24:54

小弟拜谢各位大神。
“自贡黄明儒 ”给的那个代码，之前在其他的帖子里面也看到了。小弟现在刚学习，对于其中涉及到矩阵的地方看不明白：
(mapcar '+ (MAT:Rot90 (mapcar '- p1 p2)) p))——————最关键的一句话
MAT:Rot90 ：
(defun MAT:Rot90 (vec)
(vl-list* (- (cadr vec)) (car vec) (cddr vec))
)

lht给的vlisp，经过验证确实可行，但是在三维空间下，貌似有问题小问题，我现在在调试中。。。
页: [1]
查看完整版本: 求点到直线的垂足