自编线元法计算任意点坐标-VBA全路线版

以线元法计算全线逐桩坐标(含边桩),并支持自定义加桩(边中距、偏角也可自定义),用于计算桥台、桩基或坡脚线坐标,希望对大家有用!

程序对任意曲线均适用,包括直线、圆曲线、完整缓和曲线、卵形曲线,因为每一个曲线都是单独输入参数再行计算的!唯一需要注意的是当曲线中心角大于180°时(事实上只有在极端情况下,圆曲线会出现这种情况,即曲线长度超过半圆周长时的特例),应将曲线分割成曲线中心角小于180°的几段来输入参数,再计算!

1、用户自行输入线元参数(在“数据录入”工作表中)

2、再人工添加需要加装的信息,含桩号,边中距、偏角、加桩点位备注信息(在“数据录入”工作表中)

3、如果只需简单的计算个别桩号的坐标及方位角,在“数据录入”工作表中输入快捷计算桩号信息即可!

快捷计算桩号: 4300

中桩坐标X 936709.1339

中桩坐标Y 643703.187

切线方位角α 244°22′51.22″

即输入桩号4300,后面的X、Y、α即自动计算并显示!

4、需要计算全线坐标及方位角,则在“数据录入”工作表中点击“自动加桩”按钮,会在“逐桩坐标表工作表”中生成待计算桩位信息

5、然后再点击“逐桩坐标表”工作表中的“点击本按钮计算”按钮

6、会自动输出“平曲线数据表-输出”及逐桩坐标表

下一步将考虑断链处理。

下载链接:http://pan.baidu.com/share/link?shareid=27864&uk=4194372239

修正版:http://pan.baidu.com/share/link?shareid=62785&uk=4194372239