曲线坐标计算程序VBA 4.9

合集下载

圆曲线坐标计算程序

Q=（180－O）÷2
G=E＋Rcos（J-BQ）◢
H=F+Rsin（J-BQ）◢
Pol（（E－G），（F－H））：J＜0=＞K=J+360：≠＞K=J△K▲
E、F—ZY点X、Y坐标
C、D—，YZ点X、Y坐标
J—ZY到YZ方位角
K—圆心到ZY 方位角
G、H—圆心点X、Y坐标 B—路线方向 (左+1，右-1)
角度
角度
°
°
53.98575249 53.98575249
ZY至YZ方位角（J)
°′ ″
弧度
53°59′09″
0.942
圆心点至ZY方位角
圆心点坐标
（K）弧度
度
°′ ″
G(X)
H(Y)
4.850 277.8858034 277°53′09.″ 4577641.564 730131.890
圆曲线圆心法坐标计算
R—圆曲线半径
说明:本程序最适用只知道圆曲线ZY点和YZ点的桩号及坐标，还有圆曲线半径，就可计算这段圆
待求点桩号
里程差 W
圆心角弧度
距中桩距离左+,右-
待求点坐标
N(X)
E(Y)
K0+000
0
0.000
5
4577655.355 730032.320
K0+005
0
0.000
-5
4577653.983 730042.226
G、H—圆心点X、Y坐标 M—待测点里程桩号
K—圆心点到ZY方位角
S—待测点左右桩距离(左+，右-)
V—圆心点到待测点方位角 R—圆曲线半径
B—路线方向 (左+1，右-1)

电子表格Excel VBA测量程序分享

电子表格Excel VBA测量程序分享2012-2-13 11:16阅读(6977)简介：Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，Visual Basic forApplications（VBA）是一种VisualBasic的一种宏语言，是基于Visual Basic for Windows 发展而来的，主要能用来扩展Windows的应用程式功能，特别是Microsoft Office软件。

也可说是一种应用程式视觉化的Basic Script，VBA的使用可以达成执行特定功能或是重复性高的操作。

适用：Microsoft Office Excel办公软件NO.1：曲线坐标计算程序VBA说明：本程序适用于Office Excel运行，属于多交点坐标正算、反算程序，包括：多交点曲线要素、坐标正算、坐标反算、放样计算、竖曲线高程等。

下载：曲线坐标计算程序VBA 1.0（单交点坐标正算）曲线坐标计算程序VBA 2.0（单交点坐标正算、反算）曲线坐标计算程序VBA 2.3（单交点坐标正算、反算、自动化）曲线坐标计算程序VBA 3.0（多交点坐标正算、反算）曲线坐标计算程序VBA 4.0~4.9（交点法、线元法、竖曲线等一体化程序）2012-11-15 更新测量坐标计算程序 V5（交点法、线元法、直线、竖曲线等多种计算程序）2013-07-27 更新NO.2：测量计算程序集成VBA 1.6说明：本程序适用于Office Excel运行，通过VBA编写的测量集成程序，属于单交点曲线，包括：坐标正算、坐标反算、坐标放样、角度转弧度、任意切线方位角、坐标展点、边角后方交会、坐标面积计算、无定向平差、水准平差、竖曲线高程、导线观测手薄、线元法坐标正算、线元法坐标反算、直线坐标正反算等。

下载：点击下载NO.3：线元法坐标正反算VBA说明：本程序适用于Office Excel运行，是线元法坐标正算、反算一体程序，可以计算多线元数据，适用性广（包括：复曲线、S型曲线、匝道）等。

4800-4850p《多条曲线坐标计算程序》

ZHCHXU（线路坐标、放样计算主程序）提示：必须先执行一次“Defm 60”命令，使扩展变量得到确认Deg:Norm:Lb1 S:Z＜1=»{QU}:Q″X o″: U″Y o″ΔFix4: Z≥3=»U=0:K=1mInt Z[Z]kΔFixm:Lb1 A:Z≠.1=»{K}ΔM=K: N=3:Lb1 B:Z[N+3:Rnd:K＜Ans=»Prog″D″:Pol(X[N]-X[N-3], Y[N]-Y[N-3:V=J: Pol(X[N+3]-X[N],Y[N+3]-Y[N:W=J: S=Sin-1Sin(W-V:C=AbsS:S=S÷C:H=1k Frac1E4Z[N:G=1E5Frac X[N]k+Frac1E4Y[N:L=GC÷1r+H:E=G+H2÷(24G)-H4÷(2688G3):T=E tan.5C+H÷2-H3÷240 G2:E=E÷Cos.5C-G:R=GS:Z[N:Rnd: Z≥4=»Q=AnsΔP=K-Ans: D=P:X=Rec(-T,V)+ X [N:Y=J+Y[N:D≤0=»A=X+Rec(D,V:B=Y+J:F=V:≠»C=V:O=2:Prog″ H ″ΔP＞H=»O=3:D=P-L÷2: C=V+90S+.5Sin-1Sin(W-V: X=Rec(E+G , C)+X[N:Y=J+Y [N: A=X+ Rec(-G , D r÷R+C: B=J+Y:F= D r÷R+C-90SΔP＞L-H=»O=4: D=P-L: R=-R:X=Rec(T , W)+X[N:Y=J+Y[N:C=W:D＜0=»Prog″ H ″: ≠»O=0:A=X+Rec(D,W:B=J+Y: F=WΔΔH≠0=»E=Abs D÷HΔD=0: P=90:Lb1 0:P″ANG .″:Rec(D , P+F:X=A+I:Y=B+J: Prog″ F ″:Z≥1=»X:Pause 0:Y: Pause 0Δ◄┘Z=.2=»Fix1:Goto SΔ Z≠.1=»{D}Δ Z≥6=»U=1=»D″[HY]″ΔU=2=»D″[QZ]″ΔU=3=»D″[O]″ΔU=4=»D″[YH]″ΔU=5=»D″[HZ]″ΔD″[ZH] ″ΔO=2=»D″D r″ΔO=3=»D″D o″ΔO=4=»D″D2r″ΔD=i=»P=0:D=0:{PD}:Goto 0 Δ Z≥3=»K=Q=»K=Q+H+ln ΔU=1=»K=Q+L÷2ΔU=2=»D=R: U=3:Goto 0ΔU=3=»K=Q+L-HΔU=4=»K=Q+L-.4mΔIsz U:U=6=»Z=Z+3: Goto SΔ Goto AΔD=0=»Z=.1=»M=M-I Cos(F-J): Pause 0:Abs(F-J)÷90:Rnd:Ans=1=»I Sin(F-J:Pause 0:K=M: Goto SΔΔK=M: Goto A ΔFrac D k≠0=»D÷π:A=X:B=Y:P=0: Goto 0 Δ P=90: Goto 0:≠»N=N+3: Goto B◄┘H（数据输入子程序）H≠0=»Rec(D-D5÷90R2H2 ,D2r÷6RH+C:A=I+X:B=J+Y:F=D2r÷2RH+CΔF（计算子程序）Z=.2=»Pol(Qm-Frac X,Um-Frac Y): ≠»K=0=»{XY}Δ Pol(Q-X,U-YΔ Z=.5 =»X: Pause 0:Y:Pause 0: ″X=″:″Y=″▲ΔZ ≠1=»J=J+πr: 60Frac J:Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0: Fix 3: I:Pause 0:Z=.2=»Fix 1:100 I:Pause 0:Ans Sin(F-J):Pause 0ΔD（数据输入子程序）A=0:B=0:N=3=»A=0:B=0Δ K＞A=»K＜B=»0:″TIU NRO″:″NEEKZISAS″: Prog″ZHCHXU ″ΔΔK≥B=»O=1: K≤A=»{O}ΔK=K+AO″KIU″-BOΔ◄┘FD（计算子程序）Lb1 0:{XYLF}:Fix3:Q″X o″: U″Y o″:D=Pol(X-Q,Y-U:J＜0=»J=J+360ΔJ:60Frac J:J=Int J+10mInt Ans+6mFrac Ans:Fix 4:Pause 0:D:Fix 3:Pause 0:SHU（基本数据输入子程序）Norm:Lb1 0: {NKRHXY}:NXY:Z[N]=K+1E -7H:X[N]=X+1E-8Int R:Y[N]=Y+1E -4Frac R:N=N+3:Goto 0◄┘说明：1、必须先执行一次“Defm 60”命令，使扩展变量得到确认；2、“m”和“k”均在“FUNCTION”的1-“MATH”里；3、“E”是“EXP”；4、“o”和“r”均在“FUNCTION”的5-“DRG”里；2-----------CASIO fx---4800p <<多条曲线坐标计算程序>> ------整理：刘欣--------<<多条曲线坐标计算程序>>---------3一、程序输入说明：1、输入本程序前必须先扩容60个字节 (特别强调) ；2、输入数时小数点前面的位数只能≤5位，小数点后面只能保留3位；3、每个曲线的编号为3的倍数，第一个曲线N=3；第二个曲线N=6；第三个曲线N=９．．．．．．；4、输入Ｎ后，再输入交点ＪＤ的Ｘ、Ｙ坐标值，Ｋ为曲线起点的里程、Ｈ为缓和曲线长度、Ｒ为曲线半径；5、输入时最少要输入３个曲线的资料此程序才能运算；二、本程序计算范围说明：1、计算方位角和距离Z=0 例：测站（6551.446, 8080.424）中桩K3+307.5方位角250-17-28 平距330.872例：测站（同上） k=0, KIU=π任意点（6600,6600）方位角271-52-43 平距1481.222、计算中边桩坐标Z=13、以上二者兼而有之Z=0.54、根据坐标推算里程桩号 Z=0.15、计算路线中线偏位 Z=0.26、计算曲线逐点坐标 Z=N7、计算斜交涵洞轴线 D=i8、在切线方向前后移动 D=π9、返回输入桩号状态 D=0三、启动主程序“ZHCHXU ”进行计算说明：1、Ｚ输入１时，再输入中桩的里程K ，即可得到中桩的坐标XY ；D 为中桩左右侧边桩的平距：● 如果该中桩位于直线上，则D 辨别为“D ”；如果该中桩位于第一缓和曲线上，则D 辨别为“D r ”；如果该中桩位于圆曲线上，则D 辨别为“D O ”；如果该中桩位于第二缓和曲线上，则D 辨别为“D 2r ”；● 左侧边桩为“－”值，即可得到左侧边桩的坐标XY ；右侧边桩为“＋”值，即可得到右侧边桩的坐标X 、Y ；2、Z 输入0时，可计算中桩的或任何一个坐标值的方位角和边长，结果显示方位角为度分秒，边长显示米。

公路、铁路曲线坐标计算程序

公路、铁路曲线坐标计算程序一、主程序：M（M是文件名，下同）L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”H”ZHJD°”V”A°”W”L0”K”L1”RL2 Pol(C-A,D-B):M=JL3 Lbl 2:J=90:{NOJZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”J”A°”L4 Lbl 1:P=Z-G:S=E:T=F:U=H:I=H:FixmL5 P≤0=>Prog ”3”:≠=>P≤W=>Prog ”1”:≠=>P≤W+K=>Prog ”2”:I=90W/π/R+180π-1R-1(P-W)⊿⊿P≤W+K=>Prog ”4”:I=H+I⊿⊿L6 P>W+K=>P=2W+K-P:S=Q:T=L:P>0=>Prog ”1”:X=-X:U=H+V:Prog ”4”: I=U-I:≠=>U=H+V:I=U:P=-P:Prog ”3”⊿⊿L7 N≠2=>P=O:U=I-J:N=3=>P=-P⊿S=X:T=Y:Prog ”3”⊿L8 Pol(X-A,Y-B):J=J-M:J<0=>J=J+360⊿L9 J:”°°°=”◢I:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2二、子程序：1L1 I=90P2(πRW)-1L2 X=P-Px y5(40R2W2)-1L3 Y=PIπ/540三、子程序：2L1 Y=180π-1R-1(P-0.5W)L2 X=RsinY+W/2- Wx y3/240/R2L3 Y=W/24/R+R-RcosY四、子程序：3L1 X=S+PcosUL2 Y=T+PsinU五、子程序：4L1 V<0=>Y=-Y:I=-I⊿L2 S=S+XcosU-YsinUL3 Y=T+XsinU+YcosUL4 X=S说明：1、该程序适用于计算器 CASIO fx-4800P。

曲线坐标计算程序

I=30/（3.1415926*A*A）*（LF-LT）*（LF+2*LT）
l=L-LF的五次方/（72*A的四次方）*（0.8-LT/LF-LT/LF的平方+LT/LF的3次方+LT/LF的4次方-0.8LT/LF的5次方）
LT=A*A/R-（该曲线起点里程与HY点里程之差） LF=LT+（该曲线起点里程与前视点里程之差）
坐标简易计算表
圆曲线部分坐标计算
里程
起始点里
L 玄切角玄长方位角
坐标增量 X Y
中线坐标 X Y
左X
路基边桩坐标 Y 右X
Y
起始点起始点坐标方位角起始点中线坐标X+路基中线坐标Y+路中线坐标X+路中线坐标Y+路 L/（2*R）方位角左宽*COS(路基基左宽*SIN(路基右宽*COS(路基右宽*SIN(路加或减边桩左方位角) 基边桩左方位基边桩右方位基边桩右方位角) 角) 角) 各点玄玄长玄长起始点起始点 2*R* 10M一该计算点延里程减注：R为 SIN( 切角 *COS( *SIN( X坐标 Y坐标+ 续计起始点曲线半玄切注：左方位方位 +坐标坐标增角) 角) 里程角) 增量X 算量Y 径转为
Hale Waihona Puke 缓和曲线部分坐标计算坐标增量中线坐标 X Y X Y 左X 起始点坐标
路基边桩坐标 Y 右X
Y
路基边桩方位角计算右转曲线：
右侧=该点方位角-2*L*L/（6*A*A）+90（化为弧度）
右侧=该点方位角+2*L*L/（6*A*A）+90（化为弧度）
置缓和曲线上任一点为曲线起点坐标计算：

VBA实现Excel的数据曲线与图像处理

VBA实现Excel的数据曲线与图像处理在现代数据处理和分析中，Excel是一个非常常用的工具，而VBA（Visual Basic for Applications）则是Excel中的一种编程语言，可以帮助我们实现更加复杂和高效的数据处理任务。

本文将介绍如何使用VBA来实现Excel的数据曲线与图像处理。

首先，我们将关注如何使用VBA来处理数据曲线。

数据曲线的绘制在数据分析中非常常见，它可以帮助我们直观地理解和分析数据的趋势和变化。

要实现这个任务，我们需要使用Excel的图表功能和VBA的编程特性。

在Excel中，我们可以通过在工作表中选择数据并点击“插入”选项卡下的“数据图表”来创建一个数据图表。

然而，如果我们希望通过VBA来自动地创建和控制数据图表，那么我们需要编写一些VBA代码。

下面是一个示例代码，它可以将选定区域的数据绘制成折线图：```vbaSub CreateChart()Dim rng As RangeSet rng = Selection '获取选定区域的范围Dim cht As ChartSet cht = Charts.Add '在一个新的图表中绘制数据With cht.ChartType = xlLine '设置图表类型为折线图.SetSourceData rng '设置数据源End WithEnd Sub```在这个示例代码中，我们首先通过`Selection`关键字获取选定区域的范围，然后创建一个新的图表对象并将数据源设置为选定区域。

最后，我们将图表类型设置为折线图。

通过运行这段代码，我们可以自动创建一个折线图并将选定区域的数据绘制出来。

除了数据曲线，图像处理也是Excel中常用的任务之一。

我们可以使用VBA来实现一些简单但有用的图像处理操作，例如调整图像的亮度和对比度、应用滤镜等。

下面是一个示例代码，它可以调整选定图像的亮度和对比度：```vbaSub AdjustBrightnessContrast()Dim pic As PictureFormatSet pic = ActiveSheet.Shapes(1).PictureFormat '获取第一个图片的图片格式'调整亮度pic.Brightness = 0.1'调整对比度pic.Contrast = 0.8End Sub```在这个示例代码中，我们首先通过`ActiveSheet.Shapes(1).PictureFormat`获取当前活动工作表中第一个图片的图片格式。

曲线坐标计算程序VBA 4.9

程序信息提示欢迎你使用本程序！当你看见此页面表示你的Office Excel已禁止“宏”无法正常显示和计算，需要启用“宏”才可进行下一步操作！如果你已启用“宏”请点击左上角“返回界面”按钮进入程序界面进行相关操作！提示 :本程序不支持金山WPS软件和Excel 2003精简版，仅支持微软Microsoft Office Excel 2003以上完整版本才可运行。

退出表格时会自动返回停留在该页面，当启用宏后再次运行本程序时则不会停留在该页面。

若有疑问请详询作者QQ：295188316操作方法：本程序运行环境为Microsoft Office Excel 2003以上版本，运行时要把安全级别设置为“低”或提示启用宏，否则点击程序按钮时会没有任何反映，设置方法如Office Excel 2003版：点击顶部【工具】>>>【宏】>>>【安全性】>>>【安全级】>>>【低】>>>【确定】>>>【重新打开文件即可运行】。

Office Excel 2007版：点击顶部【Office按钮】>>>【Excel选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。

Office Excel 2010版：点击顶部【文件】>>>【选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。

方法如下：>>>【宏】>>>【安全性】>>>【安全级】>>>【低】>>>【确定】>>>【重新打开文件即可运行】。

曲线坐标计算程序VBA-4.8

单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段
单位名称：工程名称：
坐标计算表
**集团有限公司**路线**标段。

教你如何通过Excel VBA编写测量坐标计算程序

教你如何通过Excel VBA编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。

关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。

可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VB A)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA是V B应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。

如果你已经了解VB会发现学习VBA非常快。

相应的学完VBA会给学习VB打下坚实的基础。

理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。

它运用范围广，计算速度快，计算精度高，合理化显示等。

或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。

Excel VBA对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。

目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。

最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。

认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。

[Excel]曲线坐标计算程序VBA_4.7

日期：
曲线要素表
单位名称： **集团有限公司工程名称： **铁路线**标段交点号
JD
交点里程
DK
交点坐标
X(N)
交点坐标
Y(E)
曲线半径
R
缓和曲线
Ls1
缓和曲线
Ls2
备注
编制：
复核：
日期：
曲线要素表
单位名称： **集团有限公司工程名称： **铁路线**标段交点号
JD
交点里程
DK
交点坐标
曲线要素表
单位名称： **集团有限公司工程名称： **铁路线**标段交点号
JD JD0 JD1 JD2 JD3 JD4 JD5 987.122 4758.992 6224.744 10021.359
交点里程
DK
交点坐标
X(N) 3381507.389 3381002.829 3379475.002 3378819.247 3378226.731 3373351.385
交点坐标
Y(E) 446682.036 447530.464 450979.990 452290.956 456053.721 458628.379
曲线半径
R
缓和曲线
Ls1
缓和曲线
Ls2
备注
5500 8000 5000 4500
300 170 330 360
300 170 330 360
编制：
复核：
X(N)
交点坐标
Y(E)
曲线半径
R
缓和曲线
Ls1
缓和曲线
Ls2
备注
编制：
复核：
日期：
曲线要素表
单位名称： **集团有限公司工程名称： **铁路线**标段交点号

统一曲线参数输入万能坐标计算程序

统一曲线参数输入万能坐标计算程序姬根杰李永红中铁十七局集团四公司重庆 404100E-mail ：jcglj.ji@【内容摘要】运用复化辛普生公式、结合Excel VBA （Visual Basic for Application ）的编程，对于各种曲线线形,进行统一曲线参数输入,中桩、边桩坐标计算【关键词】曲线编程坐标计算在线路测量的计算工作中，离不开直线、圆曲线、缓和曲线（包括完整型和非完整型或卵型）的线元，对于各种线形的中桩坐标、边桩坐标的计算，真是百家争鸣，方法各异，尤其立交桥，组成立交的基本单元是匝道，匝道的平面线形组合相对比较复杂，计算烦琐，特别是卵形曲线的计算更加抽象难懂;主要有曲直法、解析法、拟合法、积木法、综合法、弦切法等。

有没有一种统一的解决方法呢?答案是肯定的, 运用复化辛普生公式、结合Excel VBA （Visual Basic for Application ）的编程，在我们普通的Excel 办公软件中，对于各种线形的中桩坐标、边桩坐标的计算，实现了真正意义上的的全线贯通。

使用此程序具有以下优点：1)使重复的批量计算任务自动化，减轻测量内外业计算的工作强度。

2)方便快捷，创建满足工程要求的特定报表。

3)便于测量数据的管理和维护。

一、复化辛普生的基本原理及计算思路抛物形公式 (又称辛普生Simpson 公式)： ()[()4()()]62b a b a a bf x dx f a f f b -+≈++⎰ (1)抛物形公式的几何意义：抛物形公式是用抛物线围成的曲边梯形的面积近似代替()f x 围成的曲边梯形的面积。

为了抛物形公式的计算结果满足精度要求，如果我们将积分区间划分成若干个小区间，在各小区间上采用低次的抛物形公式，然后再利用积分的区间可加性，把各区间上的积分加起来，得到新的求积公式，就是复化辛普生Simpson 公式的思想。

图1 抛物形公式示意图在线路中，无论直线、圆曲线、缓和曲线、卵型曲线无论那一种线元，可以看作由若干个小区间组合成的曲线，每个小区间的X、Y坐标增量，利用辛普生公式求积，再利用积分的区间可加性，只需要知道起点A的桩号La、半径Ra、X、Y坐标、方位角Fa以及终点B的桩号Lb、半径Rb，就可以计算AB段线元的任意点坐标和方位角。

VB编程在坐标计算中的应用

VB编程在坐标计算中的应用摘要：在实际的测量工作中，经常遇到要计算坐标和方位角，这些计算公式比较复杂，过程繁琐，如果靠手工计算，计算效率低下，容易出错，而且费时间，如果利用VB编程进行计算，将大大提高计算速度、计算效率和准确性，本文通过一个用来计算测点坐标和高程的VB程序实例，工程技术人员从繁重的手工计算中解脱出来。

关键词：VB，测量，坐标，方位角一、引言1991年，Visual Basic(简称VB)面世，它是第三代BASIC语言，它不但秉承了BASIC语言的易学易用的优点，而且增加了图形界面设计工具。

它简化了复杂的窗口程序编写过程，让编程者将更多的精力致力于问题的求解过程。

本文通过一个用来计算测点坐标和高程的VB程序实例，使工程技术人员从繁重的手工计算中解脱出来，提高了计算的准确性和快速性。

二、与坐标计算相关的公式1、坐标正算：根据已知点坐标、已知点边长和坐标方位角计算未知点坐标。

2、坐标反算：有两个已知点的坐标反算坐标方位角和边长。

边的坐标方位角可根据两端点的已知坐标反算出，这种方法称为坐标反算。

设A、B为两个已知点，其坐标分别为（,）和（,）则可得：式中，=-；=-。

边长可以用下式计算：DAB=求得的可在四个象限之内，它由和的正负符号确定，计算时应注意按下列关系区分：（1）当＞0且≥0时（2）当＝0且＞0时（3）当＝0且＜0（4）当＜0时（5）当＞0时且＜0时：三、工程实例下面例举一个在VB6.0中开发的碎部点计算程序。

1、界面及界面参数设计：在工程时间运用中，一般遇到两种情况，一是仅计算结果，不保存数据，二是不但计算结果，而且要保存数据。

所以在程序运行的时候应该提供这两种选择。

界面设计如下图（1）所示，另外就根据实际工作中的已知数据，设计界面参数，文件格式设计为一般格式和南方Cass格式，当然用户可以根据实际需要设置其它格式。

高程的输入方式可以是直接输入高程数据或者根据高差来计算高差。

通过逐桩坐标计算曲线要素

通过逐桩坐标表推算曲线要素（CAD篇）摘要：现在从事工程行业的都流行使用AutoCAD进行绘制图形，为了更好的利用这个绘图工具来绘制线路曲线要素，本文将讲解如何通过设计院提供的逐桩坐标表推算未知曲线要素。

关键词：AutoCAD 技巧曲线要素说明：AutoCAD已经成为国际上广为流行的绘图工具。

具有良好的用户界面，通过交互菜单或命令行方式便可以进行各种操作。

它的多文档设计环境，让非计算机专业人员也能很快地学会使用。

在不断实践的过程中更好地掌握它的各种应用和开发技巧，从而不断提高工作效率。

如何提高CAD速率？通常在开始绘图的时候一些人由于对工具命令不熟悉直接使用工具栏等查找命令，这样对制图的效率会大打折扣从而导致绘图的速率缓慢，提高制图的方法需要掌握CAD的快捷命令，孰能生巧的记住，然后择优选用其中的一些常用的绘图命令，把繁琐的长命令转化为简单的命令使用，其次需要多练习绘图的方式与方法才会提高绘图水平。

推算原理：通过逐桩坐标表（含曲线五大桩）然后利用Excel生成展点命令在AutoCAD中进行坐标展点，再通过工具或命令绘制进行查询曲线长、切线长、外失距、交点坐标、交点里程、曲线半径、方位角、转角等。

准备工作：1、逐桩坐标表X、Y（含曲线五大桩）2、AutoCAD绘图软件演示版本为：AutoCAD 2007示例文件：某高速铁路逐桩坐标表演示范围：DK07+586.707~DK12+126.03（由于该交点属于大转角则演示明显）操作流程：坐标展点→绘制半径→绘制切线长→查询方位角→查询转角→查询交点坐标→查询交点里程→查询外失距→绘制缓和曲线。

（请注意逐桩坐标表中所提供的ZH、HY、QZ、YH、HZ等说明）准备操作如下：1、打开“逐桩坐标表”并复制（里程桩号、坐标X、坐标Y）数据到“曲线坐标计算程序VBA 4.6”的“交点法正算”表格中，效果图如下：逐桩坐标表见（本文附件）下载地址附后！2、在“曲线坐标计算程序VBA 4.6”的“交点法正算”表中“点击生成展点”然后点击“复制数据”按钮，再打开AutoCAD在命令行中输入pline按回车键，并在命令行上点击鼠标右键选择“粘贴”，图示如下：3、展点完毕后删除起始点那根长线段（该线段属于展点命令的起始端位置，该线段无用可以直接删除），然后在命令行中输入zoom按回车键再选择E按回车键，图示如下：绘图操作准备：1、基本设置：点击AutoCAD顶部工具栏中的“格式”→“标注样式”（或输入命令d）→“修改”→主单位精度选择“0.000”→角度标注：单位格式选择“度/分/秒”，精度选择“0d’00.00””→确定→设为当前。

教你如何通过Excel VBA编写测量坐标计算程序

关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。

可以用Excel的宏语言来使Excel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(V BA)，可以认为VBA是非常流行的应用程序开发语言Visual Basic的子集，事实上VBA 是VB应用程序的版本，尽管存在有些不同VBA和VB在结构上仍然十分相似。

如果你已经了解VB会发现学习VBA非常快。

相应的学完VBA会给学习VB打下坚实的基础。

理由：选择Excel VBA编程的理由是因为它的计算功能非常强大，是现今任何编程计算器无法逾越的。

它运用范围广，计算速度快，计算精度高，合理化显示等。

或许很多测量人员对Excel VBA还有些陌生，主要是大家寄托于计算器、电脑、手机PDA等系列软件使用。

最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。

曲线坐标计算程序

曲线线路坐标的两种计算——中铁大桥局集团沿江高速公路 YJ1-01标项目部詹艳春在工程施工过程中, 测量工作贯穿其始终, 测量是施工的指路灯, 因而施工放样时要控制好各个施工点的空间位置, 将图纸上所设计的结构物的位置、形状、大小和高低,在实地标定出来,以作为施工的依据。

在进行放样工作之前,测量人员首先要熟悉结构物的总体布置图和细部结构设计图,根据整体到局部的原则, 以控制网作为放样依据, 找出主要轴线和主要点的设计位置, 以及各部分之间的几何关系, 再结合现场条件与控制点的分布, 选择适宜的放样方法, 在满足一定精度的条件下, 将设计图纸上的点或者线在实地测设出来。

实际工作中, 可行的放样方法有很多, 如切线支距法、偏角法、极坐标法, 圆曲线的弦线支距法、中央纵距法,回头曲线的辐射法、推磨法等。

随着公路勘测技术的不断发展,光电、电子测绘仪器的大量使用,使得公路施工测量放样方法也逐步由传统人工、光学的方法向现代化的光电、电子方法转变, 工序也由复杂趋向简单, 极坐标法已成为主要的放线方法。

而在进行放样之前之中, 还必须根据图纸对所放样点进行坐标计算, 坐标正确是保证放样准确的重要前提, 一旦坐标计算错误则将会严重影响施工的正常有序的进行, 因此在熟悉图纸的前提下, 一个好的计算方法显得尤为重要。

我们处在一个计算能力飞速发展的时代, 各种计算工具代替了以往大量、繁复的分析计算工作, 极大的提高了工作效率和质量, 计算器作为测量工作的辅助工具, 得到了工程技术人员的青睐, 被广泛应用于施工计算中, 其蕴藏的开发潜力非常大。

我结合自己多年从事公路测设和使用、开发编程函数计算器的经验, 根据一般情况下从图纸获取的道路曲线信息介绍两种最实用的曲线坐标计算程序, 供从事公路测量的广大工程技术人员交流参考, 它能简单有效地帮助您解决坐标计算的问题。

一、已知交点的单交点非对称曲线线路坐标计算程序 JDQXJS(适用于 CASIO fx-4800PA ″ XJ=″ ∶ BL ″ JD=″ ∶ W ″ ALF1=″ ∶ I ″ ALF2=″ ∶ E=A∶ F=B∶ Z=L∶ W=I => Goto 0″ LS1=″ ∶ P ″ LS2=″ ∶ R ″ R=″ ∶ N= Abs(I-W ∶U ″ P1″ = M2÷24÷R -M^4÷2688÷R^3∶ V ″ P2″ = P2÷24÷R - P^4÷2688÷R^3∶ G ″ q1″ = M÷2– M^3÷240÷R 2∶ H ″ q2″ = P÷2– P^3÷240÷R 2∶T ″ T1″ =(R+U×tan(N÷2+G-(U-V ÷SinN ∶S ″ T2″ =(R+V×tan(N÷2+H-(U-V ÷SinN ∶G ″ L Y ″ =R×N × π÷180-(M+ P÷2∶E=A– T×CosW ∶ F=B– T×SinW ∶ U=A+S×CosI ∶ V=B+S×SinI ∶Z ″ ZH ″ = L –T : H″ HZ ″ =Z+M+G+P∶ S= (I-W ÷N ∶ T=180÷π∶ Goto 0∶LBL A∶ X=D-D^5÷40÷J 2+D^9÷3456÷J^4∶Y=D^3÷6÷J -D^7÷336÷J^3+D^11÷42240÷J^5∶O=D2÷2÷J × S × T∶D=√ ￣ (X2+Y2-1(Y÷X ×S ∶N=3 => Goto 7> Goto 8∶≠ >LBL B∶ O =D÷R×T ∶ X= (J÷2– J^3÷240÷R 2+R×SinO ∶Y= (J2÷24÷R -J^4÷2688÷R^3+R×(1-Cos O ∶O = O×S ∶ D=√ ￣ (X2+Y2 ∶ J= tan-1 (Y÷X ×S ∶N=5 => Goto 7> Goto 8LBL 0∶ {K,C,Q }∶Z => H=> Goto 2K ≤ Z+M => G oto 3-P => Goto 4Z+M+G÷2=> Goto 5∶≠ >LBL 1∶ D=K-Z ∶ J=0∶ O =0∶ Goto 7∶LBL 2∶ D=H -K ∶ J=0∶ O =0∶ Goto 8∶LBL 3∶ D=K-Z ∶ J=MR∶ N=3∶ Goto A∶LBL 4∶ D=H -K ∶ J=PR∶ N= 4∶ Goto A∶LBL 5∶ D=K-Z -M ÷2∶ J=M∶ N=5∶ Goto B∶LBL 6∶ D=H -K -P ÷2∶ J=P∶ N=6∶ Goto B∶LBL 7∶ J=W+J∶ O =W+ O∶ X=E+DcosJ∶ Y=F+DsinJ ∶ Goto 9∶LBL 8∶ J=I-J ∶ O =I - O∶ X=U-DcosJ ∶ Y=V-DsinJ ∶LBL 9∶ X=X+C″ BIAN=″ cos(O +Q″ BJA=″ ◢Y=Y+Csin(O +Q◢ Goto 0 说明:输入程序后, 按 F IL E 键后选择运行该程序, 屏幕将按顺序显示 XJ=?请输入交点的 X 坐标,显示 XJ=?请输入交点的 Y 坐标,显示JD=?请输入交点的里程桩号,显示 ALF1=?请输入第一边的方位角,显示 ALF2=?请输入第二边的方位角, 显示 LS1=?请输入第一缓和曲线长, 如果线路没有第一缓和曲线则输入 0(LS1=0 ,显示 LS2=和曲线则输入 0(LS2=0 ,显示求的桩号, 显示BIAN=?请输入边桩距中距离 (左边距为负右边距为正 , 若只求中桩则 BIAN 值输入 0,显示 BJA=?请输入边桩与线路中线前进方向的夹角;如右图所示(BIAN= -8.84; BJA=90° :上任意已知点的坐标和里程桩号,并在先后显示 ALF1=?与 ALF2=?时输入相同的方位角角度值(ALF1=ALF2=该直线的方位角。

单条曲线坐标计算程序

单条曲线坐标计算程序ZUOBIAO（程序名称）1 D″J D″：A：{R}：C″LS″：2 P=C2/24/R-C4/2688/R3：3 Q=C/2-C 3/240/R2：4 B=90C/π/R：5 T=(R+P)tan(Abs A/2)+Q◢W″E″=(R+P)/cos(A/2)-R◢L=(Abs A-2B)πR/180+2C◢6 G″ZH″=D-T◢H″HY″=G+C◢I″QZ″=G+L/2◢K″YH″=G+L-C◢M″HZ″=G+L◢7 N：E：F：J：8 A＜0=>S= -1：≠＞S=1△9 U=F+A/2+90S：10 V=W+R：11 B=N+V cos U：12 O=E+V sin U：13 W=6.5：14 Lb1 1：15 {Z}：16 Z≤G=>L=T+G-Z：17 V=F+180：18 U=F：19 Goto 2△20 Z≤H=>L=Z-G：21 V=L-L5/90/(RC)2：22 L=30SL2/π/R/C：23 P=F+180：24 Q=F+L：25 U=F+3L：26 Goto 4△27 Z≤K=>L=F+A/2+180+90S+(Z-I)×180S/R/π：28 U=L+90S：29 Goto 5△30 Z≤M=>L=M-Z：31 V=L-L5/90/（RC）2:32 L=30SL2/π/R/C：33 P=F+A：34 Q=F+A+180-L：35 U=F+A-3L：36 Goto 4△37 Z＞M=>L=Z-M+T：38 U=F+A：39V=U：40 Goto 2△41 Lb1 2：42 X=N+L cos V◢Y=E+L sin V◢40 Goto 6◄┘44 Lb1 3：45 {W}：46 P″XL″=X+W cos(U-90)◢Q″YL″=Y+W sin(U-90)◢P″XR″=X+W cos(U+90)◢Q″YR″=Y+W sin(U+90)◢47 Goto 1◄┘48 Lb1 4：49 X=N+T cos P+V cos Q◢Y=E+T sin P+V sin Q◢50 Goto 6◄┘51 Lb1 5：52 X=B+R cos L◢Y=O+R sin L◢53 Goto 6◄┘54 Lb1 6：55 J=1=>Goto 3Δ56 Goto1◄┘一、本程序使用范围：1、本程序适合CASIOfx4500和CASIOfx4800p计算器；2、适合两段直线夹一条曲线的一段线路任意中、边桩坐标计算；二、使用说明：1、基本数据输入:JD: 交点里程； A: 曲线转向角 (左-右+)； L: 缓和曲线长 R: 曲线半径；2、中间结果显示: (便于验证输入程序正确与否，可以设定为不显示)T-； E-； L-；（曲线要素） ZH-；HY-；QZ-；YH-；HZ-；（曲线五大里程桩）3、输入数据:N: 交点X坐标；E: 交点Y坐标；F: 交点间切线方位角；J: 输常数1（算中边桩时输1；只算中桩时输0）；Z: 测点里程；4、结果显示：X= 、 Y= 测点XY坐标；W: 测点左右边桩距离；XL= 、 XL= 测点左边桩的XY坐标；XR= 、 XR= 测点右边桩的XY坐标；。

利用ExcelVBA程序计算曲线坐标.kdh

利用Excel VBA 程序计算曲线坐标张卫庭高强（中铁济南勘察设计咨询院有限公司山东济南250022）【摘要】Excel 是大家很熟悉的办公软件，相信大家在工作中经常使用。

本文利用Excel VBA 编制程序计算铁路缓和曲线的坐标，并将计算坐标转化为任意平面坐标系下的坐标，最后转化全站仪可识别的文件格式，从而实现了曲线坐标计算和现场放样的一体化。

【关键词】Excel VBA ；曲线要素；坐标转化；全站仪1.曲线坐标计算1.1角度转化为弧度计算曲线坐标，难免要把角度转化为EXCEL所识别的弧度来计算，为此首先要做的是角度转化为弧度。

打开Excel ，按Alt+F11即进入VBAIDE ，在菜单上依次点击[插入]->[模块]，然后输入如下代码Public Const pi =3.14159265359Public Function DEG(n As Double)Dim A As Double,B As Double,C As Double,D As Double,E As Double,F As Double,G As Double,KA As DoubleD =Abs(n)+0.000000000000001F =Sgn(n)A =Int(D)B =Int((D -A)*100)C =D -A -B /100DEG =F *(A +B /60+C /0.36)*pi /180End Function1.2曲线坐标计算1.2.1计算曲线坐标的公式加入缓和曲线后的铁路曲线示意图（见右图）坐标系的建立主要取决于控制点的情况。

如果控制点是为测设曲线而布设的，则坐标系一般采用ZH —XY 坐标系统①ZH~HY 段曲线点的坐标根据缓和曲线方程计算：x A =l A -l A 540R 2l 02y A =±l A 36Rl 0-l A7336R 3l 03!"#%%%%%$%%%%%&当曲线右偏时y A 坐标为正，左偏时y A 坐标为负。