由图面生成,另一种是根据里程文件来生成,另外,本小节还专门介绍道路纵横断面图的绘制。
1.由图面生成
有根据坐标文件和根据图上高程点两种方法,现以根据坐标文件为例:
先用复合线生成断面线,点取“工程应用”下的“绘断面图”下的“根据坐标文件”功能。
提示:选择断面线 用鼠标点取上步所绘断面线。屏幕上d出“输入高程点数据文件名”的对话框,来选择高程点数据文件。
如果选“根据图上高程点”此步则为在图上选取高程点。
提示: 请输入采样点间距(米):<20> 输入采样点的间距,系统的默认值为20米。采样点的间距的含义是复合线上两顶点之间若大于此间距,则每隔此间距内插一个点。
提示:输入起始里程<00 系统默认起始里程为0。
>横向比例为1:<500> 输入横向比例,系统的默认值为1:500。
纵向比例为1:<100>输入纵向比例,系统的默认值为1:100。
请输入隔多少里程绘一个标尺(米)<直接回车只在两侧绘标尺>
在屏幕上则出现所选断面线的断面图。
命令行提示:是否绘制平面图?(1)否(2)是<1> 上图上绘出平面图的结果。
2 根据里程文件生成
根据里程文件绘制断面图,里程文件格式见《参考手册》第五章。
一个里程文件可包含多个断面的信息,此时绘断面图就可一次绘出多个断面。
里程文件的一个断面信息内允许有该断面不同时期的断面数据,这样绘制这个断面时就可以同时绘出实际断面线和设计断面线。
这种计算你还是下载一个程序比较好,比如道路之星、轻松测量之类的
自己在excel编辑的话,起码你得精通线路坐标的计算模型,还要精通excel的函数应用以及宏程序才行
否则,即使编出计算公式以及程序,应用起来也不是很方便
Const C1 = 10 '连续数调整值
Const C2 = 15 '非连续数调整值
Const S = 10 '设定连续范围
Sub process()
Dim a, i!, j!, d!, n
Range("A1")Sort key1:=Range("A1"), order1:=xlAscending
a = WorksheetFunctionTranspose(Range("A1:A" & [A65536]End(xlUp)Row))
For i = 1 To UBound(a)
d = a(i) + S
For j = i To UBound(a)
If j + 1 > UBound(a) Then Exit For
If a(j + 1) > d Then Exit For
Next
If i = j Then '非连续数
a(i) = a(i) - C2
Else '连续数
n = a(i) - C1
For k = i To j
a(k) = n
Next
i = j
End If
Next
Range("B1")Resize(UBound(a)) = WorksheetFunctionTranspose(a)
End Sub
效果如图,可下载附件参考
以上就是关于怎样使用EXCEL绘制路基断面图。先谢了,QQ362343630.全部的内容,包括:怎样使用EXCEL绘制路基断面图。先谢了,QQ362343630.、如何在excel中编辑公路坐标交点法程序、怎样利用Excel进行VB编程等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)