EXCEL快速计算任何难度的道路中线、边线坐标.docVIP

EXCEL快速计算任何难度的道路中线、边线坐标 主程序 Public i As Integer Public pi As Double Sub TP() Dim ii As Integer Dim k(1000) As Double Dim xzq, yzq, kq, xzh, yzh, kzh, xjd, yjd, kjd, khy, kyh As Double 直线区域 pi = 3.14159265358979 xzq = 71862.642 yzq = 63474.651 kq = 0 因为直线连接终点为ZH点，与圆曲线起点为同一点，所以在直线区域不定义ZH点参数 直线区域 曲线区域 xzh = 71858.3267 yzh = 63375.2684 kzh = 99.4763 xhz = 71909.3687 yhz = 63283.8076 曲线区域定义内容有：ZH（坐标、里程）、HZ（坐标、里程）、JD（坐标、里程） khz = 212.3392 R（半径）、LS（缓和曲线长度）、HY（里程）、YH（里程） xjd = 71855.658 yjd = 63313.806 kjd = 160.9966 ls = 30 r = 75 khy = 129.4763 kyh = 182.3385 曲线区域 i = 2 从第二格开始读取数据所以定义I=2 ii = 1 桩号从第一个开始启用，所以定义II=2 Do k(ii) = Workbooks(单交点平曲线.xls).Worksheets(sheet1).Cells(i, 1) 定义桩号等于读取数据 If Workbooks(单交点平曲线.xls).Worksheets(sheet1).Cells(i, 1) = Then Exit Do 当没有数据读取时退出循环 If k(ii) kq Then 若计算点超过计算起点给予提示并退出程序 MsgBox (猪啊！！你的输入的桩号居然超过计算起点桩号) Exit Sub ElseIf k(ii) = kzh Then 若计算点在ZH点前，则进入直线程序 Call zx(xzq, yzq, kq, xzh, yzh, kzh, k(ii)) ElseIf kzh k(ii) And k(ii) = khy Then 若计算点在ZH和HY之间则调入前段缓和曲线程序 Call qhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii)) ElseIf khy k(ii) And k(ii) = kyh Then 若计算点在HY和YH之间则调入圆曲线程序 Call yqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii)) ElseIf kyh k(ii) And k(ii) = khz Then 若计算点在YH和HZ之间则调入后段缓和曲线程序 Call hhhqx(xzh, yzh, kzh, xhz, yhz, khz, xjd, yjd, kjd, ls, r, k(ii)) Else MsgBox (笨啊！！数据已超出计算范围了) 若出现超出范围的桩号则给与提示并退出程序 Exit Sub End If i = i + 1 ii = ii + 1 Loop End Sub 直线模块 Sub zx(ByVal xzq As Double, ByVal yzq As Double, ByVal kq As Double, ByVal xzh As Double, ByVal yzh As Double, ByVal kzh As Double, ParamArray k()) fw = fwj(xzh, xzq, yzh, yzq) 首先调入方位角程序计算直线方位角 x = xzq + (k(ii) - kq) * Cos(fw) 然后根据桩号和长度计算出坐标值 y = yzq + (k(ii) - kq) * Sin(fw) zdfm = dfm(fw) 将弧度形式的前进方位角转换度分秒形式 输出坐标值以弧度和度分秒形式的前进方位角 Workbooks(单交点平曲线.xls).Worksheets(sheet1).Cells(i, 2) = x Workbooks(单交点平曲线.xls).Worksheets(sheet1).Cells(i, 3) = y Workbooks(单交点平曲线.xls).Worksheets(sheet1).Cells(i, 4) =