ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 28159|回复: 42

[原创] 纯Excel公式开发的施工测量数据计算表V1.4

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2012-1-5 14:02 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 lishucheng96 于 2012-1-5 14:15 编辑

2011224204916.part001.rar (285.16 KB, 下载次数: 2189)
2011224204916.part002.rar (285.16 KB, 下载次数: 1846)
2011224204916.part003.rar (285.16 KB, 下载次数: 1379)
2011224204916.part004.rar (285.16 KB, 下载次数: 1421)
2011224204916.part005.rar (285.16 KB, 下载次数: 1502)
2011224204916.part006.rar (285.16 KB, 下载次数: 1883)
2011224204916.part007.rar (285.16 KB, 下载次数: 1349)
2011224204916.part008.rar (285.16 KB, 下载次数: 1334)
2011224204916.part009.rar (285.16 KB, 下载次数: 1366)
2011224204916.part010.rar (285.16 KB, 下载次数: 1402)
2011224204916.part011.rar (27.83 KB, 下载次数: 1233)
            在公路工程线路测量中,如何把设计线型通过坐标计算用测量仪器测设到实地为公路工程测量的主要工作,而根据设计文件给出的各项参数,精准地计算出需要的坐标才是最关键的工作。本表是作者根据多年的工程测量工作经验以及对Excel函数的运用而编的,已于2011年2月20日首次在“测量空间”网站上发表,近一年以来,已有4000余人下载使用,反响不错。因本人也是一名ExcelVBA和AutoCAD VBA编程爱好者。借Excel函数与公式版块之便,将此表贴到本站,请大家批评指正。
主要功能:
     可以根据输入的起点桩号、各交点坐标、各交点的圆曲线半径、缓和曲线长(支持不对称缓和曲线)直接生成标准的《直线曲线及转角表》和积木法平曲线参数表。
     可以计算非对称基本型(直-缓1-圆-缓2)以及下列由其变化而成共6种线型的任意交角中边桩坐标。
      1、单一完整缓和曲线;分缓1和缓2两种情况,此曲线为前直线、圆曲线和另一缓和曲线长度均为0的特殊曲线。
      2、单一圆曲线,即前直线和缓和曲线长度均为零的曲线。
      3、卵型曲线,即圆曲线长为0的曲线(前直线有无不限,此类曲线在程序中要加入防止R被作除数时出错)
      4、缓1+圆曲线型曲线,即缓2长度为零的曲线(前直线长度不限)
      5、圆曲线+缓2型曲线,即前直线和缓1长度为零的曲线。
      6、单一直线,即所有缓和曲线和圆曲线的长度均为零的曲线(常用于路线终点直线计算,此类曲线需防止已知量为零并被当作被除数时出错)
     可以根据输入的桩号自动生成用于AutoCAD脚本绘图的代码,拷贝后保存为*.scr文件,在任意版本AutoCAD中加载展绘中线和桩号。
     可以用近似公式计算竖曲线高程。
     对于以变量赋值形式作为数据库的CASIOfx-5800P计算器程序,可自动生成交点法、积木法、竖曲线数据库。。
使用说明:
       此表用纯Excel公式编成,理论上可计算多达30000个交点,但考虑到实际情况,只拉出了200个交点的表格,所有的已知数据在此表中输入,结果在《直曲表》中查看。此表格经多条100公里以上的线路计算,误差均小于1mm,可用于设计数据复核。        
     因为很多线路的桩号,缓和曲线参数,主点桩号等数值均只取2位小数,而交点坐标一般会给出小数点后三位,半径和缓和曲线长一般均为整数,用此表计算可以帮助有程序的朋友在建立数据库时提高计算精度。        
     又有朋友手上只有积木法的程序,对于交点法不想另编,本表又提供了一种从交点法表格直接转为积木法的功能,已知数据还是没有变,根据交点个数,拉了800行。        
     新加入了任意交角中边桩坐标计算表,拉了5000行,想必已完全够用了。        
     本表格只是本人为了验证Excel函数能否计算平曲线坐标而编写,纯属无聊,如果能给不会编程的朋友一点借鉴则最好,如果不能请一笑而过,目的只是激发大家学好Excel函数的兴趣。当然,从编程的角度来讲,ExcelVBA要强大得多,我自己也有一套完整的用ExcelVBA写的测量计算系统,建议对Excel函数已经掌握的朋友学习一下ExcelVBA。        
      有朋友可能会发现,也有人用Excel函数编过与本表功能类似的东东,但是如果你细心地看就会发现,本表中除角度(转角、方位角)外没有用任何单元格作为中间值存储,所有结果基本上都由庞大的公式一步到位地计算,这样做的目的一是使表格清澈,不拖泥带水,二是便于拖拽而不致出错。在坐标计算表中,本想一步集成所有公式,但是可能已经达到Ms Excel所设定的最大公式长度,而作罢。        
       虽然所有的计算结果均用本人所开发的ExcelVBA版测量计算系统校核无误,但不排除仍有错误发生的可能,在此本人声明,如无相关Excel函数使用知识或对此工具持怀疑态度者慎用,本人不对使用本表计算而产生的任何后果负责。        
如需取消工作表保护的密码,请直接与作者联系:QQ78577834
注意:
      1.在已知数据输入表格中,最后一个交点(终点)的半径和缓和曲线长应为空值,不要在本表中进行插入行或列操作,不会将本表中A:E列拖动,总而言之,不要改变《直曲表》中引用的本表的单元格的地址,否则会引起计算错误。
      2.在坐标计算表中,约定:桩号可以任意输入,偏距按左负右正中桩为零的规则输入,交角为面向路线前进方向右侧边桩与路线切线方位角所夹的角度,正交为90,也可以输入为0~180任意值。
更新说明:
      1.0版:可根据已知数据自动生成直曲表
      1.1版:修正了直曲表中计算偏角部分地方有误的错误,即偏角<-180或偏角>180时的计算错误。增加了表《积木法参数》,将直曲表里面的主点转化为积木法参数,需要注意的是,对于单圆曲线,缓和曲线长度为零,但是为了顾及格式和计算方便,《积木法参数》中存在空行的地方不要作参数输入。
      1.2版:应lyq003的要求,加入了任意交角中边桩坐标计算,表中已有的坐标是考虑平曲线主点的直线上是20米,曲线上10米间距的逐桩坐标表。使用时直接删除桩号再输入新的桩号和偏距以及右交角即可。
      1.3版:增加了《CAD脚本绘图》,实现了自动生成AutoCAD脚本命令,用于展绘中线。
      1.4版:增加了在《数值输入表》中增加了竖曲线数据输入列,增加了《竖曲表》,《高程计算》,在《坐标计算》中加入了高程一栏,增加了交点法、积木法和竖曲线数据库生成表格。
     密码是AABBCC123456

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-1-5 14:11 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
感觉不错,怎么没附件呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-5 14:14 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-1-5 14:30 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这辛苦楼主了!

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-1-6 21:49 | 显示全部楼层
Moxiu 发表于 2012-1-5 14:30
这辛苦楼主了!

谢谢鼓励。

TA的精华主题

TA的得分主题

发表于 2012-1-12 09:45 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-1-30 12:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请问我下载下来打不开呢?

TA的精华主题

TA的得分主题

发表于 2012-1-30 14:43 | 显示全部楼层
楼主真是人才啊,谢谢分享。。。。

TA的精华主题

TA的得分主题

发表于 2012-2-8 09:39 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
这个东西下载下来怎么解压啊

TA的精华主题

TA的得分主题

发表于 2012-3-23 12:39 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-16 20:30 , Processed in 0.043269 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表