Ta上传的资源 (0)

(defunc:qd()(setqyn"y")(SETQzj0)(setqcs(getint"\n请输入里程初始值："))(setqn1)(setqys_wj1(open"c://beitaipingz_wj1.txt""a"))(write-line"桩号,x坐标,y坐标,高程"ys_wj1)(w

纵横段绘制，自动生成txt数据文件(defunc:qd()(if(nullvlax-dump-object)(vl-load-com));;加载vlax扩展函数(setqyn"y")(SETQzj0);;里程增量(setqzy"-")(setqcs(getint"\n请输入里程初始值："))(set