点到直线的距离，求大神优化，第一次写的

xyp1964

;; 点到两点连线的距离
(defun abc (p0 p1 p2 / p3)
  (setq p3 (polar p0 (+ (angle p1 p2) (* pi 0.5)) 1))
  (distance (inters p1 p2 p0 p3 nil) p0)
)

437271963

2. (defun c:tes ( / ent pt1 pt2)
   
3. (vl-load-com)
   
4. (if (and
   
5.       (setq pt1 (getpoint "\n请指定点位置"))
   
6.       (setq ent (entsel "\n请选择曲线"))
   
7.       (setq ent (car ent))
   
8.       (numberp (vl-catch-all-apply 'vlax-curve-getEndParam (list ent)));对象为曲线
   
9.   )
   
10.   (progn
    
11.    (setq pt2 (vlax-curve-getclosestpointto ent pt1 t))
    
12.    (princ (distance pt1 pt2));显示最短距离
    
13.    (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)));绘制垂直线
    
14.   )
    
15.   (princ "\n对象不是曲线")
    
16. )
    
17. (princ)
    
18. )

(defun c:tes ( / ent pt1 pt2)<br /> (vl-load-com)<br /> (if (and <br />       (setq pt1 (getpoint "\n请指定点位置"))<br />       (setq ent (entsel "\n请选择曲线"))<br />       (setq ent (car ent))<br />       (numberp (vl-catch-all-apply 'vlax-curve-getEndParam (list ent)));对象为曲线<br />   )<br />   (progn<br />    (setq pt2 (vlax-curve-getclosestpointto ent pt1 t))<br />    (princ (distance pt1 pt2));显示最短距离<br />    (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)));绘制垂直线<br />   )<br />   (princ "\n对象不是曲线")<br /> )<br /> (princ)<br /> )

13648893846

437271963 发表于 2017-10-12 08:55

谢谢大神，

oistre

谢谢大神，牛牛牛牛！！！

zhenz02

XIEXIEFENXIANG,JIXUWEIGUAN

chwnin

学习一下，这个有用，谢谢！！

631925855

xyp1964 发表于 2017-10-11 12:51
;; 点到两点连线的距离
(defun abc (p0 p1 p2 / p3)
  (setq p3 (polar p0 (+ (angle p1 p2) (* pi 0.5)) ...

简洁、紧凑，非常实用！谢谢分享！