两个点集lst1表、lst2表，查找距离最近lst1点集每个点最近的lst2表中的点，并成表

dyjwyqz5221

dnbcgrass

(setq jgz (mapcar '(lambda(pt)
                          (list pt (car (vl-sort lst2 '(lambda(a b)(< (distance pt a) (distance pt b))))))
                      )
                      lst1
              )
     )

newer

详细给出数据，list1,list2的例子，然后给出结果做对比。如果有具体的应用，你想从图中做什么，请截图说明。

dyjwyqz5221

(setq lst1'((6.455e+006 -3.52665e+006 0.0) (6.455e+006 -3.5281e+006 0.0) (6.4487e+006 -3.52665e+006 0.0) (6.4488e+006 -3.52806e+006 0.0)))
(setq lst2 ' ((6.44816e+006 -3.52685e+006 0.0) (6.44835e+006 -3.52826e+006 0.0) (6.45446e+006 -3.52685e+006 0.0) (6.45446e+006 -3.5283e+006 0.0)))

newer

dyjwyqz5221 发表于 2018-4-27 10:43
(setq lst1'((6.455e+006 -3.52665e+006 0.0) (6.455e+006 -3.5281e+006 0.0) (6.4487e+006 -3.52665e+006  ...

你不能写个一目了然的，用 1,2,3,4 代表的点表啊，你这个一眼看不到那些点是相同的，另外，最后的结果呢？

newer

你把这句“查找距离最近lst1点集每个点最近的lst2表中的点”，重新断句下，该加标点的加标点，该前置的前置

dyjwyqz5221

前提条件：(equal (length lst1)(length lst2))
(setq lst1'((6.4545e+006 -3.52495e+006 0.0) (6.4545e+006 -3.52665e+006 0.0)))
(setq lst2 ' ((6.45446e+006 -3.52499e+006 0.0) (6.45446e+006 -3.52669e+006 0.0)))
距离最近点结果：(((6.4545e+006 -3.52495e+006 0.0)(6.45446e+006 -3.52499e+006 0.0)) ((6.4545e+006 -3.52665e+006 0.0)(6.45446e+006 -3.52669e+006 0.0)))

dyjwyqz5221

就是lst1 表里的点距离lst2最近的点，并形成两两点集

dyjwyqz5221

对不起，新手，表达不清

dyjwyqz5221

自己编出了个，老感觉有重复，求优化
(mapcar
        '(lambda(x)
                (setq a (mapcar
                                  '(lambda(y)
                                        (list (distance x y) (list x y))
                                );;;lambda(y)
                                lst2
                        );;;mapcar
                );;;setq
                (cadr (car (vl-sort a '(lambda (x1 x2)
                                         (< (car x1) (car x2))
                                              );;;lambda
                                );;;vl-sort
                        );;car
                );;;cadr
        );;;lambda(x)
        lst1
);;;mapcar

dyjwyqz5221

dyjwyqz5221

求阴影框与标注文字的一一对应关系，通过斜直线作为中间体

dyjwyqz5221

为了躲避其他标注，标注的文字（GBZ-17、GBZ-18）不一定在什么地方，但是斜直线、直线是一定会有的（单独图层），而且这些斜直线、直线都是pkpm软件自动生成的,不是“*POLYLINE"，是”LINE"，一定与阴影外框（“*POLYLINE"）相交。

dyjwyqz5221

一一对应关系，也就是说，从lst2中的第一个点找到lst1中的最近点后，取出lst2下一个点与lst1中的点再进行比对最近距离时，可以去掉lst1中第一次找到的那个与lst2第一个点最近距离的点，不然就重复了，因为存在一一对应关系，不必要再进行比对，如何去掉lst1中的那个点呢？

marting

dyjwyqz5221 发表于 2018-4-27 12:39
一一对应关系，也就是说，从lst2中的第一个点找到lst1中的最近点后，取出lst2下一个点与lst1中的点再进行比 ...

去掉点，可以用 vl-remove ,功能强点的，可以去开源函数库论坛，找 xd::list:removeE

开源函数库，有N多关于表处理的函数，而且经过效率优化了，你应该先去熟悉下，看看哪些有现成的了，哪些可以组合利用。