求点到直线的垂足

老大的鸭梨

小弟，有个问题搞不定了，希望各位大神帮忙解决下。
已知一条直线，现在需要求另外一点到直线上的垂足点，我想用两条直线相交求交点的方式，就是用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

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

老大的鸭梨

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

自贡黄明儒

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

老大的鸭梨

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

lht  给的vlisp，经过验证确实可行，但是在三维空间下，貌似有问题小问题，我现在在调试中。。。