曲线坐标计算程序VBA 4.8
圆曲线坐标计算程序
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)
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时，可计算中桩的或任何一个坐标值的方位角和边长，结果显示方位角为度分秒，边长显示米。
曲线坐标计算程序
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 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版：点击顶部【文件】>>>【选项】>>>【信任中心】>>>【信任中心设置】>>>【宏设置】>>>【启用所有宏】>>>【确定】。
方法如下：>>>【宏】>>>【安全性】>>>【安全级】>>>【低】>>>【确定】>>>【重新打开文件即可运行】。
坐标正算、反算计算方法及在Excel中的VBA编程
坐标正算、反算计算方法及在Excel 中的VBA 编程测量中经常需要将某点相对坐标系坐标转换成线路的里程、偏距，或根据线路某一里程偏距计算出对应的相对坐标系坐标，为寻求一种快速简单高效的计算方法，本文对线路正算反算的原理进行了阐述，并结合Excel VBA 编程，将编程和Excel 的拖拽的功能相结合，编制出实用计算表，特别适用于需要大量计算边桩、围护桩的情况。
关键词：坐标方位角坐标正算坐标反算 V AB 编程循环迭代直接算法一、坐标方位角的反算1.坐标方位角反算如图1所示，已知点A 、B 的坐标，求直线AB坐标方位角α。
图1坐标方位角反算直线AB 之间的坐标增量：AB B AAB B Ax x x y y y ∆=−∆=−当0,0AB AB x y ∆>∆>时，角α位于第一象限角：arctan ABABy x α∆=∆当0,0AB AB x y ∆<∆>时，角α位于第二象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆<∆<时，角α位于第三象限角：arctan 180AB ABy x α∆=+°∆当0,0AB AB x y ∆>∆<时，角α位于第二象限角：arctan360AB AB y x α∆=+°∆2.坐标方位角反算的VBA 编程可用VBA 将上述过程定义为一个名为angel()的函数，代码如下：Function angel(x0As Double, y0 As Double, x1 As Double, y1 As Double) As Double dx = x1- x0dy = y1- y0If dx > 0 And dy > 0 Thenangel = Atn(dy / dx)End IfIf dx < 0 And dy > 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx < 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979End IfIf dx > 0 And dy < 0 Thenangel = Atn(dy / dx) + 3.14159265358979 * 2End IfEnd Function二、直线段坐标正算与反算1.直线段正算图2直线段计算已知HZ 点坐标（x1,y1）、里程N HZ ，ZH 点坐标（x2,y2），正算时已知P 点对应的中桩里程Np 和偏距e （规定沿着线路前进方向，左边偏距为负，右边偏距为正），Np>N HZ ，求P 点对应的坐标。
教你如何通过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
![[Excel]曲线坐标计算程序VBA_4.7](https://img.taocdn.com/s3/m/4e2bacdfce2f0066f5332235.png)
日期：
曲线要素表
单位名称： **集团有限公司 工程名称： **铁路线**标段 交点号
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
备 注
编制：
复核：
日期：
曲线要素表
单位名称： **集团有限公司 工程名称： **铁路线**标段 交点号
(完整word版)曲线坐标计算(
曲线坐标计算一、圆曲线圆曲线要素：α—-—-----———---—曲线转向角R—-——-—-—-------曲线半径根据α及R可以求出以下要素：T—---——-—————----切线长L---—-—————-——-——曲线长E-—--—---——------外矢距q—-———————--——-——切曲差(两切线长与曲线全长之差）各要素的计算公式为：2αtgR T ⋅=︒⋅=180παR L (弧长))12(sec -=αR E （sec α=cos α的倒数）圆曲线主点里程：ZY=JD －TQZ=ZY ＋L ／2 或 QZ=JD －q /2 YZ=QZ ＋L ／2 或 YZ=JD ＋T －q JD=QZ ＋q ／2（校核用）1、基本知识◆ 里程：由线路起点算起，沿线路中线到该中线桩的距离。
◆ 表示方法：DK26＋284。
56.“+”号前为公里数，即26km ，“+”后为米数，即284。
56m 。
CK -— 表示初测导线的里程。
DK —- 表示定测中线的里程。
Ｋ -— 表示竣工后的连续里程。
铁路和公路计算方法略有不同.2、曲线点坐标计算(偏角法或弦切角法)已知条件：起点、终点及各交点的坐标。
1）计算ZY 、YZ 点坐标 通用公式：ii i i i i αT Y Y αT X X i i i i ,1JD ZY ,1JD ZY sin cos --⨯-=⨯-=2）计算曲线点坐标 ① 计算坐标方位角i 点为曲线上任意一点。
li 为 i 点与ZY点里程之差。
弧长所对的圆心角弦切角弦的方位角当曲线左转时用“-"，右转时用“+”.② 计算弦长③ 计算曲线点坐标 此时的已知数据为：ZY （x ZY,y ZY ）、 aZY- i 、 C 。
根据坐标正算原理：iZY ZY i αC x x -⨯+=cosiZY ZY i αC y y -⨯+=sin切线支距法 这种方法是以曲线起点ZY 或终点YZ 为坐标原点，以切线为X 轴，以过原点的半径为Y 轴，则圆曲线上任意一点的切线支距坐标可通过以下公式求得：πϕϕϕ︒⋅=-==180,)cos 1(sin R l R y R x 式中利用坐标平移和旋转，该点在大地平面直角坐标系中的坐标可由以下公式求得:式中:α为ZY （YZ ）点沿线路前进方向的切线方位角.当起点为ZY 时，“±”取“＋”,X0=X （ZY ）, Y0=Y(ZY ）, 曲线为左偏时应以yi=-yi 代入；当起点为YZ 时，“±"取“—”，X0=X （YZ)， Y0=Y （YZ)， 曲线为左偏时应以yi=—yi 代入；注：1、同弧所对的圆周角等于圆心角的一半2、切线性质 圆的切线与过切点的半径相垂直3、弦切角定理 弦切角等于它所夹弧上的圆周角4、弧长公式由 L/πR=n °/180° 得L=n °πR/ 180°=n πR/180二、缓和曲线(回旋线）缓和曲线主要有以下几类：A:对称完整缓和曲线(基本形）------切线长、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段线元的任意点坐标和方位角。
CASIO fx-9750GII-9860G隧道超欠挖放样程序说明
数据库实例说明
3.1997 4.4317 0
3.856 3.744 0
0
3.856 3.799 017 0
3.856 3.744 0
0
3.856 3.799 0
0
0
3.045 6.995 0 3.045 6.995 0
6.09 0.76 2.09 0 6.09 0.76 2.09 0
2.XY=>FS（输入 1 为坐标正算、输入 2 为坐标反算和超欠挖计 算） J?=2 DK?=10010（输入近似里程“程序属于线元法，调用数据库”） X?=3377709.896（输入隧道超欠挖实测坐标 X） Y?=455860.992（输入隧道超欠挖实测坐标 Y） 0=>FS：1=CQW J?=1（输入 0 为只显示反算结果，输入 1 为显示隧道超欠挖） Z?=339.004（输入隧道超欠挖实测高 程 Z） 超欠挖显示结果如下： K=坐标反算结果，里程。 W=坐标反算结果，偏距。 CQW=超欠挖计算结果，（正为超挖、负为欠挖）。
2、如何将FA-124 程序传输到 CASIO 9750GII 计算器中？ 答：将CASIO 9750GII 计算器通过数据线与电脑链接，然后在 FA-124 软件中选择需要传输的程
序，点右键，选择Copy 再计算器程序列表点击右键选择“Paste”即可。如有重复程序选择覆盖。 3、运行程序时出现Dimension ERROR 是什么原因？
第5页共8页
第6页共8页
第7页共8页
第8页共8页
6.09 7.61 0 6.09 7.61 0
1.3164 0 1.3164 0
0.8494 1.8531 4.9431 2.9 0.5 0.82 3.21 2.9 3.6071 7.8475 0.5 4.6604 0.8494 1.8531 4.9431 2.9 0.5 0.82 3.21 2.9 3.6071 7.8475 0.5 4.6604
通过逐桩坐标计算曲线要素
通过逐桩坐标表推算曲线要素（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编写测量坐标计算程序发布日期：2013-01-11 来源：网络作者：未知浏览次数：1704摘要：认识VBA、理解VBA，并利用Office 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对于大多数测量人员而没有系统学过计算机语言程序设计的人群来讲有一定含糊，不过只要有基本数学知识、测量常识和逻辑理解的人，都能通过Excel VBA编写设计出称心如意的测量程序。
目标：基于Excel VBA的测量坐标计算程序的设计目标是将繁琐计算过程转入到计算机中，利用程序语言的重复性原理，在计算机中可将坐标计算得出更精确的结果，使坐标计算更加可靠。
最终目标是让用户可以通过Excel VBA自行完成坐标计算程序设计。
认识：学习VBA到底需要什么基础和了解些什么？学习VBA需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
VBA学习笔记（二）：由经纬度计算距离VBA代码
VBA学习笔记（二）：由经纬度计算距离 VBA代码
一、由经纬度计算距离VBA代码：
Sub Example02()
Dim Distance As Double Dim lat1 As Double Dim lon1 As Double Dim lat2 As Double Dim lon2 As Double
'位置1：尧都区华洲路面粉厂 lat1 = 36.07812 lon1 = 111.54295 '位置2：尧都区秦署路党校 lat2 = 36.07436 lon2 = 111.494613
Distance = CalcDistance(lat1, lon1, lat2, lon2)
End Sub Function CalcDistance(ByVal lat1 As Double, ByVal lon1 As Double, ByVal lat2 As Double, ByVal lon2 As Double) As Double
'经纬度计算距离公式，得出结果单位为米 CalcDistance = 6378137 * 2 * Application _ .Asin(Sqr(SumSq(Sin((Radians(lat1) - Radians(lat2)) / 2)) + Cos(Radians(lat1)) * _ Cos(Radians(lat2)) * SumSq(Sin((Radians(lon1) - Radians(lon2)) / 2)))) End Function Function Radians(latORlon As Double) As Double '度转换成弧度公式为X*π /180 PI14 = 3.141592653589Function Function SumSq(xx As Double) As Double '根据实际情况，简化了SumSq函数的代码编写 SumSq = xx * xx End Function
曲线坐标计算程序
曲线线路坐标的两种计算——中铁大桥局集团沿江高速公路 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=该直线的方位角。
利用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 坐标为负。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段
单位名称：工程名称：
坐 标 计 算 表
**集团有限公司**路线**标段。