请问如何过一点作一条直线的垂线

pucx

如题，如何过一个点作一条直线的垂线。谢谢。

cabinsummer

程序如下。但该程序没有判断是否选取了直线和点，也就是说，没有错误处理

1. (defun c:per(/ el sp dp ep dsp dep dse al pp spx spy dpx dpy epx epy ppx ppy)
   
2.   (prompt "请选择直线:")
   
3.   (setq el (car (entsel)));;;直线图元名
   
4.   (setq sp (cdr (assoc 10 (entget el))));;;直线起点
   
5.   (setq dp (cdr (assoc 11 (entget el))));;;直线终点
   
6.   (prompt "请选择点:")
   
7.   (setq ep (getpoint));;;已知点选取
   
8.   (setq dsp (distance ep sp));;;直线起点到选取点距离
   
9.   (setq dep (distance ep dp));;;直线终点到选取点距离
   
10.   (setq dse (distance sp dp));;;直线长度
    
11.   (if
    
12.     (or
    
13.       (= dsp (+ dep dse))
    
14.       (= dep (+ dsp dse))
    
15.       (= dse (+ dsp dep))
    
16.     );;;判断
    
17.     (princ "\n点位于直线上")
    
18.     (progn
    
19.       (setq spx (car sp) spy (cadr sp));;;直线起点xy坐标
    
20.       (setq dpx (car dp) dpy (cadr dp));;;直线终点xy坐标
    
21.       (setq al (- (angle (list spx spy)(list dpx dpy))(/ pi 2.0)));;;直线的垂线方向角
    
22.       (if (< al 0.0)(setq al (+ al (* pi 2.0))));;;如果垂线方向角<0则＋360度
    
23.       (setq pp (polar ep al 10));;;垂线上的某一点
    
24.       (setq epx (car ep) epy (cadr ep));;;选取点的xy坐标
    
25.       (setq ppx (car pp) ppy (cadr pp));;;垂线上某一点的xy坐标
    
26.       (setq pp (append (inters (list spx spy)(list dpx dpy)(list epx epy)(list ppx ppy) nil) (list 0.0)));;;求垂足
    
27.       (entmake (list '(0 . "LINE")(cons 10 ep)(cons 11 pp)));;;画选取点和垂足点之间的线，即垂线
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

(defun c:per(/ el sp dp ep dsp dep dse al pp spx spy dpx dpy epx epy ppx ppy)<br />   (prompt "请选择直线:")<br />   (setq el (car (entsel)));;;直线图元名<br />   (setq sp (cdr (assoc 10 (entget el))));;;直线起点<br />   (setq dp (cdr (assoc 11 (entget el))));;;直线终点<br />   (prompt "请选择点:")<br />   (setq ep (getpoint));;;已知点选取<br />   (setq dsp (distance ep sp));;;直线起点到选取点距离<br />   (setq dep (distance ep dp));;;直线终点到选取点距离<br />   (setq dse (distance sp dp));;;直线长度<br />   (if<br />     (or<br />       (= dsp (+ dep dse))<br />       (= dep (+ dsp dse))<br />       (= dse (+ dsp dep))<br />     );;;判断<br />     (princ "\n点位于直线上")<br />     (progn<br />       (setq spx (car sp) spy (cadr sp));;;直线起点xy坐标<br />       (setq dpx (car dp) dpy (cadr dp));;;直线终点xy坐标<br />       (setq al (- (angle (list spx spy)(list dpx dpy))(/ pi 2.0)));;;直线的垂线方向角<br />       (if (< al 0.0)(setq al (+ al (* pi 2.0))));;;如果垂线方向角<0则＋360度<br />       (setq pp (polar ep al 10));;;垂线上的某一点<br />       (setq epx (car ep) epy (cadr ep));;;选取点的xy坐标<br />       (setq ppx (car pp) ppy (cadr pp));;;垂线上某一点的xy坐标<br />       (setq pp (append (inters (list spx spy)(list dpx dpy)(list epx epy)(list ppx ppy) nil) (list 0.0)));;;求垂足<br />       (entmake (list '(0 . "LINE")(cons 10 ep)(cons 11 pp)));;;画选取点和垂足点之间的线，即垂线<br />     )<br />   )<br />   (princ)<br /> )

fsxm

1. public static Point3d GetPrjPoint(Point3d pt, Point3d start, Point3d end)
   
2.         {
   
3.             Line3d l = new Line3d(start, end);
   
4.             return l.GetClosestPointTo(pt).Point;
   
5.         }

public static Point3d GetPrjPoint(Point3d pt, Point3d start, Point3d end)<br />         {<br />             Line3d l = new Line3d(start, end);<br />             return l.GetClosestPointTo(pt).Point;<br />         }

cabinsummer

1. (defun c:per(/ el obj cp ep)
   
2.   (if (and (setq el (car (entsel "\n请选择直线:")))(= (cdr (assoc 0 (entget el))) "LINE"))
   
3.     (progn
   
4.       (setq obj (vlax-ename->vla-object el))
   
5.       (if (setq ep (getpoint "\n请选择点:"))
   
6.         (progn
   
7.           (setq cp (vlax-curve-getClosestPointTo obj ep T))
   
8.           (if (/= (distance ep cp) 0.0)
   
9.             (entmake (list '(0 . "LINE")(cons 10 ep)(cons 11 cp)))
   
10.             (princ "\n点位于直线上，三维无解")
    
11.           )
    
12.         )
    
13.         (princ "\n未选取点")
    
14.       )
    
15.     )
    
16.     (princ "\n未选取直线")
    
17.   )
    
18.   (princ)
    
19. )

(defun c:per(/ el obj cp ep)<br />   (if (and (setq el (car (entsel "\n请选择直线:")))(= (cdr (assoc 0 (entget el))) "LINE"))<br />     (progn<br />       (setq obj (vlax-ename->vla-object el))<br />       (if (setq ep (getpoint "\n请选择点:"))<br />         (progn<br />           (setq cp (vlax-curve-getClosestPointTo obj ep T))<br />           (if (/= (distance ep cp) 0.0)<br />             (entmake (list '(0 . "LINE")(cons 10 ep)(cons 11 cp)))<br />             (princ "\n点位于直线上，三维无解")<br />           )<br />         )<br />         (princ "\n未选取点")<br />       )<br />     )<br />     (princ "\n未选取直线")<br />   )<br />   (princ)<br /> )

yanglin112

新手学习了！！

guohq

fsxm 发表于 2011-9-23 20:53

如果直线外的那个点向直线作垂线时，垂足在延长线上，那么取最近点就不对了！！！