（跪求）大神帮写个LISP程序，在线等。。。

wjf123777

给写个lisp程序,要求:鼠标点击cad空间两点,然后在excel中输出这两点的距离值,而且,连续点击n对两点,在excel中横排相邻单元格输出这n对点的各个距离,直至esc终止(或其他方法终止)程序;当再次启动lisp程序时,输出的距离值紧接着在同一excel表中的相邻下一排列出.谢谢高手相助.
也可以用其他语言编写，像VBA等……（CAD中有个'查询'功能即：工具——查询——距离选项，可以查询空间任意两点的距离;或者di命令也可以查询空间任意两点间的距离,我就想让这个距离值写到excel里面.供编程高手参考，万分感谢。）

lucas_3333

http://bbs.mjtd.com/thread-100603-1-1.html