[求助]最远和最近的2点

夜未眠

现在有A,B,C,D,，……，N共n个点，如何找出其中距离最远的2点和和最近的2点？

超然A

说一下你这些点是怎样获得的。

是从图面上选取呢？还是有点的坐标列表？  还是多段线的各个顶点？

Ea

http://www.xdcad.net/forum/showthread.php?s=&threadid=452598

夜未眠

Ea发表于2006-4-16 11:21:00http://www.xdcad.net/forum/showthread.php?s=&threadid=452598

发生了一些微小的问题在 数据库.
请重试刷新 你的浏览器.

lll一封 E-Mail 已经发到我们的技术人员, 如果问题仍然存在,你可以联系它.

我们感到非常抱歉.

夜未眠

超然A发表于2006-4-15 17:39:00 说一下你这些点是怎样获得的。 是从图面上选取呢？还是有点的坐标列表？ 还是多段线的各个顶点？

都是用vla获得的线的交点

xyp1964

2. [FONT=courier new];;;最近的2点
3. (defun min-pt2pt (ptlst / Min-dist pt0 pt dist-tmp ptn)
4.   (setq Min-dist (distance (car ptlst) (cadr ptlst)))
5.   (while (> (length ptlst) 1)
6.     (setq pt0 (car ptlst)
7.    ptlst (cdr ptlst)
8.     )
9.     (foreach pt ptlst
10.       (if (< (setq dist-tmp (distance pt0 pt)) Min-dist)
11. (setq ptn   (cons dist-tmp (list pt0 pt))
12.        Min-dist dist-tmp
13. )
14.       )
15.     )
16.   )
17.   ptn
18. )
19. ;;;最远的2点
20. (defun max-pt2pt (ptlst / Min-dist pt0 pt dist-tmp ptn)
21.   (setq Min-dist (distance (car ptlst) (cadr ptlst)))
22.   (while (> (length ptlst) 1)
23.     (setq pt0 (car ptlst)
24.    ptlst (cdr ptlst)
25.     )
26.     (foreach pt ptlst
27.       (if (> (setq dist-tmp (distance pt0 pt)) Min-dist)
28. (setq ptn   (cons dist-tmp (list pt0 pt))
29.        Min-dist dist-tmp
30. )
31.       )
32.     )
33.   )
34.   ptn
35. )[/FONT]

[FONT=courier new];;;最近的2点 (defun min-pt2pt (ptlst / Min-dist pt0 pt dist-tmp ptn)   (setq Min-dist (distance (car ptlst) (cadr ptlst)))   (while (> (length ptlst) 1)     (setq pt0 (car ptlst)    ptlst (cdr ptlst)     )     (foreach pt ptlst       (if (< (setq dist-tmp (distance pt0 pt)) Min-dist) (setq ptn   (cons dist-tmp (list pt0 pt))        Min-dist dist-tmp )       )     )   )   ptn ) ;;;最远的2点 (defun max-pt2pt (ptlst / Min-dist pt0 pt dist-tmp ptn)   (setq Min-dist (distance (car ptlst) (cadr ptlst)))   (while (> (length ptlst) 1)     (setq pt0 (car ptlst)    ptlst (cdr ptlst)     )     (foreach pt ptlst       (if (> (setq dist-tmp (distance pt0 pt)) Min-dist) (setq ptn   (cons dist-tmp (list pt0 pt))        Min-dist dist-tmp )       )     )   )   ptn )[/FONT]

夜未眠

楼上的程序有bug ，当只有2个点时出错。

狂刀无痕

以前写的

2. ;|(xl-ptsmaxdist ptlst)求点集中最远，最近点表.－v1.1bautolsp)－by梁雄啸.2004.4
3. 根据841594 和 snsj 部分代码修改而成
4. 返回:(最远两点 最近两点)
5.   (xl-ptsmaxdist (while (setq pt(getpoint)) (setq plst (cons pt plst)))))
6.   ->(((14857.8 -599.932 0.0) (26695.2 -3687.68 0.0)) ((15733.8 -3687.68 0.0) (15630.7 -3842.07 0.0)))
7. |;
8. (defun xl-ptsmaxdist (ptlst / pt d maxd mind maxl minl)
9.   (setq minl (list (car ptlst)(cadr ptlst)) maxd 0 mind (apply 'distance minl))
10.   (while (setq pt (car ptlst) ptlst (cdr ptlst))
11.     (foreach n ptlst
12.       (setq d (distance n pt))
13.       (cond ((< maxd d)(setq maxd d maxl (list n pt)))
14.      ((> mind d)(setq mind d minl (list n pt)))
15.       )
16.     )
17.   )(list maxl minl)
18. )
19. ;|测试程序--在屏幕取点后，画出最近/最远点的两条直线.
20. (defun c:test ( / pt ptlst)
21.   (setq opd (getvar "pdmode"))
22.   (setvar "pdmode" 3)
23.   (while (setq pt (getpoint "\n取点："))
24.     (vl-cmdf ".point" pt)(setq ptlst (cons pt ptlst))
25.   )
26.   (mapcar '(lambda (x)(vl-cmdf ".line" (car x)(cadr x) "")) (mlenpts ptlst))
27.   (setvar "pdmode" opd)
28.   (princ)
29. )      
30. |;

;|(xl-ptsmaxdist ptlst)求点集中最远，最近点表.－v1.1bautolsp)－by梁雄啸.2004.4 根据841594 和 snsj 部分代码修改而成 返回:(最远两点 最近两点)   (xl-ptsmaxdist (while (setq pt(getpoint)) (setq plst (cons pt plst)))))   ->(((14857.8 -599.932 0.0) (26695.2 -3687.68 0.0)) ((15733.8 -3687.68 0.0) (15630.7 -3842.07 0.0))) |; (defun xl-ptsmaxdist (ptlst / pt d maxd mind maxl minl)   (setq minl (list (car ptlst)(cadr ptlst)) maxd 0 mind (apply 'distance minl))   (while (setq pt (car ptlst) ptlst (cdr ptlst))     (foreach n ptlst       (setq d (distance n pt))       (cond ((< maxd d)(setq maxd d maxl (list n pt)))      ((> mind d)(setq mind d minl (list n pt)))       )     )   )(list maxl minl) ) ;|测试程序--在屏幕取点后，画出最近/最远点的两条直线. (defun c:test ( / pt ptlst)   (setq opd (getvar "pdmode"))   (setvar "pdmode" 3)   (while (setq pt (getpoint "\n取点："))     (vl-cmdf ".point" pt)(setq ptlst (cons pt ptlst))   )   (mapcar '(lambda (x)(vl-cmdf ".line" (car x)(cadr x) "")) (mlenpts ptlst))   (setvar "pdmode" opd)   (princ) )       |;