欢迎光临测量协同网!https://www.fffsky.com/blog
Loading
0

[原创]Excel曲线坐标计算程序VBA 4.8

文章:用Office Excel VBA编制的“曲线坐标计算程序VBA 4.8”

关键词:Excel 曲线坐标 VBA 程序 坐标正反算 竖曲线 连续计算 附合导线 无定向导线 水准平差 曲线超高加宽 隧道超欠挖

 

一、程序用途:

本坐标计算程序可计算不对称和对称缓和曲线(含圆曲线)且可进行正交、斜交坐标计算且可进行反算偏距和里程、连续坐标计算等,还可以计算结构物坐标计算,极坐标放样、线元法坐标正反算、竖曲线高程连续计算、附合导线、无定向导线平差,水准平差,曲线超高加宽、隧道超欠挖,还可以生成5800和9750数据库等。

 

程序主界面:

程序相关界面:

二、程序原理:

1、程序主要采用office excel自带的编程工具Visual Basic for Applications进行编写。

2、程序主体采用的公式均为测量学(书本上的公式),准确高效。

3、程序框架构思纯属个人思维,界面美观可直接打印,单元格采用按钮化设计,操作简便快捷。

 

三、更新记录:

修改:

a、修改了竖曲线当计算桩号等于ZYYZ时高程显示0的错误。

b、修改了坐标反算时计算方位角大于270则出现误差现象。

c、修改了其他细节。

新增:

a、新增了缓和段曲线超高、加宽计算程序(支持线性渐变和三次抛物线选择计算方式)。

b、在交点法坐标正算新增了高程栏(坐标和高程在同一界面显示)。

C、新增了隧道超欠挖数据库生成,含:一圆心、二圆心、三圆心等(适用于9750以上计算程序)。

d、新增了控制点坐标表,结构物计算和极坐标放样控制点选择。

e、新增了程序界面单位及页脚设置。

 

本表需启用"宏"即可运行,否则禁止宏运行时点击按钮会没有反映,Office Excel 启用"宏"方法如下:

Office Excel 2003版:工具>>>宏>>>安全性>>>选择较低的安全级别>>>重新打开文件即可运行。
Office Excel 2007版:Office按钮>>>Excel选项>>>信任中心>>>信任中心设置>>>宏设置>>>启用所有宏。

******************************************************

程序下载地址:[Excel]曲线坐标计算程序VBA 4.8

【本程序已更新,推荐下载新版本程序】更新下载地址:进入下载

******************************************************

相关文章:

1、[[Excel]曲线坐标计算程序VBA 2.3]

2、[[Excel]曲线任意点切线方位角计算表VBA]

3、[[Excel]竖曲线高程计算程序VBA 1.0]

4、[[Excel]任意曲线坐标计算程序(单点)Beta1]

5、[[excel]符合导线严密平差]

6、[[Excel]坐标计算多边形面积]

 

©版权声明:文章源于作者原创,如需转载请注明文章出处。


测量协同网诚邀您投稿,文章主题与工程测量、大地测量等相关即可,可以是理论介绍,也可以是实务分析,还可以是工作总结。➮点击投稿

行善积德、广修福田行善积德、广修福田

如果文章对你有帮助,欢迎点击上方按钮行善积德

最后编辑于:2018/10/28作者: 测量测绘

暂无评论

发表评论

  1. sam sam说道:
    7#

    正研究把5800转成9860程序呢

  2. caoguojun caoguojun说道:
    6#

    学习一下

  3. fffsky fffsky说道:
    5#

    下载新版“测量坐标计算程序V5”:https://www.fffsky.com/blog/blog/post/VBA_Survey_V5.html

  4. 秋z日 秋z日说道:
    4#

    您好老师,你的这个程序怎么下载啊

  5. chenfuxinye chenfuxinye说道:
    3#

    我现在出现设计图纸有缓和曲线参数一个或两个时这个问题怎么解决?谢谢老师指点.

  6. 飞儿 飞儿说道:
    2#

    学习一下,本人主要公路测量,自从看了陈哥的excle编制的测量软件,很实用

  7. chechuanzheng chechuanzheng说道:
    1#

    老师你好,我非常喜欢你的程序,我有点不成熟建议。就是计算的全线坐标比较多时,计算结果的单元格没有自动生成界线,还有就是比如生成20m间距坐标时,希望可以把各要素点的坐标也生成。

扫一扫关注公众号

扫一扫关注公众号