本帖最后由 abcyt 于 2014-3-12 12:32 编辑
文章摘要：曲线坐标计算程序VBA（平、竖曲线，交点法、线元法坐标正反算，结构物计算，生成5800、9750数据库等）
文章关键词：Excel 曲线坐标 VBA 程序 坐标正反算 竖曲线高程 连续计算
一、程序用途
本坐标计算程序可计算不对称和对称缓和曲线（含圆曲线），且可进行正交、斜交坐标计算且可进行反算偏距和里程、连续坐标计算，结构物坐标计算，极坐标放样、线元法坐标正反算、竖曲线高程连续计算，还可以生成5800和9750数据库等。
本程序表中采用按钮时计算模式，只要点击按钮即可自动计算出数据。
程序主界面：
曲线要素输入区域：
直线、曲线及转角表：
坐标正算计算区域：
坐标反算计算区域：
结构物坐标计算表：
线元法要素：
线元法正算：
线元法反算：
极坐标放样：
竖曲线要素表：
竖曲线高程表：
CASIO fx-5800P CYT综合曲线坐标正反算V2.0（数据库）：
CASIO 9750GII CYT数据库：
二、坐标计算程序原理：
1、主程序分为：第一直线、第一缓和曲线、圆曲线、第二缓和曲线、第二直线。
2、直线直接通过坐标增量计算，缓和曲线圆曲线通过交点法原理计算。
3、由坐标计算公式转换为VBA函数进行自动判断。
更新记录：
修正：
a、修正隧道超欠挖类型切换时出现438错误。
b、修正了竖曲线半径输入0时生成要素出现错误。
c、修正了附合导线闭合差。
d、修正了信息设置有效性。
新增：
a、 交点法：1、新增自动计算交点桩号，在“自动生成坐标”的桩号中加入了曲线五大桩。2、新增导出CAD脚本SCR文件和添加左右边桩画线按钮。3、直曲表中新增线元法一览表。
b、 线元法：1、在线元法要素表中新增自动计算坐标和方位角。2、新增导出CAD脚本SCR文件和添加左右边桩画线按钮。
c、 新增直线坐标正反算。
d、 测量工具箱：新增任意曲线切线方位角计算。
e、 竖曲线高程新增路面结构层计算。
特别说明
本程序运行环境为Microsoft Office Excel 2003以上版本，运行时要把安全级别设置为“低”或提示启用宏，否则点击程序按钮时会没有任何反映，设置方法如下：
Office Excel 2003版：点击顶部【工具】>>>【宏】>>>【安全性】>>>【安全级】>>>【低】>>>【确定】>>>【重新打开文件即可运行】。
Office Excel 2007版：点击顶部【Office按钮】>>>【Excel选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
Office Excel 2010版：点击顶部【文件】>>>【选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
程序下载地址：
申明：内容来自用户上传，著作权归原作者所有，如涉及侵权问题，请点击此处联系，我们将及时处理！
全部回复（68 ）
只看楼主 我来说两句-
wx_1648115868551
沙发
2022-03-24 18:10:24
赞同0
-
wx_1648115868551
板凳
2022-03-24 17:58:24
赞同0
加载更多密码能分享一下吗，大佬
回复 举报
能下吗
回复 举报