N年前开发的平曲线交点法任意交角中边桩计算函数和坐标正反算函数【修正版】.docxVIP

N年前开发的平曲线交点法任意交角中边桩计算函数和坐标正反算函数【修正版】 软件类型： 免费原创? 运行环境： Excel? 软件大小： 54.5 KB 下载次数： 288 发布日期： 2010年7月1日 13时9分 ? 隐藏日期： 2011年7月1日 软件说明： [color=Green][B]主要功能：Excel VBA开发的平曲线任意交角中边桩计算函数，方位角计算，平距计算、桩号格式转换如何安装：打开并启用宏就可以运行，也可以存为加载宏引用注意事项：多年前开发的，没啥技术含量，也不记得是否正确了，给新手们应急用一下，也了解一下Excel自定义函数有什么强大的功能。联系方法：直接回复帖子吧源代码： VB源码彩色显示 注：在[code]...[/code]内就以下面格式显示文字，双击源码拷贝到剪切板 Public Function Azimuth(Xs As Double, Ys As Double, Xe As Double, Ye As Double) As Double?? dd = WorksheetFunction.Atan2(Xe - Xs, Ye - Ys)?? Azimuth = WorksheetFunction.Degrees(WorksheetFunction.Atan2(Xe - Xs, Ye - Ys))?? ?? If Azimuth 0 Then???? Azimuth = 360 + Azimuth?? End If?? End FunctionPublic Function Degree2String(角度数值 As Double) As StringDim d As Double, m As Double, s As String?? d = Int(角度数值)?? m = Int((角度数值 - d) * 60)?? s = Round((角度数值 - d - m / 60) * 3600, 2) ″?? Degree2String = d ° m ′ sEnd FunctionPublic Function Distance(Xs As Double, Ys As Double, Xe As Double, Ye As Double) As Double????Distance = Sqr(WorksheetFunction.SumSq(Xs - Xe, Ys - Ye))End FunctionPublic Function HorizontalAlignment(交点桩号 As Double, 前直线方位角 As Double, 转角 As Double, 交点X坐标 As Double, 交点Y坐标 As Double, 第1缓曲长 As Double, 第2缓曲长 As Double, 半径 As Double, 桩号 As Double, 偏距 As Double, 右交角 As Double, 参数1 As String) As Double????PI = 3.14159265358979????b = WorksheetFunction.Radians(转角)????A = WorksheetFunction.Radians(前直线方位角)??????If 半径 = 0 Then?????? X = 交点X坐标 + (桩号 - 交点桩号) * Cos(A)?????? Y = 交点Y坐标 + (桩号 - 交点桩号) * Sin(A)?????? s = A + 右交角??End If??????g = Abs(转角 * PI * 半径) / 180 - (第1缓曲长 + 第1缓曲长) / 2????P1 = 第1缓曲长 * 第1缓曲长 / 24 / 半径 - 第1缓曲长 ^ 4 / 2688 / 半径 ^ 3????Q1 = 第1缓曲长 / 2 - 第1缓曲长 ^ 3 / 240 / 半径 / 半径????p2 = 第2缓曲长 * 第2缓曲长 / 24 / 半径 - 第2缓曲长 ^ 4 / 2688 / 半径 ^ 3????q2 = 第2缓曲长 / 2 - 第2缓曲长 ^ 3 / 240 / 半径 / 半径????t1 = (半径 + p2 - (半径 + P1) * Cos(Abs(b))) / Sin(Abs(b)) + Q1????t2 = (半径 + P1 - (半径 + p2) * Cos(Abs(b))) / Sin(Abs(b)) + q2????zh = 交点桩号 - t1????HY = zh + 第1缓曲长????yh = HY + g