lisp能够实现这个功能吗？

transman

我的工作和桩点、坐标有着血浓于水的关系（当然，我的名字和transcad关系更密切啦）。


在论坛高手们，帮助下，我已经实现了桩号，坐标一一对应地输出到txt功能。为我后期地校核提供了很大的便利。我将在以后一段时间内学习将 txt中的桩号坐标展到dwg图上去。


现在有一个新问题请教。如果我不想点取一个桩号，一个坐标的操作方式输出数据（鼠标需要点两次）。而是通过点取一个桩号，自动搜索与其最接近的十字丝（交点），然后自动输出（鼠标点一次）。


我能够想到的就是首先实现十字丝交点坐标的整体输出，再点取桩号时，返回桩号的坐标（dtext的坐标）然后通过对比坐标之间的距离大小，选取最小值。


不知道有没有更好的方法。