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

《excel快速计算任何难度的道路中线、边线坐标》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、EXCEL快速计算任何难度的道路中线、边线坐标主程序PubliciAsIntegerPublicpiAsDoubleSubTP()DimiiAsIntegerDimk(1000)AsDoubleDimxzq,yzq,kq,xzh,yzh,kzh,xjd,yjd,kjd,khy,kyhAsDouble'直线区域pi=3.14159265358979xzq=71862.642yzq=63474.651kq=0'因为直线连接终点为ZH点，与圆曲线起点为同一点，所以在直线区域不定义ZH点参数'直线区域'曲线区域xzh

2、=71858.3267yzh=63375.2684kzh=99.4763xhz=71909.3687yhz=63283.8076'曲线区域定义内容有：ZH（坐标、里程）、HZ（坐标、里程）、JD（坐标、里程）khz=212.3392'R（半径）、LS（缓和曲线长度）、HY（里程）、YH（里程）xjd=71855.658yjd=63313.806kjd=160.9966ls=30r=75khy=129.4763kyh=182.3385'曲线区域i=2'从第二格开始读取数据所以定义I=2ii=1'桩号从第一个开始

3、启用，所以定义II=2Dok(ii)=Workbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i,1)'定义桩号等于读取数据IfWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i,1)=""ThenExitDo'当没有数据读取时退出循环Ifk(ii)

4、hen'若计算点在ZH点前，则进入直线程序Callzx(xzq,yzq,kq,xzh,yzh,kzh,k(ii))ElseIfkzh

5、d,yjd,kjd,ls,r,k(ii))ElseIfkyh

6、ble,ByValkqAsDouble,ByValxzhAsDouble,ByValyzhAsDouble,ByValkzhAsDouble,ParamArrayk())fw=fwj(xzh,xzq,yzh,yzq)'首先调入方位角程序计算直线方位角x=xzq+(k(ii)-kq)*Cos(fw)'然后根据桩号和长度计算出坐标值y=yzq+(k(ii)-kq)*Sin(fw)zdfm=dfm(fw)'将弧度形式的前进方位角转换度分秒形式'输出坐标值以弧度和度分秒形式的前进方位角Workbooks("单交点平曲

7、线.xls").Worksheets("sheet1").Cells(i,2)=xWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i,3)=yWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i,4)=fwWorkbooks("单交点平曲线.xls").Worksheets("sheet1").Cells(i,5)=zdfmEndSub圆曲线模块Subyqx(ByValxzhAsDouble,ByValy

8、zhAsDouble,ByValkzhAsDouble,ByValxhzAsDouble,ByValyhzAsDouble,ByValkhzAsDouble,ByValxjdAsDouble,ByValyjdAsDouble,ByValkjdAsDouble,ByVallsAsDouble,ByValrAsDouble,ParamArrayk())l=Abs(k(ii)-kzh)'计算ZH点（因为以