|
[广告] 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
查看全部评分
-
|