纵横段绘制,自动生成txt数据文件(defunc:qd()(if(nullvlax-dump-object)(vl-load-com));;加载vlax扩展函数(setqyn"y")(SETQzj0);;里程增量(setqzy"-")(setqcs(getint"\n请输入里程初始值:"))(setqdmax(getint"\n请输入横断宽度"))(setqn1)(setqk0)(setqys_wj1(open"c://ys_横断成果表.txt""a"))(