Visual LISP 提取多段线坐标的基本代码,可参考后改进