说明：VBA程序运用线元法计算（线元法不懂可以上网查询，就是不同线条利用通用公式分段计算），本“生成桩号”，然后自动进入“逐桩坐标”工作簿，点击“坐标计算”，生成中桩坐标，方位角等。也入公式计算，X坐标：ZBJS（桩号，1），Y坐标PZBJZ桩号，2），方位角：（桩号，3），CAD坐标：注意：起点半径，终点半径。一定要核算是不是不完整缓和曲线，不完整缓和曲线半径得计算后带不完整缓和曲线，如果不计算输入“0”，就不对了。线元要素输入
编号BPHYYHHYYHHYYHHY桩号起点K0000000K0040463K0080872K0123654K0256654K0311579K0354213K0399893K0551141终点K0040463K0080872K0123654K0256654K0311579K0354213K0399893K0551141起点坐标X315481716315455324315431098315407833315335078315310211315312671315336748315445878Y973122629728159697249266972133689710204597053454970114649697291796868755起点切线方位角度分秒
EP
228230235238235257289309323
957216334381326
271637812848439147518148
f利用通用公式分段计算），本页要素全部输入，点击生成中桩坐标，方位角等。也可以在“逐桩坐标页”输角：（桩号，3），CAD坐标：（桩号，4）。完整缓和曲线半径得计算后带入。本线路第一段就是
半径直线为0起点终点1981540525000525000525000525000300000030000003000000300000075000750007500075000610000610000610000
备注
fr