求点集表中到指定图元最近的点

ynhh · 发表于 2019-10-3 22:30:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位大师
已知点集表和一个曲线类图元
求点集表中到指定图元最近的点
谢谢

aimisiyou · 发表于 2019-10-3 22:53:23

直接求出各点到曲线的距离，然后比较大小，得出最小值。

ynhh · 发表于 2019-10-3 23:05:50

aimisiyou 发表于 2019-10-3 22:53
直接求出各点到曲线的距离，然后比较大小，得出最小值。

直接求出各点到曲线的距离，然后比较大小，得出最小值。
这一步想到了
主要是不会排序
谢谢您能不能写一个
谢谢

aimisiyou · 发表于 2019-10-3 23:17:03

本帖最后由 aimisiyou 于 2019-10-4 12:56 编辑

;;;disfun(pt en) 为点pt到曲线en的距离函数
(car (vl-sort (mapcar '(lambda (x) (cons (disfun x en) x)) pts) '(lambda (ea eb) (< (car ea) (car eb)))))

ynhh · 发表于 2019-10-4 11:12:17

aimisiyou 发表于 2019-10-3 23:17
;;;disfun(pt en) 为点pt到曲线en的距离函数
(car (vl-sort (mapcar '(lambda (x) (cons (disfun x en) x ...

谢谢您的热心指导
我再慢慢研究学习
谢谢您

aimisiyou · 发表于 2019-10-4 12:52:57

本帖最后由 aimisiyou 于 2019-10-4 13:00 编辑

(setq en (car(entsel "\n选择曲线")))
(setq sn (ssget ":N" '((0 . "point"))))
(setq i 0 n (sslength sn) pts nil)
(while (< i n)
(setq pts (cons (cdr (assoc 10 (entget (ssname sn i)))) pts))
(setq i (+ i 1))
)
(setq ptmin (car (vl-sort (mapcar '(lambda (x) (cons (distance x (setq ptt (vlax-curve-getClosestPointTo en x)))
(list x ptt))) pts) '(lambda (ea eb) (< (car ea) (car eb))))))
(command "line" (cadr ptmin) (caddr ptmin)"")

ynhh · 发表于 2019-10-4 15:13:22

aimisiyou 发表于 2019-10-4 12:52
(setq en (car(entsel "\n选择曲线")))
(setq sn (ssget ":N" '((0 . "point"))))
(setq i 0 n (sslength ...

谢谢您的热心指导
我再好好学习一下
衷心感谢您

Lisphk · 发表于 2019-10-4 16:05:26

ynhh 发表于 2019-10-3 23:05
直接求出各点到曲线的距离，然后比较大小，得出最小值。
这一步想到了
主要是不会排序

其实你也没必要排序
1、一个变量保存距离，求的新的距离比较，如果小，就替换保存的变量，最后就是最小了
2、或者你把所有距离都保存到一个表里面，然后 (apply 'min 表)就得到最小的了

tzfcn · 发表于 2019-10-4 16:36:50

有了方向，剩下的就是努力了，不错。

aisong220 · 发表于 2019-10-8 08:31:40

账号		自动登录	找回密码
密码			立即注册

求点集表中到指定图元最近的点

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评