横断面图绘制.docVIP

一、横断面图绘制 1．已知数据见表11-3。 横断面数据 表11-3 桩号 （m） 中桩地面标高（m） 高差平距 （m） 中桩设计标高（m） 路拱横坡 （％） 路基边坡 左侧 右侧 路面 路肩 路堤 路基 相邻 平距 高差 相邻 平距 高差 K10＋100 97.500 -4.47 -4.21 .39 .05 3.39 2.79 5.05 -0.43 -0.11 -1.19 98.5 2 3 1:1.5 1:1 K10＋120 98.000 -4.29 -5.43 -1.20 -0.19 10.20 -2.85 98.5 2 3 1:1.5 1:1 K10＋140 99.500 -13.62 -3.09 14.33 3.25 98.5 2 3 1：1.5 1:1 2．VB程序编制和数据文件 （1）VB程序框图（见图11-12） 图11－12 绘制横断面的流程图 2）程序源代码 …… Close Dim I, j, tjwjh As Integer tzwjh = 99 Open 目录名 + 横断面设计图.scr For Output As #tzwjh Open 目录名 + hd-dmx.txt For Input As #89 Open 目录名 + hd-sjx.txt For Input As #90 读入地面线数据 Input #89, NuMdm读入断面个数 ReDim Ldmx(NuMdm, 20), Ldmy(NuMdm, 20), Rdmx(NuMdm, 20), Rdmy(NuMdm, 20), zhanghao(NuMdm), dmg(NuMdm), Lnum(NuMdm), Rnum(NuMdm) As Single ReDim lSJX(NuMdm, 20), LSJy(NuMdm, 20), RSJx(NuMdm, 20), RSJy(NuMdm, 20), SJG(NuMdm), Lsjnum(NuMdm), Rsjnum(NuMdm) As Single For I = 1 To NuMdm Input #89, zhanghao(I), dmg(I) 读入桩号和地面高 Input #89, Lnum(I) 读入左侧的特征点个数 For j = 1 To Lnum(I) Input #89, Ldmx(I, j), Ldmy(I, j) 读入各点平距和高差 Next j Input #89, Rnum(I) For j = 1 To Rnum(I) Input #89, Rdmx(I, j), Rdmy(I, j) Next j Input #90, zhanghao(I), SJG(I) 读入桩号和中桩设计高 Input #90, Lsjnum(I) 左侧路基的特征点个数 For j = 1 To Lsjnum(I) Input #90, lSJX(I, j), LSJy(I, j) 相邻各特征点连线的平距和坡度 lSJX(I, j) = lSJX(I, j) LSJy(I, j) = -lSJX(I, j) * LSJy(I, j) 计算相邻特征点的高差 Next j Input #90, Rsjnum(I) For j = 1 To Rsjnum(I) Input #90, RSJx(I, j), RSJy(I, j) RSJx(I, j) = RSJx(I, j) RSJy(I, j) = RSJx(I, j) * RSJy(I, j) Next j Next I 绘制横断地面线 zzwz = 0 中桩的横向位置 For I = 1 To NuMdm Call plinestart(tzwjh, center, zzwz, (I - 1) * 20 + dmg(I), 0, 0.02) Call plinexdmid(tzwjh, zzwz, 5) Call plineend(tzwjh) Call plinestart(tzwjh, con, zzwz, (I - 1) * 20 + dmg(I), 0.05, 1) For j = 1 To Lnum(I) Call plinexdmid(tzwjh, Ldmx(I, j), Ldmy(I, j)) Next j Call plineend(tzwjh)