应用VB实现中线测量中任意点坐标的快速计算
基于VB语言的施工测量应用程序设计
Shell App.Path & "\DATA\qt\ 位于圆曲线斜交盖梁 长度和两端点桩号及座标计算 .EXE", vbNormalFocus End Sub Private Sub hgljs_Click() Shell App.Path & "\DATA\qt\ 缓和曲线盖梁长度计 算 .EXE", vbNormalFocus End Sub Private Sub hpjs_Click() Shell App.Path & "\DATA\lx\ 高速公路超高横坡计 算 .EXE", vbNormalFocus End Sub Private Sub jyszpc_Click() Shell App.Path & "\DATA\pc\ 简易水准平差 .EXE", vbNormalFocus End Sub Private Sub LXSJPC1_Click() Shell App.Path & "\DATA\zh\ 菱 形 三 角 平 差 (1). EXE", vbNormalFocus End Sub Private Sub LXSJPC2_Click() Shell App.Path & "\DATA\zh\ 菱 形 三 角 平 差 (2). EXE", vbNormalFocus End Sub Private Sub mnuaboat_Click() frmAbout.Show 1 End Sub Private Sub mnuend_Click() End End Sub Private Sub pqxjs_Click() Shell App.Path & "\DATA\lx\ 平 曲 线 计 算 .EXE", vbNormalFocus End Sub Private Sub razhrjs_Click() Shell App.Path & "\DATA\qt\ 卵形线与钻桩或路基 计算 .EXE", vbNormalFocus End Sub Private Sub sbspc_Click() Shell App.Path & "\DATA\pc\ 三 边 锁 严 密 条 件 平 差 .EXE", vbNormalFocus End Sub Private Sub sjspc_Click() Shell App.Path & "\DATA\pc\ 三角锁严密平差 .EXE", vbNormalFocus
基于VB的测量坐标系统转换程序设计与实现
第 14 卷第 12 期
吕翠华等 ：基于 VB 的测量坐标系统转换程序设计与实现
·95·
个转换参数，至少需要 2 个公共点。通常，为减小转
对于莫洛金斯基模型，将旋转缩放中心 P（XP，
换误差，参与求解参数的公共点数量要多于最少公共 YP，Zp）的坐标取值为公共点坐标平均值 ：
点数，按最小二乘原理 , 由误差方程列出法方程，通过 严密平差，解算出转换参数的最或然值 [3]。
XP
=
1 n
(XA1 + XA2 + g + XAn)
对于布尔莎模型，列出误差方程如下 ：
YP
=
1 n
(YA1
+
YA2
+
g
+
YAn)
(5)
RSDX
V W
RSVXi
V W
RS1
S S
VYi
W W
=
SS0
TSVZi
W X
S0 T
0 1 0
0 0 1
XAi YAi ZAi
0 ZAi - YAi
- ZAi 0 XAi
布尔莎模型是以原坐标系原点为中心，对坐标进行旋
转、缩放和平移变换 ；莫洛金斯基模型是在测区范围
选择一参考点作为变换中心，对坐标进行旋转和缩放，
以原坐标系原点为中心进行平移变换 ；武测模型是以
原坐标系原点为中心，对坐标进行旋转和平移变换， 以测区某参考点为中心进行缩放变换 [1]。
1.1 布尔莎（Bursa）模型
RSVXi
V W
RS1
S S
VYi
W W
=
SS0
TSVZi
W X
推算坐标vb程序(带图)--测绘
Private Sub Command1_Click()Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double 'dc制作Dim a, a1, a2, a3x1 = V al(Text1.Text)y1 = Val(Text2.Text)x2 = V al(Text3.Text)y2 = Val(Text4.Text)Text5.Text = Pol(x1, y1, x2, y2)Const pi = 3.14159265358979a = 180 * Pol(x1, y1, x2, y2) / pia1 = Int(a)a2 = Int((a - a1) * 60)a3 = Int(((a - a1) * 60 - a2) * 60)Text13.Text = a1Text14.Text = a2Text15.Text = a3End SubFunction Pol(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double Dim pipi = 3.14159265359Dim dy As Doubledy = Abs(y2 - y1)If dy = 0 Thendy = 0.0000000001End IfPol = Atn((Abs(x2 - x1)) / dy)If x2 > x1 And y2 >= y1 Then '0-90ElseIf x2 < x1 And y2 <= y1 Then '180-270Pol = pi + PolElseIf x2 < x1 And y2 >= y1 Then '270-360Pol = 2 * pi - PolElseIf x2 >= x1 And y2 <= y1 Then '90-180Pol = pi - PolEnd IfEnd FunctionPrivate Sub Command2_Click()Dim fwj As DoubleDim hdj As DoubleDim b1, d1, juli As DoubleDim pipi = 3.14159265358979b1 = V al(Text3)d1 = V al(Text4)juli = Val(Text8)hdj = (V al(Text9.Text) + Val(Text10.Text) / 60 + V al(Text11.Text) / 60 / 60) * pi / 180 hdj = Format(hdj, "0.000000")fwj = (Text5.Text + pi - hdj)Text6.Text = Val(b1 + juli * Cos(fwj))Text7.Text = Val(d1 + juli * Sin(fwj))Text12.Text = fwja = Text12.Text * 180 / 3.14159265358979a1 = Int(a)a2 = Int((a - a1) * 60)a3 = Int(((a - a1) * 60 - a2) * 60)Text16.Text = a1Text17.Text = a2Text18.Text = a3Text7.Text = Format(Text7.Text, "0.00")Text6.Text = Format(Text6.Text, "0.00")End SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text12.Text = ""Text13.Text = "" Text14.Text = "" Text15.Text = "" Text16.Text = "" Text17.Text = "" Text18.Text = ""End Sub。
教你如何通过ExcelVBA编写测量坐标计算程序
教你如何通过ExcelVBA编写测量坐标计算程序（入门篇）摘要：认识VBA、理解VBA，并利用Office Excel VBA编写测量坐标计算程序。
关键词：Excel VBA 程序坐标编写了解：VBA是什么？简单的说就是一种自动化语言，它可以使常用的程序自动化,可以创建自定义的解决方案。
可以用E xcel的宏语言来使E xcel自动化运行等……Microsoft让它开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application(VBA)，可以认为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的过程、变量、属性、方法、事件、语句等。
测量导线计算VB程序设计
收稿日期:2003-03-13作者简介:薄志义(1964-),男,辽宁工程技术大学测量工程专业毕业,中国矿业大学(北京校区)在读博士生,副教授。
测量导线计算VB 程序设计薄志义1,2(1.中国矿业大学北京校区,北京100083;2.北京工业职业技术学院,北京100042)摘 要:应用Visual BASIC (VB )计算机编程语言对图根导线计算进行编程设计。
探讨了VB 编程方法技巧与测量计算有机的结合,程序具有较高的实用性。
关键词:测量导线;计算;VB ;程序设计中图分类号:P209 文献标识码:B 文章编号:1671-6558(2003)03-08-04VB Program Design of T raverse C alculationBo Zhiyi 1,2(1.China University of Mining &Technology ,Beijing 100083,China 2.Beijing Vocational &Technical Institute of Industry ,Beijing 100042,China )Abstract :This article applies Visual BASIC to program design of traverse calculation ,and explores better combi 2nation of programming methods and traverse calculation ,which proves to have high practical value.Key words :traverse ;calculation ;VB ;seismic source ;program design1测量导线计算VB 程序的功能本程序适用于地形测量、地籍测量、工程测量中的图根导线的计算。
坐标正算、反算计算方法及在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 点对应的坐标。
vb坐标正算程序
VB坐标正算程序简介VB坐标正算程序是一种用于计算地理坐标的计算机程序，使用VB语言编写。
本文将深入探讨VB坐标正算程序的原理、功能以及使用方法。
原理VB坐标正算程序基于数学和地理学的原理，通过输入已知的地理坐标和相关参数，计算出目标点的地理坐标。
其原理主要包括以下几个步骤：1. 坐标系统转换VB坐标正算程序支持不同的坐标系统，如经纬度坐标、UTM坐标等。
在进行计算之前，需要将输入的坐标转换为程序所使用的统一坐标系统。
2. 大地测量模型大地测量模型是VB坐标正算程序中的核心算法，用于计算地球上两点之间的距离和方位角。
常用的大地测量模型有球面模型和椭球模型，根据实际需求选择合适的模型进行计算。
3. 参数输入在进行坐标正算之前，需要输入已知的地理坐标和相关参数。
已知的地理坐标可以是已知点的经纬度或UTM坐标，相关参数包括大地测量模型的参数、椭球模型的参数等。
4. 坐标计算根据已知的地理坐标和相关参数，通过大地测量模型进行计算，得出目标点的地理坐标。
功能VB坐标正算程序具有以下主要功能：1. 坐标系统转换VB坐标正算程序可以实现不同坐标系统之间的转换，如经纬度坐标转换为UTM坐标，UTM坐标转换为经纬度坐标等。
通过这个功能，用户可以方便地在不同坐标系统之间进行转换。
2. 大地测量计算VB坐标正算程序可以根据已知的地理坐标和相关参数，通过大地测量模型计算目标点的地理坐标。
用户只需输入已知点的坐标和相关参数，程序即可自动计算出目标点的坐标。
3. 参数设置VB坐标正算程序提供了参数设置功能，用户可以根据实际需求设置大地测量模型的参数、椭球模型的参数等。
通过参数设置，用户可以根据实际需求进行精确的坐标计算。
4. 结果输出VB坐标正算程序可以将计算结果以文本形式输出，用户可以方便地查看计算结果。
输出结果包括目标点的经纬度坐标、UTM坐标等。
使用方法以下是VB坐标正算程序的使用方法：1. 安装程序首先，用户需要将VB坐标正算程序安装到计算机上。
道路中边桩坐标计算及VB程序设计
12
铁 道 勘 察
2006 年第 6 期
自由网参考基准变换方法的探讨
姚海敏
1, 3
赵一晗
2
( 11 上海航道局 , 上海 200090; 21 同济大学测量与国土信息工程系 , 上海 200092; 31中国地质大学 (北京 ) , 北京 100000 )
Explora tion for Var i a ble M ethods of Free Net Reference Da tum Po in t
XK YK = XHZ YHZ -
co sA2 sinA2
- sinA2 co sA2
x y
6RLS
( 7)
图 3 缓和段 K2 点坐标计算示意
图 5 缓和段 K4 点坐标计算示意
上式中 l为桩点至缓和曲线起点 ZH 点 (或 HZ )
曲线长 , 由 K2 点至 ZH 点 (或 HZ ) 里程差求得 。 R 为 圆曲线半径 , LS 为缓和曲线长度 。 β K2 点切线方位角 : A2 ′ = A1 ± 右偏为“ + ” , 左偏为“ - ” ; 其中 β为缓和曲线角 2 β = l / ( 2RLS ) 。 ( 2 )圆曲线上桩点 (如图 4 中 K3 点 ) φ+q x = R sin ( 5) φ) + q y = R ( 1 - co s 式中 φ = l /R +β 0 , l 为桩点至 HY 点的曲线长 , 仅 为圆曲线部分的长度 。
当曲线为左转角时 ,以 y = - y 代入 。
113 YH 点至 HZ 点之间的中桩坐标计算
如图 5中 K4 点 , 此段为第二缓和曲线 , 仍用式 ( 4)计
( 4)
l l 2 2 + 4 4 40R LS 3 456R LS l 3 3 336R LS
vb坐标正算程序
vb坐标正算程序
VB坐标正算程序是一种用于计算点位坐标的工具，通常用于工程测量、地理信息系统等领域。
通过输入已知点的坐标和距离、方位角等数据，程序可以准确计算出目标点的坐标。
下面将详细介绍VB 坐标正算程序的使用方法和注意事项。
打开VB坐标正算程序，通常程序界面会包括输入框和计算按钮。
在输入框中，需要输入已知点的坐标、距离和方位角等数据。
确保输入的数据准确无误，否则会影响计算结果的准确性。
接下来，点击计算按钮，程序会根据输入的数据进行计算，最终显示目标点的坐标。
在计算过程中，程序会考虑各种因素，如坐标系、单位制等，确保计算结果符合实际需求。
在使用VB坐标正算程序时，需要注意以下几点：
1. 确保输入的数据准确无误，包括坐标、距离、方位角等信息。
2. 注意选择合适的坐标系和单位制，以保证计算结果的准确性。
3. 在计算过程中，及时保存已知点和目标点的数据，方便后续查阅和使用。
4. 如遇到计算结果不符合预期的情况，及时检查输入数据和计算方法，找出错误并进行修正。
总的来说，VB坐标正算程序是一种方便快捷的工具，可以帮助工程师、测量员等专业人士准确计算点位坐标。
通过正确使用该程序，
可以提高工作效率，减少人为误差，确保测量数据的准确性和可靠性。
希望以上介绍能帮助大家更好地理解和应用VB坐标正算程序。
教你如何通过ExcelVBA编写测量坐标计算程序
教你如何通过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需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
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格式，当然用户可以根据实际需要设置其它格式。
高程的输入方式可以是直接输入高程数据或者根据高差来计算高差。
教你如何通过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需要认识英文字母、一般的单词（如：函数所用的过程）、数学基础知识、测量常识、逻辑性思维即可。
vb坐标正算程序
vb坐标正算程序
VB坐标正算程序是一种非常实用的工具，它可以帮助我们快速计算出某个点的坐标。
在实际工作中，我们经常需要用到这种工具，比如在地图制作、测量、建筑设计等领域。
VB坐标正算程序的实现原理是利用数学公式来计算出目标点的坐标。
具体来说，我们需要知道已知点的坐标、距离和方位角，然后根据三角函数公式来计算出目标点的坐标。
这个过程需要用到VB 语言的数学函数和逻辑运算符，因此需要一定的编程基础。
在编写VB坐标正算程序时，我们需要注意以下几点：
1. 确定计算公式：根据已知点的坐标、距离和方位角，确定计算目标点坐标的公式。
这个公式需要考虑到坐标系的不同，比如笛卡尔坐标系和极坐标系的计算公式是不同的。
2. 输入数据的格式：在编写程序时，需要考虑输入数据的格式，比如坐标的单位、距离的单位、方位角的单位等。
这些单位需要在程序中进行转换，以保证计算的准确性。
3. 界面设计：为了方便用户使用，我们需要设计一个简洁明了的界面，让用户能够方便地输入数据和查看计算结果。
界面设计需要考虑到用户的使用习惯和操作流程，以提高用户的体验。
4. 错误处理：在编写程序时，需要考虑到可能出现的错误情况，比
如输入数据错误、计算公式错误等。
我们需要在程序中加入相应的错误处理机制，以避免程序崩溃或计算结果错误。
VB坐标正算程序是一种非常实用的工具，它可以帮助我们快速计算出目标点的坐标。
在编写程序时，我们需要考虑到计算公式、输入数据的格式、界面设计和错误处理等方面，以保证程序的准确性和易用性。
VB报告(坐标正反算使用说明)
一、输入界面1.单击VB中的“运行”快捷键，弹出图1所示的运行界面图12.在图1中选择按钮，进入坐标正算模式，如图2图2在图2中输入已知点坐标、已知点至未知点的边长和坐标方位角、保留的小数位数，点名可不输入，输入完后，选择“计算”按钮。
如要计算多个点坐标，则计算完一个点后用鼠标单击“刷新”按钮，重复以上操作即可。
若想退出坐标正算功能，用鼠标左键单击“退出”按钮，在弹出的提示框中选择“是”，如图3图33. 在图1中选择按钮，进入坐标反算模式，如图4图4在图4中输入两个已知点坐标、保留的小数位数，点名可不输入，输入完后，选择“计算”按钮。
如要计算多个点坐标，则计算完一个点后用鼠标单击“刷新”按钮，重复以上操作即可。
若想退出坐标反算功能，用鼠标左键单击“退出”按钮，在弹出的提示框中选择“是”，如图3二、输入，输出数据表格中的方位角以小数的形式输入，例如“321°18′56″“的输入格式为321.1856，若度数为321°18′56.5″的输入格式为321.18565，坐标的保留位数保留三位，别的以此类推方位角以小数的形式输入，例如“164°02′02″”的输入格式为164.0202，若度数为164°02′02.5″的输入格式为164.02025，表格中的方位角的小数保留位数为0位三、源代码Private Sub Command1_Click()If Option1.Value = True And Option2.Value = False Thenzhengsuan '当选择坐标正算按钮时调用坐标正算程序End IfIf Option1.Value = False And Option2.Value = True Thenfansuan '当选择坐标反算按钮时调用坐标反算程序End IfEnd Sub'坐标正算程序Private Sub zhengsuan()Dim s As DoubleDim a As DoubleDim x As DoubleDim y As DoubleDim m As DoubleDim n As DoubleDim degree As DoubleDim minute As DoubleDim second As DoubleDim rad As DoubleDim bbt As IntegerDim result As DoubleDim p As Doubles = Val(Text5.Text)a = Val(Text6.Text)Rad_do a, degree, minute, second, rad '调用将度分秒转化为弧度的程序x = Val(Text2.Text) + s * Cos(rad)y = Val(Text3.Text) + s * Sin(rad)p = Fix(x)x = x - pbbt = Val(Text4.Text)Sheru m, n, bbt, x, result '调用奇进偶舍程序Label12.Caption = result + pp = Fix(y)y = y - pSheru m, n, bbt, y, result '调用奇进偶舍程序Label13.Caption = result + pEnd Sub'坐标反算程序Private Sub fansuan()Dim s As DoubleDim x As DoubleDim y As DoubleDim sing As DoubleDim m As DoubleDim n As DoubleDim f As DoubleDim result As DoubleDim bbt As IntegerDim degree As DoubleDim minute As DoubleDim second As DoubleDim rad As DoubleDim p As Doublex = Val(Text5.Text)y = Val(Text6.Text)m = y - Val(Text3.Text)n = x - Val(Text2.Text)If n <> 0 Thenm = m / nrad = Atn(m)sing = Sgn(rad)End Ifdegree_m_s degree, minute, second, rad '调用将弧度转化为度分秒的程序bbt = Val(Text8.Text)m = second * 10 ^ bbtp = Fix(second)second = second - pSheru m, n, bbt, second, result '调用奇进偶舍程序second = result + pfangweijiao degree, minute, second, (x - Val(Text2.Text)), (y - Val(Text3.Text)), sing '调用计算坐标方位角的程序zhuanhua minute, second, degreesecond = second * 10 ^ bbtLabel13.Caption = degree & "." & minute & secondIf minute < 10 ThenLabel13.Caption = degree & "." & "0" & minute & secondEnd IfIf second < 10 ^ (bbt + 1) ThenLabel13.Caption = degree & "." & minute & "0" & secondEnd IfIf minute < 10 And second < 10 ^ (bbt + 1) ThenLabel13.Caption = degree & "." & "0" & minute & "0" & secondEnd If'计算边长Ss = (y - Val(Text3.Text)) ^ 2 + (x - Val(Text2.Text)) ^ 2s = Sqr(s)bbt = Val(Text4.Text)p = Fix(s)s = s - pSheru m, n, bbt, s, result '调用奇进偶舍程序Label12.Caption = result + pEnd Sub'将度分秒化为弧度Private Sub Rad_do(ByVal a As Double, ByVal degree As Double, ByVal minute As Double, ByVal second As Double, ByRef rad As Double)degree = a \ 1a = a - Fix(a)minute = Fix(a * 100)second = (a * 100 - minute) * 100rad = (3600 * degree + 60 * minute + second) / 206264.8063End Sub'将弧度转化为度分秒的程序Private Sub degree_m_s(ByRef degree As Double, ByRef minute As Double, ByRef second As Double, ByRef rad As Double)rad = rad * 180 / 3.1415926535degree = rad \ 1rad = (rad - degree) * 60minute = rad \ 1second = (rad - minute) * 60End Sub'奇进偶舍程序Private Sub Sheru(ByVal m As Double, ByVal n As Double, ByVal bbt As Double, ByVal x As Double, ByRef result As Double)m = x * 10 ^ bbtn = m - m \ 1If n < 0.5 Thenresult = (m \ 1) / 10 ^ bbtElseIf n > 0.5 Thenresult = (m \ 1 + 1) / 10 ^ bbtElseIf (m \ 1) Mod 2 Thenresult = (m \ 1 + 1) / 10 ^ bbtElseresult = (m \ 1) / 10 ^ bbtEnd IfEnd IfEnd Sub'计算坐标方位角的程序Private Sub fangweijiao(ByRef degree As Double, ByRef minute As Double, ByRef second As Double, ByVal m, ByVal n As Double, ByVal sing As Integer)Dim i As IntegerIf sing = 1 ThenIf n < 0 And m < 0 Thendegree = degree + 180End IfElseIf sing = -1 ThenIf n > 0 And m < 0 Thendegree = degree + 179minute = minute + 59second = second + 60ElseIf n < 0 And m > 0 Thendegree = degree + 359minute = minute + 59second = second + 60End IfEnd Ifi = Sgn(n)If m <> 0 ThenIf m < 0 And n = 0 Thendegree = "180"ElseIf m > 0 And n = 0 Thendegree = "0"End IfElseIf i = 1 Thendegree = "90"ElseIf i = -1 Thendegree = "270"ElseMsgBox "您输入了两个相同的点，请重新输入！"End IfEnd IfEnd Sub'当分秒超过60时须向上一级进位及方位角度数超过360°须减360°的程序Private Sub zhuanhua(ByRef minute As Double, ByRef second As Double, ByRef degree As Double)If second >= 60 Thenminute = minute + 1second = second - 60ElseIf second < 0 Thenminute = minute - 1second = second + 60End IfIf minute >= 60 Thendegree = degree + 1minute = minute - 60ElseIf minute < 0 Thendegree = degree - 1minute = minute + 60End IfIf degree >= 360 Thendegree = degree - 360End IfEnd Sub'退出程序Private Sub Command3_Click()If MsgBox("是否退出？", vbYesNo, "提示") = vbYes ThenUnload MeEnd IfEnd Sub'刷新程序Private Sub Command4_Click()Text2.Text = ""Text3.Text = ""Text4.Text = 3Text5.Text = ""Text6.Text = ""Text8.Text = 1Label12.Caption = ""Label13.Caption = ""End Sub'设置窗体的大小，使窗体充满整个屏幕并对label6和label7赋值Private Sub Form_Load()Me.Height = Screen.HeightMe.Width = Screen.WidthMe.Left = 0Me.Top = 0Label6.Caption = "边长（S）"Label7.Caption = "方位角（a）"Label17.Caption = "陈亮编程"Label18.Caption = " 2011.09.05"End Sub'设置坐标正算时Label6.Caption和Label7.Caption的值及设计小数点位数Private Sub Option1_Click()If Option1.Value = True And Option2.Value = False ThenLabel14.Caption = Text1.Text & "—>未知点" & Text7.TextLabel6.Caption = "边长（S）"Label7.Caption = "方位角（a）"Label10.Caption = "X"Label11.Caption = "Y"Text4.Text = 3Text8.Text = 1End IfEnd Sub''设置坐标反算时Label0.Caption和Label1.Caption的值及设计小数点位数Private Sub Option2_Click()If Option1.Value = False And Option2.Value = True ThenLabel6.Caption = "X"Label7.Caption = "Y"Label14.Caption = ""Label10.Caption = "边长（S）"Label11.Caption = "方位角（a）"Text4.Text = 3Text8.Text = 1End IfEnd Sub。
VB在测量数据处理中的应用
VB在测量数据处理中的应用摘要本文主要探讨利用VB编制程序处理数据，方便数据交换和生成一些数据成果关键词VB程序设计文件类型数据格式一、引言随着计算机程序设计语言的不断发展，面向对象编程是当今程序设计的一个趋势，VB语言是一种简单易学的面向对象编程语言，本人运用它编制一些程序, 通过改变文件类型或数据格式等方式,对测量中些数据进行处理，达到转换成我们需要数据的目的，方便我们的测量工作。
我单位现在拥有Leica GPS530卫星定位系统，全站仪以及清华山维绘图及线路软件等，在工程测量中，通常需要将不同设备和软件中的数据进行相互转换，成为我们所需要的文件类型或数据格式，同时为了工作方便，还要对不同数据进行编辑修改。
如将GPS-RTK动态测量的点转入电子平板或线路软件，利用全站仪内存记录的测量点传入绘图软件等，以及在线路测量工作中将线路软件中输出的中线成果编制成中线成果表，在CAD中如何实现高程系统加减常数等问题，都可以通过VB编制一些小程序，实现数据处理的目的。
现就以下几例结合我单位的设备及工程实例，运用编制的程序处理数据，谈谈在实际中工作的体会。
二、全站仪外业数据存入内存，内业数据处理1、现势性在野外测量工作中，通常是全站仪测量数据，同时传输到绘图软件中，这样可现场成图，但是需要笔记本等设备。
有时，外业作业条件恶劣，或是笔记本等设备不能工作时，可将外业测量数据传输到仪器内存。
这样，可尽可能的缩短外业的作业时间，也可克服设备不足的弱点。
现在各种不同的绘图软件也应用于工作中，文件中，有记录操作步骤的文件，因此，有必要将全站仪内存中的数据格式转换成绘图软件中的文件的数据格式，实现数据交换，然后利用绘图软件编辑处理，完成图形。
现以全站仪TC307和清华山维EPSW98绘图软件为例说明。
2、数据处理过程将全站仪中数据传输到清华山维的软件中1）在全站仪中建工作，设置工作项目，将测量数据传输到内存中2）利用与仪器配套的数据传输软件，将数据*.gsi格式文件下载到计算机中，传输过程中注意数据格式，通常传输测量点的水平角、垂直角（天顶距）、斜距、仪器高等3）将数据传输到绘图软件中（1）文件类型转换全站仪TC307的数据格式数GSI 8位格式，文件类型为*.gsi类型，我单位采用的是清华山维EPSW98软件，记录操作步骤的数据格式文件类型为*.fld类型。
利用VB编程进行道路中边桩坐标计算_王汉雄
利用VB 编程进行道路中边桩坐标计算王汉雄1,2赵晓东1(1.黄淮学院建筑工程系 河南#驻马店 463000 2.武汉大学测绘学院 武汉市 430079)提要 该文介绍了一种原理简单、操作方便的关于道路中边桩坐标计算的方法,以及运用Visual Basic 语言编程计算坐标,经工程一线使用有较好的实用价值。
关键词 Visual Basic 坐标计算 缓和曲线 方位角Coordinate Calculation of Middle Piles or Side Piles of Road UsingVisual Basic ProgramWang Hanxiong1,2Zhao Xiaodong1(1.Architec ture E ngineering Department,Hua nghuai C ollege 2.C ollege of Surveying and Mapping,W uhan University)Abstract This paper introduces a method of coordinate calculation of middle piles or side piles of road,and this method is easy and available,which uses Visual Basic language to calculate c oordinate.It is very useful in practical application.Keywords Visual Basic;coordinate calculation;ease ment curve;azimuth基金项目:河南省驻马店市科技计划项目(042002)。
作者简介:王汉雄(1971-),男,硕士研究生、工程师,主要从事工程测量教学及应用研究工作。
收稿日期:2006-08-021 引言高等级道路施工,不仅要求道路中线、大型构筑物和中、小型结构物控制点的测设准确无误,而且构筑物、路基、路面及轨道施工也要做大量的细部施工测量。
VBA在线路测量计算中的运用
14VBA 在线路测量计算中的运用文/熊忠泉摘要：介绍作者根据多年的测量经验，快捷完成线路测量过程中直线段、圆曲线段的各种数据计算，特别适用于地形复杂、险峻，用全站仪放线难度较大地段的计算工作，快速、准确，易于掌握。
关键词：测量计算；曲线任意里程中边桩坐标正反算一、提出问题在工程的施工过程中，测量放样数据手工计算复杂，如手工输入数据到全站仪或者GPS 中更加影响工作效率和工作强度，为了能及时有效完成工作任务，笔者集合测量技术和EXCEL 程序相结合，利用EXCEL 中的VBA 功能编制出曲线任意里程中边桩坐标正反算的测量计算程序，程序结构简洁、易学易用、功能完善；适合任何线路结构的计算工作。
可以解决测量中的多种难题，满足实际工作的需要。
二、采用EXCEL 解决的问题思路EXCEL 作为目前常用的电子表格软件，它的主要特色是能够按预先编制的公式进行计算。
EXCEL 提供了对工程、财会、统计等多方面的众多函数，EXCEL 计算的一个显著特点是需事先指定计算流程，而且计算是单向性的，如果想进行交互式计算，使用EXCEL 提供的函数功能就很难实现了。
虽然EXCEL 提供了单变量求解功能，但经使用发现，该功能在很多场合无法获得正确结果，如果想进行复杂计算，借助EXCEL 附带的VBA 功能则能较好地解决此类难题。
EXCEL 提供了“宏”的概念来进行功能扩展。
宏是存储在VisualBasic 模块中的一系列命令和函数，当需要执行该项任务时可随时运行宏。
通过对线路计算的分析，我们的思路是首先在EXCEL 中设计好计算表，然后应用VBA 进行线路计算，再将计算结果传递至EXCEL 表中，利用Gauss-Legendre5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、边距，最后计算出放样数据。
利用VB编制道路中桩坐标计算软件
利用VB编制道路中桩坐标计算软件1、引言高等级道路施工，不仅要求道路中线、大型构筑物和中、小型结构物控制点的测设准确无误，而且还要做大量的细部施工测量。
测量工作是保证道路施工顺利进行的基本条件，直接关系到道路工程建设的速度和质量。
因此，测量工作十分重要。
而现阶段主要采用全站仪和GPS，无论采取那种测量方法，其核心部分都要先计算公路中线上任一中桩点的坐标。
本文针对工程实际，根据完善的计算方法，并且采用Visual Basic语言编程进行道路中桩坐标计算，取得了不错的效果。
2、计算方法高等级道路设计与施工，必须建立一个贯穿全线的统一坐标系，这个坐标系一般采用国家坐标系统。
如图1，相邻三交点（JD1、JD2、JD3）的坐标可在地形图上量取或在实地测定。
路线导线的坐标方位角A1，A2,A3和边长S1、S2可直接按坐标反算公式求得：转角α=A2-A1，若α>0则路线右偏，若α<0则路线左偏。
在选定各圆曲线半径R及缓和曲线长度LS后，根据各桩点里程桩号即可求出相应的中桩坐标。
2.1直线点K1的坐标求法如图2，根据K1与JD1（或起点）的桩号求得两点的距离l.已知该直线的坐标方位角A1，故K1的坐标为：在点K1上，该点的切线方向就是JD1-JD2直线方向，所以K1点切线方位角：A’1=A1。
2.2 ZH点至YZ点之间的坐标计算此段包括第一缓和曲线和圆曲线，可先计算桩点的切线支距法坐标x,y。
缓和曲线上的桩点，如图3中K2点上式中l为桩点至缓和曲线起点ZH点曲线长，由K2点至ZH点里程求得。
R为圆曲线半径，Ls为缓和曲线长度。
K2切线方位角：A，2=A1±β右偏为“+”，左偏为“-”。
其中β为缓和曲线角，β=l2/(2RLS)圆曲线上桩点，如图4中K3点式中，Φ=l/R+β0,l为桩点至HY点到曲线长，仅为圆曲线部分的长度。
缓和曲线角：切线增长值:曲线内移值：K3点切线方位角K3点切线方位角：A，3=A1±Φ，右偏为“+”,左偏为“-”。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
文章编号:100723817(2007)022*******中图分类号:P258 文献标志码:B应用VB 实现中线测量中任意点坐标的快速计算戴建军1,2 陈桂珍3(1中南大学信息物理工程学院,长沙市麓山南路256号,410083;2南昌铁路勘测设计院,南昌市工人新村二路27号,330002;3浙江省建设职业技术学院,杭州市通惠北路1号,311231)摘 要 根据带有缓和曲线的圆曲线的测设原理,应用了面向对象的VB 语言,设计了曲线主点(五大桩)与细部点(各中桩)的坐标检核,实现了中线测量中任意点坐标的快速计算。
关键词 VB ;中线测量;特征点;缓和曲线 在高山、丛林等困难地段进行中线测量时,由于偏角法、切线支距法、弦线支距法、长弦偏角法测设曲线,很难满足甚至不能满足各特征点的放样,而任意点置镜极坐标法则可以满足各特征点的放样,因此任意点置镜极坐标法放样成为曲线测设中首先选用的方法。
此外全站仪以其精度高、速度快、操作简便等诸多优点受到测绘界的广泛关注;尤其是全站仪内置的放样程序,已使得测绘工作者从繁琐的外业坐标数据计算中完全解脱出来。
所以任意点置镜极坐标法在外业硬件方面是切实可行的。
为了快速有效地计算各特征点(中桩)的坐标和任意点(桥涵加桩或破链桩)的坐标,在Vis 2ual Basic6.0平台下,编写了一整套曲线坐标计算程序,正好解决了此问题。
1 曲线测设原理当圆曲线两端加入缓和曲线后,圆曲线应内移一段距离,方能使缓和曲线与直线衔接。
而内移圆曲线,则采用移动圆心的方法实现。
带缓和曲线的圆曲线图如图1所示,若圆曲线的圆心O 1沿着圆心角的平分线内移至O 2(此时O 1O 2=p sec (α/2),p 值的大小,按p =l 02/24R 计算),圆曲线的两端就可以插入缓和曲线,把圆曲线与直线平顺地连接起来。
图1 带缓和曲线的圆曲线图缓和曲线段测设数据的计算公式[1]:x i =l i -l 5i /(40R 2l 20)+l 9i /(3456R 4l 40)(1)y i =l 3i /(6Rl 0)-l 7i /(336R 3l 30)(2)式中,(x i ,y i )为待求点i 在缓和曲线上的坐标,l i 为待求点i 到Z H 点的曲线长,l 0为缓和曲线长,R 为圆曲线半径。
圆曲线段测设数据的计算公式[1]:x i =R sin ((2l i -l 0)/2R )+m (3)y i =R (1-cos ((2l i -l 0)/2R )+p(4)式中,x i ,y i 为待求点i 在圆曲线上的坐标,l i 为圆曲线上待求点i 到Z H 点的曲线长,l 0为缓和曲线长,R 为圆曲线半径,m 为加设缓和曲线后使切线增长的距离,p 为加设缓和曲线后圆曲线相对于切线的内移量。
2 程序设计思路如果是新线定线测量,从设计图纸或设计图电子文档上,可以获得如图1中的ZD O 、J D 1、ZD 2的平面坐标,还有曲线要素半径R 、缓和曲线长l 0、曲线转向角α,然而此程序刚好只需要这些数据,就可以计算出曲线上任意点里程的坐标(首先是20m 的整数倍桩,然后在加桩计算中计算任意点里程的桩)。
如果是既有线改造测量,能够从设计人员那里,得到原曲线的曲线转向角和新设计的曲线半径R 、缓和曲线长l 0,这样对程序来说就少了交点坐标,当然在既有线改造测量中,测量人员要到现场测出既有曲线的转向角(也就是铁路测量人员常说的大偏角),在测转向角的同时,可以先假设一条切线边的两个点坐标(其中一个与交点近的点选在既有曲线直缓标远离交点40～60m 为宜,另一条切线边的其中一点也类似如此),通过副交的方法得出另一条切线边的两个点的坐标。
然后在工程应用菜单中点击交点坐标反算,弹出对话框,再把实地四个点的坐标依次填入弹出的对话框中,即可计算出曲线交点的坐标,下一步类似新线定线测量操作。
为了提高程序的实用性,对程序中主点坐标与各细点坐标(包含计算主点坐标)分开进行计算,这样就做到了坐标计算检核,从而提高了数据的可靠性。
程序设计流程图如图2所示。
图2 程序设计流程图32测绘信息与工程 Journal of G eomatics Apr.2007;32(2)3 应用实例该程序已经运用到南昌铁路勘测设计院工勘所在华龙瑞金电厂铁路专用线(地形极其复杂)的线路定测中,在快速计算中线坐标、桥涵加桩与破链桩坐标时,表现了突出的优势。
其主要功能简单介绍如下:一是可以一次性计算出曲线要素和五大桩坐标,以及根据曲线特性所确定的20m 的整数倍里程桩坐标;然后在现场进行定测时,可以加任意桥涵里程桩以及曲线上各特征变化点里程桩坐标。
即只要线路有里程数据,不管是直线段、圆曲线段还是缓和曲线段,都可以根据程序提示分别计算出它们的坐标数据。
二是程序界面设计友好,操作方便、直观。
操作步骤如下:根据程序默认的曲线右偏,可以点击工程应用(P )菜单中的曲线右偏计算,然后弹出数据输入窗口,数据输入框如图3所示。
依次输入已知数据(为避免带入其他非数字字符,在图3 数据输入框文本框中,已对非数字字符做了屏蔽处理),最后单击确定按钮;如果曲线数据确实是右偏,则会出现程序运行结果。
程序运行结果如图4所示,中线计算数据已按顺序输出到文本框中(如图4)。
如果曲线数据不是右偏,则会弹出输入数据图4 程序运行结果有误,请重新输入数据的提示框;然后程序退回到如图3所示的界面,等待修改数据,进行再一次计算。
加桩计算可以点击工程应用(P )菜单中的曲线右偏加桩计算,则会弹出一个只有一个文本框的加桩对话框窗体,可以在文本框中输入任意里程,然后确定就可以计算出加桩里程的坐标。
最后在编辑菜单里可以点击输出到AutoCAD ,则曲线图形显示在CAD 中,使用者可以直观地检查计算数据的正确性;同时可以点击输出到Excel 表格或保存到.dat 的文本格式的文件中,可以作为勘测数据资料保存,提交给设计人员出中线桩资料,以备项目施工前交桩时使用。
4 结束语在曲线测设时,尤其是在通视情况不好的长曲线测设时,对带有缓和曲线的圆曲线的五大桩以及加密桩进行计算,其数据量庞大且复杂,特别是现场计算各加密点(桥涵与破链桩)的坐标,很容易出现错误。
本程序可以一次性计算出曲线中的五大桩及各加密桩的坐标;同时可以直接导入到Excel 中,然后转换成全站仪能够接收的记事本格式(3.dat )的文件,直接传输到全站仪中,完全避免了手工带来的错误。
同时程序中设置了中线坐标计算数据,在AutoCAD 图形软件上的原貌再现。
实践证明其在线路测设中,计算任意点的坐标与普通方法(手算或其他软件)相比,效率要高出几倍,尤其是在长线路测设时,效果更佳。
参考文献[1]李青岳,陈永奇.工程测量学[M ].北京:测绘出版社,1995[2]龚沛曾,陆慰民,杨志强.Visual Basic 程序设计教程[M ].北京:高等教育出版社,1998[3]铁道部第二勘测设计院.铁路测量手册[M ].北京:中国铁道出版社,1997[4]李长勋.AutoCAD ActiveX 二次开发技术[M ].北京:国防工业出版社,2005[5]TB 1010121999.新建铁路工程测量规范[S].北京:中国铁道出版社,1999[6]冯秀云,夏洋.缓和曲线段任意测点的归化计算[J ].测绘信息与工程,2002,27(3):22223[7]钭祖民,黄强火.快速放样线路中桩及边桩[J ].测绘信息与工程,2001,26(2):14216 收稿日期:2006211207。
第一作者简介:戴建军,硕士研究生,现主要研究GIS 的应用。
E 2m ail :cl_980617@FAST COMPUTATION OF RANDOM POI NT COORDI NATESI N CENTER CURVE SURVEY WITH VBDAI Jianjun 1,2 CHE N G uizhen 3(1School of I nfo 2Physics and Geomatics Engineering ,Central South University ,256South Lushan Road ,ChangSha 410083,China ;2Nanchang Railway Survey and Design I nstitute ,27Erlu Road G ongrenxin Village ,NanChang 330002,China ;3Zhejiang College of Construction ,1North T onghui Road ,Hangzhou 311231,China )ABS TRACT The VB of object oriented languages is applied to design the check between prima 2ry point coordinates and detail point coordinates.The fast computation of random point coordi 2nates in center curve survey is realized based on the principle of measure and design in circular curve of owning easement curve.KEYWORDS visual basic ;center curve survey ;character point ;easement curve42测绘信息与工程 Journal of G eomatics Apr.2007;32(2)。