已知点表中的两点,求与此两点共线且距离最远的点

kry

如下图所示，已知点表，PT1，PT2；求与PT1，PT2共线且距离最远的点pt3,pt4

caoyin

Z版的程序似乎角度要加上(/ pi 2)的判断，下面的程序供楼主参考

2. ;; ▓ (lt:pts-onLine <点列表>)
3. ;; [功能] 判断点集是否共线
4. ;; [参数] plst---点列表
5. ;; [返回] 共线->T，反之->nil
6. (defun lt:pts-onLine (plst / a b)
7.    (setq a (car plst) b (cadr plst))
8.    (not (vl-catch-all-error-p
9.           (vl-catch-all-apply
10.             'mapcar (list '(lambda (x / an)
11.                             (setq an (angle a x))
12.                             (if (not (or (equal x a 1e-6)
13.                                          (equal x b 1e-6)
14.                                          (equal an (angle b x) 1e-6)
15.                                          (equal an (angle x b) 1e-6)
16.                                      )
17.                                 )
18.                               (exit)
19.                             )
20.                            )
21.                           (cddr plst)
22.                     )
23.           )
24.         )
25.    )
26. )

;; ▓ (lt:pts-onLine <点列表>) ;; [功能] 判断点集是否共线 ;; [参数] plst---点列表 ;; [返回] 共线->T，反之->nil (defun lt:pts-onLine (plst / a b)    (setq a (car plst) b (cadr plst))    (not (vl-catch-all-error-p           (vl-catch-all-apply             'mapcar (list '(lambda (x / an)                             (setq an (angle a x))                             (if (not (or (equal x a 1e-6)                                          (equal x b 1e-6)                                          (equal an (angle b x) 1e-6)                                          (equal an (angle x b) 1e-6)                                      )                                 )                               (exit)                             )                            )                           (cddr plst)                     )           )         )    ) )

cjs

先做直线pl: PT1-PT2

用vlax-curve-getClosestPointTo求其余各点到pl的垂足，如果垂足与本点坐标相同/距离为零 则表示点在线pl上

kry

怎么判断是否是线上的点呢？

ZZXXQQ

kry发表于2009-6-25 15:43:00怎么判断是否是线上的点呢？

可通过角度进行判断
(if (equal (- (angle pt1 pt2) (angle pt1 pt4)) 1e-6)
 (princ "\npt4  在线上.")
 (princ "\npt4 不在线上.")
)

狂刀无痕

角度法，距离法，向量法，辅助线法，垂距法，。。。。。。都可以

不过建议用while循环替代mapcar，效率更高

caoyin

(vl-catch-all-error-p
           (vl-catch-all-apply
             'mapcar (list '(lambda (x / an)
                             (setq an (angle a x))
                             (if (not (or (equal x a 1e-6)
                                          (equal x b 1e-6)
                                          (equal an (angle b x) 1e-6)
                                          (equal an (angle x b) 1e-6)
                                      )
                                 )
                               (exit)

谢无痕老师指教，红色部分的结构确保在指定条件下退出，和while差不多

wide

如果是空间点怎么判断