(defunc:qd()(setqyn"y")(SETQzj0)(setqcs(getint"\n请输入里程初始值："))(setqn1)(setqys_wj1(open"c://beitaipingz_wj1.txt""a"))(write-line"桩号,x坐标,y坐标,高程"ys_wj1)(while(or(=yn"y")(=yn""))(setqcoord(getpoint"\n请输入您要插入的坐标:"))