发布时间 : 星期六 文章利用高程点生成断面数据VBA程序 - 图文更新完毕开始阅读
看你要计算到什么超高了
(来自手机QQ: http://mobile.qq.com ) 测绘人生(353789722) 17:04:43 方格是20*20
广元 测绘 -王龙(184517465) 17:04:48 这个看怎么要求了
管理员-扬帆(214979525) 17:04:50 想要分层也行
广元 测绘 -王龙(184517465) 17:05:08 有个设计标高嘛 CASS上面很简单的
管理员-扬帆(214979525) 17:05:25
方格多大是看场地平不平，跟精度要求 测绘人生(353789722) 17:05:47 对
广元 测绘 -王龙(184517465) 17:05:53 其实方格个三角相差不是很大 测绘人生(353789722) 17:07:10 我感觉三角网好算 选择范围就行了
CASS-SHAN(83837433) 17:09:03
其实一样的这个算法我们还是看甲方也就是看给钱的老板的要求了 哈哈
同一组数据算同一个项目两个方法算出来差距不大 广元 测绘 -王龙(184517465) 17:09:59 嗯
海南-沈队(34675073) 17:11:23
你们遇到过一个台阶场地平整吗？就一个场地分好几个设计标高 378769427(378769427) 17:11:36 没有
淮北方圆测绘有限公司(439717189) 17:11:42 方格网与三角网是有区别的 海南-沈队(34675073) 17:12:01 区别不是很大吧
CASS-SHAN(83837433) 17:12:26
这个我们上论坛上发表一个个人观点啊， 管理员-扬帆(214979525) 17:12:48
你就按台阶来分区域计算就行，还是方格网 淮北方圆测绘有限公司(439717189) 17:12:58
如果高差起伏变化大的场地用三角网是比较精确的。一般平坦场地用方格网 广元 测绘 -王龙(184517465) 17:14:06 呵呵
海南-沈队(34675073) 17:14:09
是按台阶分呀，计算就不如一个平地场地计算爽呀
管理员-扬帆(214979525) 17:14:13 可以来辩论贴
海南-沈队(34675073) 17:14:51 三角网精度比较高
广元 测绘 -王龙(184517465) 17:15:08 这个都有各自的优点
淮北方圆测绘有限公司(439717189) 17:15:12 这个不是绝对的 广元 的话我赞成
海南-沈队(34675073) 17:15:37 看场地来决定
淮北方圆测绘有限公司(439717189) 17:15:43 具体情况具体对待是正确的
广元 测绘 -王龙(184517465) 17:15:52
方格对比较平的有优势 三角呢多高低较大的优势
一、程序功能
本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方
坡脚线放样。程序坐标计算适应于任何线型.
二、源程序
1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；
②反算桩号及距中距离)
程序名:1ZD-XY Lb1 0:Norm 2
F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)
Z[1]=90（与路线右边夹角）
Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂ Ｘ=＂：Locate 6,4,Ｘ◢
＂ Ｙ＝＂：Locate 6,4,Ｙ◢
Ｐrog＂3JS‖:Goto 0:
Lb1 2:Fix 3:＂ ＫＭ＝＂：Locate 6,4,Ｚ◢
＂ Ｄ＝＂：Locate 6,4,Ｄ◢
Ｇoto 0
２．主程序２：高程序横坡程序(设计任意点高程及横坡)
程序名：2GC
LbI 0:Norm 2 ―KM‖?Z:?D:
Prog‖H‖:Fix 3:‖ H=‖:Locate 6,4,H◢
― I=‖: Locate 6,4,I◢
Goto 0
3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)
程序名：3JS X：Y：
1268．123→K(置仪点X坐标)
2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）
Y-L→E：X-K→F：Pol(F,E):IF J<0:Then
J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:‖ FWJ=‖: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来
直接显示)
Fix 3:‖ S=‖:Locate 6,4,I◢
4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中
输入置仪点坐标后计算放样点至置仪点方位角及距离)
程序名：4JH-XY
LbI 0:Norm 2
90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变
量) 1→F:Prog‖THB‖:?L:
Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂ Ｘ=＂：Locate 6,4,Ｘ
◢
＂ Ｙ＝＂：Locate 6,4,Ｙ◢
Ｐrog＂3JS‖:Goto 0:
5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、
地面标高计算出偏移距离、桩号、距中距离、填挖高度）
程序名：5FBX
LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog
―THB‖:Z:D:‖M0‖?M:M→Z[4]:D→Z[3]:Prog‖6GD‖:L→Z[6]:If D<0:Then
0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd
LbI H:Prog‖H‖:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto
W:Else Z[5] →G:Goto T:
LbI W:Prog ―W0‖:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then
Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:
LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:
LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If G>Z[17]:Then
(N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else
(N+G×Z[15])→S:Goto z:
LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:‖ L0=‖:L Locate 6,4,T◢
＂ ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂ Ｄ＝＂：Locate 6,4,Ｄ◢ ― TW=‖: Locate 6,4,Z[5]◢ Goto 0
6．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基
宽度无变化，则把此程序直接输入半幅宽度值至L)
程序名：6GD
Prog ―G0‖Z-C→E:(B-A)×E/S+A→L:L: 7．坐标计算次程序（ＴＨＢ）
程序名：THB
18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂