内外业一体化数字测图

1、内外业一体化数字测图引 言测绘领域的发展是飞速的，以前的测绘是人力加物力，而现在的测绘已是脑力加科技。随着微电子工业和计算机应用技术的飞速发展，测绘仪器电子化和自动化已成为现实。到现在，传统的测绘仪器如光学经纬仪，大平板仪都已被淘汰，出现在测绘市场的都是新的电子仪器。电子经纬仪、电子全站仪、电子水准仪已不在是测绘中的新名词，甚至还有比它们更新更先进的仪器gps、rtk。所以现在的测绘将是一个新的时代，对测绘人员也有了更新的要求，以前的一些老测工已被时代的发展淘汰，以前的大平板手工测图也被现在的电子全站仪数字测图所代替。本次毕业设计所用的方法就是“内外业一体化数字测图”，它的数据采集速度快、精度

2、高，成图周期短、质量高、方便修测的特点是我们以后的工作测绘中的主要手段，对于我们测绘专业的学生来说，数字化成图是我们今后走上工作单位所用的最主要的方法，学会它对我们今后的工作具有很重要的意义。 通过此次毕业设计的学习，我们不但在理论上对数字化测图方法有了更好的掌握，而且在实际操作上也有了更强的锻炼。使我们的综合能力水平有了一定的提高。第一章：概 述1.1 测区概况及收集测绘资料本次毕业设计任务分两部分，一是内蒙古农业大学西区校园内首级控制，二是内蒙古霍林河水库溢洪道1：500地形图及断面图编绘。其中，内蒙古农业大学西区校园内首级控制引用的是1997年内蒙古农牧学院工程设计院提供的控制点资料；霍

3、林河水库溢洪道1：500地形图及断面图编绘引用的是2005年6月霍林河水库测绘提供的测绘资料。1.1.1 测区概况（一）、内蒙古农业大学西区校园概况内蒙古农业大学西区校园（原内蒙古农牧学院），位于呼和浩特市区昭乌达路306号，地理坐标约东经111°4北纬40°50。学校始建于1952年，是内蒙古自治区创办最早的本科高等学校，至今已有50多年的历史。目前，学校西区校园占地面积约531000平方米。校园总人口近两万三千六百余人。学校交通方便。地形起伏较小，树木覆盖率较高，地物较多，通视条件较差。 （二）、内蒙古霍林河水库测区概况内蒙古霍林河水库位于霍林河市东南约8公里处。地理坐

4、标约东经119°4500，北纬45°3000。平均海拔900米左右。测区多年平均降水量360毫米左右，多集中在6、7、8、三个月，占到全年降水量的75%。多年平均蒸发量1525毫米左右。多年平均气温0.5左右，无霜期90天左右。巴润河横穿测区，测区内人口、地物稀少，植被覆盖率较低，测区地形破碎 ，高差起伏较大。1.1.2 收集到的测绘资料（一）、内蒙古内蒙古农业大学西区校园已收集到的测绘资料1、内蒙古农业大学西区校园附近导线点3个（属呼和浩特市坐标系），水准点1个（呼和浩特高程系），可供平面及高程控制使用。2、内蒙古农业大学西区校园内5导线点四个。具体资料见表1。表 1：收

5、集到的控制点点之记点号觇标类型点之记坐 标农17水泥桩位于农大西区报告厅前沥青路西侧1.05m处，距报告厅东北角13.82m，旧图书馆东南角26.60mx：18394.075y：22437.898h：1053.625农76300#砼淤滞位于农大西区计算机与信息工程学院楼东北角北偏东2度5分，距离为18.14m，距计算机与信息工程学院东沥青路的西道沿0.47mx：18624.119y：22498.170h：1054.575点号觇标类型点之记坐 标农78300#砼淤滞位于农大西区报告厅东南角南偏东49度43分，距离为28.74m，距报告厅前南北路的西道沿2.82m 。x：18317.083y：22

6、461.469h：1053.573农79300#砼淤滞位于农大西区校园内距教学主楼西北角22.8m距沥青路东道崖0.4m距主楼北人行道1m处x：18591.140y：22385.337h：1054.350在此控制点的基础上我们又做了整个西区校园的首级平面和高程控制点9个。具体资料见表2。表2：首级控制点点之记点号觇标类型点之记坐 标nd07水泥桩 位于农大西区旧图书馆东北角北偏东51度58分，距离为25.79m，距旧图书馆前南北路的东道沿2.82mx: 18491.472y: 22417.756h: 1054.106nd08水泥桩位于农大西区饮食服务公司楼东北角北偏东56度26分，距离为19.

7、02m，距农大北墙栅栏杆11.03m，西面车棚东南角8.33mx:18741.651 y:22332.906 h:1054.644nd09水泥桩位于农大西区新图书馆西北角北偏西31度13分，距离为58.32m，距图书馆北沥青路的北道沿2.65m。距西面路灯8.01m x:18782.753y:22454.529 h:1055.112nd10铁桩位于农大西区理学院楼西南角南偏西7度10分，距离为22.06m，距“nd07”12.81m，距理学院前沥青与水泥交界1.08m x:18502.585 y:22411.384h:1053.965nd13铁桩位于农大西区校园内, 新教学楼西北草坪小路砖缝中

8、，距西区报告厅东南角55.96m,距新教学楼西北角30.57mx:18287.769 y:22468.256 h:1053.629nd11铁桩位于农大西区校园内,主楼东南31.60m,机电院主楼西北角6.85m x:18539.300 y:22539.522 h:1054.369nd14水泥桩位于农大西区校园内, 距新教学楼西北角北偏东7度10分，距离为41.73m， 距新教学楼前沥青路北道沿8.57m,东道沿15.20m x:18304.927 y:22491.464 h:1053.607点号觇标类型点之记坐 标nd15水泥桩位于农大西区校园内, 距乳制品研究培训中心楼北偏东55度36分，距

9、离为25.88m， 距新教学楼前沥青路西道沿8.01m,距草坪中的塑像18.28m x:18355.220 y:22579.949 h:1053.707（二）、霍林河市巴润河水库已收集到的测绘资料（1）、1：25000地形图3幅，图名：两万平，图号：125096甲4；图名：托修，图号：125096丙2；图名：瑙道敏达巴，图号：125096丁1。测绘单位：中国人民解放军总参谋部测绘局。1981年10月航摄，1982年6月调绘，1984年第一版。1954年北京坐标系，1956年黄海高程系，等高距为5米，1971年版图式。（2）、内蒙古自治区测绘局科技情报馆提供国家三角点成果5个（等一0一二,等一0

10、0八，等八九六高地, 等一0六七高地, 等乡霍鄂博南山），水准点成果2个（乌鲁11-1，乌鲁12）。1.2 电子全站仪的认识（型号、内存、精度）1.2.1 电子全站仪的简介本次毕业设计中所采用的测量仪器是索佳set510（no：26316）全站仪。全站仪：是一个测站的全部测量工作由都一台仪器所完成。全站仪的望远镜瞄准轴与测距光轴同轴，一次瞄准能同时测出距离和角度。内置竖盘自动补偿器，能测出补偿后的天顶距，通过内部的探测设备能敏锐的检测出仪器的微小倾斜并自动给予改正。仪器正反两侧均有键盘通过选择按键，能在正反液晶显示窗内显示出水平角、天顶距、斜距、水平距离、高差、高程及x、y坐标。能进行连续测量

11、、跟踪测量、放样测量、悬高测量，两目标间的水平距离测量，在任何方向上水平度盘都可置零。测量的各种数据信息，可直接由内部存储器存储，并通过标准接口被电子外业手簿自动记录和处理，然后输入或传送到计算机内，借助与相应的编图软件进行绘图作业。 索佳全站仪操作界面电源系统电源可充锂电池bdc46，7.2v,1300mahbdc46可充电池单电池连续工作时间(25时)角度和距离同测约5小时(约600点),单次精测,30秒间隔,仅测角度约7小时单电池充电时间70分钟 (使用cdc61/62充电器)自动关机有效(30/15/10/5分钟无任何操作自动关机)/无效(可选)望远镜镜筒尺寸170mm物镜孔径45mm

12、放大倍率30×成像正像分辨率3最短焦距1.0m测角部角度单位 h&v360制/400制/密位制(可选)最小显示 h&v1/5(可选)测量时间小于0.5秒精度|so/d|s12857-2 h&v±5双轴自动补偿器补偿(v和h/v)/不补偿(可选)视准误差改正改正/不改正(可选)显示模式h顺时针/逆时针(可选)具有角度锁定、设置或置零功能v天顶0°/水平0°/水平0°/±90°和坡度（%）(可选)测距部测距范围a：一般条件：薄雾，能见度约20km晴天，大气轻微浮动g：良好条件：无雾，能见度约40km多云，

13、无大气浮动ap01×1单棱镜 a1m2400m g1m2700map01×3三棱镜 a1m3100mg1m3500m距离单位米/英尺/英寸(可选)测距模式精测/（单次/多次/平均）/粗测/（单次/多次）/跟踪(可选)最小显示精测：0.001m/粗测0.001m/跟踪0.01m精度（d为距离mm单位）*使用棱镜精测：±（2+3×10-6*d）mm粗测：±（5+5×10-6*d）mm气象改正、输入温度、气压值 、输入ppm值 、不改正(可选)温度输入范围-30+60 （每档1）气压输入范围(5001400)hpa(每档1hpa)/(375

14、1050)mmhg(每当1mmhg)ppm输入范围-499ppm+499ppm(每档1 ppm)棱镜常数改正值-99mm+99mm（每档1mm）地球曲率与折射改正改正（k=0.142/k=0.20/不改正）（可选）软件和数据传输内藏程序悬高测量、偏心测量、三维坐标测量、三维坐标放样、对边测量、后方交会、面积计算、方位角设置等数据内存约10000点水准器灵敏度照准部水准器30/2mm | 圆水准器10/2mm光学对中器成像：正像，放大倍率3×，最短焦距0.3m工作温度-20+501.2.2 索佳set510 全站仪技术指标简介第二章：基础测量的应用2.1 角度测量（水平角、竖直角）2.

15、1.1 水平角测量（一）、水平角的观测方法观测水平角的方法，一般根据测量工作要求的精度和施测时所用的仪器及目标数的多少而定。常用的方法有测回法和方向观测法两种。1、测回法这种观测方法适用于观测两个方向之间的单角。为了消除仪器的2c及其它误差的影响，在水平角测量中一般用盘左和盘右两个位置进行观测。盘左即观测者对着望远镜的目镜时，竖盘在观测者的左边，又称正镜，测得的角值为上半测回；盘右又称反镜，测得的角值为下半测回。盘左测角是顺时针旋转到下一个目标物，盘右测角是逆时针旋转到下一个目标物。上半测回（盘左）和下半测回（盘右）两个半测回组成一个测回，两个半测回角值之差称为半测回差，要求不能超过规定限差，

16、即36，如果限差满足要求，可取两值的平均值作为观测者第一测回的角值。在秒值取平均的时候，要遵循“奇进偶舍”的原则。例如：（12+15）/2=13.5取14；（15+10）/2=12.5取12。为了提高测角精度，常常观测几个测回。每个测回均不得改变零方向，但必须改变起始读数，起始读数递增值为180°/n，目的是为了消除水平度盘分划不均匀的影响。各测回角值都满足要求后应相互比较，若各测回差限差满足要求，即24，则取各测回角值的平均值作为最后结果。2、方向观测法当观测角方向数大于两个时应采用方向观测法，其方法速度快，精度高。其中需归零的方向观测法叫全圆测回法。测量规范要求，当观测方向数大于

17、三个时，必须进行归零。零方向的两次读数之差叫半测回归零差，其值不得超出规范要求的限差。限差要求参看下表3：表3：方向观测法水平角观测限差： 仪器类型项目 dj2dj6半测回归零差824一测回2c变动范围1336各测回同一归零方向值互差924光学测微器两次重合差 3 （二）、用全站仪观测水平角步骤 安置全站仪，进行对中，整平。 先用盘左照准零方向目标a，在全站仪测量模式第二页菜单下按方位角，输入所需值按回车。顺时针旋转到下一个目标点b，精确瞄准后，仪器所显示的“har”即为目标点b的方向值，然后读数、记录。再用盘右照准目标b，逆时针旋转到零方向目标点a，读数、记录。即完成一测

18、回。（三）、水平角测量中产生的误差及消减办法1、产生的误差： 照准部偏心误差（由于水平度盘刻划中心与照准部旋转中心不重合造成的）。 视准轴不垂直于横轴误差（2c值） 横轴不水平误差 2、消减办法： 观测水平角时，采用盘左盘右两次观测取平均值即可消除误差。（四）经纬仪的检验与校正1、照准部水准管的检验和校正 （1）、检验方法转动照准部，使水准管轴平行于任意一对脚螺旋，调节脚螺旋，使水准器泡居中，然后，将照准部绕轴旋转180°，如气泡仍居中，说明条件满足；如气泡偏离水准管中点，则说明条件不满足，应进行校正。（2）、校正方法转动两个脚螺旋，使气泡向中央移动偏离格值的一半，然后，用校正针（拨

19、针）拨动水准管一端的校正螺丝（花眼螺丝），使气泡居中。此项检验、校正必须反复进行，直到气泡居中后，再转动180°后，气泡偏离在规定范围以内为止。2、十字丝竖丝垂直于横轴的检验和校正（1）、检验方法整平仪器，用十字丝竖丝的最上端照准一固定点，拧紧照准部制动螺旋和望远镜制动螺旋。转动望远镜微动螺旋，使望远镜上下移动，如果目标不离开竖丝，说明此条件满足，否则需要校正。（2）、校正方法卸下目镜的分划板护罩，用螺丝刀松开四个十字丝固定螺丝，转动十字丝环，使竖丝处于铅直位置，然后把四个螺丝拧紧。2.1.2 竖直角测量1、由角度测量原理可知，竖直角是空间直线和同一竖直面内的水平线所夹的角度。因此和

20、水平角观测一样，竖直角也是两方向读数之差。但是，由于视线水平时，在竖直度盘上的读数为常数（90°或270°称为始读数），故只要在瞄准目标时，读一次数，便可确定该目标的竖直角。竖直角测量也有盘左和盘右之分。具体计算公式：盘左：= l始- l读 = 90°- l读盘右：= r读 - r始 = r读 - 270°目标方向线在水平线以上称仰角，竖直角角值为正值，目标方向线在水平线以下称俯角，竖直角角值为负值。竖直角角值都小于等于90°。2、竖直角测量中产生误差的原因及消除方法 指标差：当望远镜视线水平、竖盘指标水准管气泡居中时指标视线所指的读数比起始读

21、数大了或小了一个值x，此值x称为竖盘指标差。 消减方法：用盘左盘右两个位置观测竖直角，取其平均值，可以消除竖盘指标差x的影响。2.2 距离及高差测量2.2.1 分 类按照所使用的仪器，工具和方法的不同，距离测量可分为距离丈量、视距测量和电磁波测距。距离丈量：用丈量工具在地面上量测两点之间的距离。视距测量：用有测量视距装置的测量仪器，按光学和三角学原理测定水平距离和高差的方法。2.2.2 视距测量1、用索佳set510全站仪进行距离测量前先完成以下四项设置：1）测距模式均值精测（）、单值精测、重复粗测、单次粗测、跟踪测量、重复精测2）反射镜类型棱镜、反射片3）棱镜常数改正值（可以编辑）4）气象改

22、正值温度、气压2、视距及高差测量原理1）  视线水平时的公式如图1所示，从与afb的相似关系中可得= 即：d=×因此水平距为：d=d+(+c)=×+(+c) 令=k +c=q 则：q其中 k为视距乘常数，通常k =100；q为视距加常数，对于外对光望远镜一般为0.3m左右，对于外对光望远镜一般q=0。，t、e两点间高差。图1 视距及高差测量原理2)       视线倾斜时的公式：d= 3、测距步骤1) 对中、整平，照准目标。2) 在测量模式第一页菜单下按距离，开始距离测量。测距开始后，仪器闪动显示测距模式

23、，棱镜常数改正值，气象改正值等信息。一声短声响后屏幕上显示出距离“s”垂直角“za”和水平角“har”测量值。3) 在测距中若按停即f4键，则停止距离测量。按切换可使距离值的显示在斜距“s”、平距“h”和高差“v”之间转换。2.3 悬高测量2.3.1 定 义悬高测量功能用于无法在其上设置棱镜的物体，如高压输电线、悬空电缆、桥梁等高度的测量。2.3.2 高度计算公式ht=h1+h2h2=2.3.3 悬高测量步骤1、 将“悬高测量”功能定义到测量模式下的软键上或从菜单到悬高测量进入。2、将棱镜架设在待测物的正上方或正下方并量取镜高。如图2：3、输入棱镜高并精确照准棱镜，在测量模式第一页菜

24、单下按距离测距，屏幕上显示出距离“s”，垂直“za”和水平角“har”的测量值。按停则停止测距。4、照准待测物后按悬高开始悬高测量，此时仪器显示地面点至待测物体的高度：“ht”。5、按停则停止测量，重新对棱镜进行测量按观测。6、按esc结束悬高测量，返回测量模式。图2 悬高测量示意图2.4 坐标测量2.4.1 坐标测量原理先由两已知点a、b的坐标反算坐标方位角，再根据两已知点定零方向，测出待测点与零方向之间的夹角与距离d根据xi=x0+x；yi=y0+y得出待测点c的坐标。如图3:图3 坐标测量示意图2.4.2 测站的设置1、 量取仪器高和目标高。2、 在测量模式第一页菜单

25、下按坐标进入（坐标测量）屏幕。3、 选取测站坐标后按编辑，输入测站坐标，仪器高和目标高，若调用预先输入内存中已知坐标数据，按取data即可调用内存中的已知坐标数据。2.4.3 零方向的确立输入测站坐标后按ok到后视定向按后视，输入后视坐标（坐标值也可用取data直接调用）按ok，然后精确瞄准后视点后按yes，按esc后退一步，然后瞄准已知点测量（已知点也可是后视点），将仪器显示的测量数值与已知坐标相比较，如校核点点位误差在允许值范围内，则此方向可定为零方向，并可以开始进行坐标测量。2.4.4 存贮测点数据（数据采集）零方向选定后便可以采集碎部点，即坐标测量。方法是：将棱镜放在需测坐标

26、值的地物上，瞄准目标（棱镜），按观测键，屏幕上便会显示出该点的坐标，存贮测点数据时只需按记录，然后再按ok键，该点的坐标便存贮在全站仪里，接着便可进行下一碎部点的展测。详细步骤见第四章“数据采集”。第三章：测图前的准备工作3.1 首级平面控制测量3.1.1 概 述（一）、平面控制测量的定义及基本原则测定控制点平面位置（x、y）的工作称平面控制测量。平面控制测量遵循由整体到局部，先控制后碎部，由高级向低级，遵循国家规范的原则。（二）、分 类：1、国家基本控制网国家平面控制网分为一、二、三、四等四个等级，布设形式有三角锁（网）、精密导线、插点等形式。2、城市及工程控制网平面控制网可采用二等、三等、

27、四等三角锁（网），或一级小三角锁（网）、二级小三角锁（网），也可采用三等、四等、一级二级、三级导线。3、小地区控制网小地区控制网分为首级控制与图根控制两种。其中图根平面控制测量通常采用图根导线、图根小三角测量或各种交会定点等方法。首级控制测量常采用一级小三角、二级小三角或一级导线、二级导线。（三）、导线测量1、按照测量边长的方法不同，导线通常可分为以下几种形式：（1）量距导线 （2）视距导线 （3）电磁波测距导线2、按导线的布设形式可分为以下几种形式：（1）、 闭合导线：也称环行导线，是从一已知点开始布设导线点，最后又回到该已知点上，组成一个闭合多边形。使用范围：多用于首级平面控制测

28、量。精度要求 k1/2000 （k为相对误差）（2）、附和导线：布设在两已知边之间的导线。是从一条已知边的一个已知点开始布设导线点，最后附和到另一条边的一个已知点上。使用范围：多用于平面控制测量的加密中。（3）、 支导线：由一已知点开始布设导线点，既不闭合到该已知点，又不附和到另一已知点上的导线。支导线没有校核条件，所以一般只允许布设23个点，只适用于图根控制测量或测站点的加密。（4）、无定向导线：布设在两已知点之间的导线，是从一已知点开始布设导线点，最后连接到另一已知点上，是一条缺少起算方位角条件的导线。多用于控制测量加密边及图根控制测量中。（四）、小三角测量小三角测量也是建立平面

29、控制网的一种主要方法。分为一级小三角测量、二级小三角测量和图根小三角测量。一、二级小三角测量因为测角中误差分别为±5、±10，常称之谓5级小三角测量，10级小三角测量。布设形式分为：单三角形锁、中心多边形、大地四边形与线形三角形锁等。（五）、gps控制网的布设1、点连式点连式是指相邻同步图形之间仅有一个公共点的连接（如图4）。以这种方式布点所构成的图形几何强度很弱，没有或极少有非同步图形闭合条件，一般不单独使用。图4 点连式图形 图5 边连式图形2、边连式边连式是指同步图形之间由一条公共基线连接（如图5）。这种布网方案，网的几何强度较高有较多的复测边和非同步图形闭合条件。在

30、相同的仪器台数条件下，观测时段数将比点连式大大增加。3、网连式网连式是指相邻同步图形之间有两个以上的公共点相连接，这种方法需要4台以上的接收机。显然，这种密集的布图方法，它的几何强度和可靠性指标是相当高的，但花费的经费和时间较多，一般仅适于较高精度的控制测量。4、边点混合连接式边点混合连接式是指把点连式与边连式有机地结合起来，组成gps网，既能保证网的几何强度，提高网的可靠指标，又能减少外业工作量，降低成本，是一种较为理想的布网方法（如图6）。5、三角锁（或多边形）连接用点连式或边连式组成连续发展的三角锁连接图形（见图7），此连接形式适用于狭长地区的gps布网，如公路、铁路及管线工程勘测。 图

31、6 边点混合连接图形 图7 三角锁（或多边形）连接图形6、导线网形连接（环形图）将同步图形布设为直伸状，形如导线结构式的gps网，各独立边应组成封闭状，形成非同步图形，用以检核gps点的可靠性。适用于精度较低的gps布网。该布网方法也可与点连式结合起来布设（如图8）。7、星形布设星形图的几何图形简单，直接观测边之间不构成任何闭合图形，所以其检查与发现粗差的能力比点连式更差，但这种布网只需两台仪器就可以作业了（如图9所示）。图8 导线网形连接 图9 星形连接图形3.1.2 首级平面控制的施测（一）、内蒙农业大学西区校园首级平面控制的施测内蒙古农业大学西区校园的首级平面控制网的布设是利用内蒙古农业

32、大学西区校园内的两个5级导线点“农17”和“农78”作为起算边，做了一个导线网。其中，角度是用索佳set510（no：26316）测量两测回。距离是用索佳set510仪器盘左盘右测量三测回，其精度次于5级。数据及略图见表：4，原始数据及计算成果见附录：。表4：导线网实测数据及略图：测站点目标点观测角度 （° ）观测距离 （m）导线网略图nd08nd0989 56 11128.380nd07264.174nd09nd1190 34 17128.379nd08257.861nd11nd1580 56 40188.468nd07130.82292 11 46nd09257.864nd15n

33、d14107 13 33101.779nd11188.468nd14nd1395 28 3328.861农17104.00791 23 13nd15101.779农17nd07160 40 5899.458nd14103.99813 58 46农7880.511nd07nd1011 05 5212.808nd08264.17787 17 34nd11130.81799 45 26农1799.458（二）、内蒙古霍林河水库的首级平面控制开始输入点号、观测角、已知点坐标及边长计算已知方位角判断方位角象限计算改正后坐标增量计算坐标结果结束内蒙古霍林河水库的首级平面控制是采用gps测量，图形布设成三角

34、形网。在测区内共布设国家d级gps点6个，点号分别是d01、d02、d03、d04、d05、d06。坐标系统采用6°带的1954年北京坐标系。由内蒙古自治区通辽市水利勘测设计院测量队施测， 精度均满足“规范”要求，控制成果见附录：。3.1.3 首级平面控制测量计算程序1、程序流程图见右图2、程序代码（1）、角度转换程序代码private sub command1_click()'定义变量dim a as double dim b as singledim c as singledim d as doublea = val(text1.text)b = val(text2.te

35、xt) / 60 '把 “分” 化为“度”c = val(text3.text) / 3600 '把 “秒” 化为“度”text4.text = a + b + c '角度合并end subprivate sub command2_click()form1.show '显示“计算坐标”窗体 form2.hide '隐藏“角度转换”窗体 '选中列表框并附值 if list1.selected(1) then form1.text12.text = form2.text4.text if list1.selected(2) then form1.te

36、xt13.text = form2.text4.text if list1.selected(3) then form1.text14.text = form2.text4.text if list1.selected(4) then form1.text15.text = form2.text4.text if list1.selected(5) then form1.text16.text = form2.text4.text if list1.selected(6) then form1.text17.text = form2.text4.text if list1.selected(7

37、) then form1.text18.text = form2.text4.text if list1.selected(8) then form1.text21.text = form2.text4.textend sub角度转换程序界面（2）、计算已知方位角程序代码dim x1#, y1#, x0#, y0#, e#, f#, a#private sub command1_click()pi = 3.141592654x0 = val(text1.text)y0 = val(text2.text)x1 = val(text3.text)y1 = val(text4.text) e = a

38、tn(y0 - y1) / (x0 - x1) '计算已知方位角f = e * 180 / pi '将已知方角转换为度 if y0 - y1 > 0 and x0 - x1 > 0 then a = f if y0 - y1 > 0 and x0 - x1 < 0 then a = f + 180 if y0 - y1 < 0 and x0 - x1 < 0 then a = f + 180 if y0 - y1 < 0 and x0 - x1 > 0 then a = f + 360 text5.text = aend subp

39、rivate sub command2_click()form3.hide '隐藏“计算方位角”窗体form1.show '显示“计算坐标”窗体form1.text31.text = form3.text5.textend sub计算已知方位角程序界面（3）、坐标计算程序代码dim a1#, a2#, a3#, a4#, a5#, a6#, a7# '定义变量dim b1#, b2#, b3#, b4#, b5#, b6#, b7#, l#dim c1#, c2#, c3#, c4#, c5#, c6#, c7#, c8#dim d1#, d2#, d3#, d4#,

40、d5#, d6#, d7#, d#dim x1#, x2#, x3#, x4#, x5#, x6#, x7#, xa#, x#dim y1#, y2#, y3#, y4#, y5#, y6#, y7#, ya#, y#dim xa1#, xa2#, xa3#, xa4#, xa5#, xa6#, xa7#dim ya1#, ya2#, ya3#, ya4#, ya5#, ya6#, ya7#private sub command1_click()a1 = val(text12.text)a2 = val(text13.text)a3 = val(text14.text)a4 = val(tex

41、t15.text)a5 = val(text16.text)a6 = val(text17.text)a7 = val(text18.text)t = (a1 + a2 + a3 + a4 + a5 + a6 + a7) '观测角求和text20.text = format(t, "#0.0000度")end subprivate sub command7_click()b1 = val(text22.text)b2 = val(text23.text)b3 = val(text24.text)b4 = val(text25.text)b5 = val(text26

42、.text)b6 = val(text27.text)b7 = val(text28.text)k = val(text30.text)k = (b1 + b2 + b3 + b4 + b5 + b6 + b7) '改正后角度求和text30.text = format(k, "#0.0000度")end subprivate sub command8_click()t = val(text20.text)c1 = val(text32.text)c2 = val(text33.text)c3 = val(text34.text)c4 = val(text35.te

43、xt)c5 = val(text36.text)c6 = val(text37.text)c7 = val(text38.text)c8 = val(text39.text) l = t - 900h = -l / 7text22.text = a1 + htext23.text = a2 + htext24.text = a3 + htext25.text = a4 + htext26.text = a5 + htext27.text = a6 + htext28.text = a7 + h '计算坐标方位角c1 = val(text31.text) + val(text21.tex

44、t)if c1 > 180 then c1 = (c1 - 180)if c1 > 360 then text32.text = c1 - 360 if c1 < 180 then text32.text = (c1 + 180)c2 = val(text32.text) + val(text22.text)if c2 > 180 then text33.text = (c2 - 180)if c2 < 180 then text33.text = (c2 + 180)c3 = val(text33.text) + val(text23.text)if c3 &g

45、t; 180 then text34.text = (c3 - 180)if c3 < 180 then text34.text = (c3 + 180)c4 = val(text34.text) + val(text24.text)if c4 > 180 then text35.text = (c4 - 180)if c4 < 180 then text35.text = (c4 + 180)c5 = val(text35.text) + val(text25.text)if c5 > 180 then text36.text = (c5 - 180)if c5 &l

46、t; 180 then text36.text = (c5 + 180)c6 = val(text36.text) + val(text26.text)if c6 > 180 then text37.text = (c6 - 180)if c6 < 180 then text37.text = (c6 + 180)c7 = val(text37.text) + val(text27.text)if c7 > 180 then text38.text = (c7 - 180)if c7 < 180 then text38.text = (c7 + 180)c8 = val

47、(text38.text) + val(text28.text)if c8 > 180 then text39.text = (c8 - 180)if c8 < 180 then text39.text = (c8 + 180)end subprivate sub command6_click()d1 = val(text42.text)d2 = val(text43.text)d3 = val(text44.text)d4 = val(text45.text)d5 = val(text46.text)d6 = val(text47.text)d7 = val(text48.tex

48、t)d = d1 + d2 + d3 + d4 + d5 + d6 + d7 '边长求和text50.text = dend subprivate sub command2_click()x1 = val(text52.text)x2 = val(text53.text)x3 = val(text54.text)x4 = val(text55.text)x5 = val(text56.text)x6 = val(text57.text)x7 = val(text58.text)c1 = val(text32.text)c2 = val(text33.text)c3 = val(text

49、34.text)c4 = val(text35.text)c5 = val(text36.text)c6 = val(text37.text)c7 = val(text38.text)c8 = val(text39.text)d1 = val(text42.text)d2 = val(text43.text)d3 = val(text44.text)d4 = val(text45.text)d5 = val(text46.text)d6 = val(text47.text)d7 = val(text48.text)pi = 3.141592654xa1 = d1 * cos(c1 * pi /

50、 180) '计算x坐标增量xa2 = d2 * cos(c2 * pi / 180)xa3 = d3 * cos(c3 * pi / 180)xa4 = d4 * cos(c4 * pi / 180)xa5 = d5 * cos(c5 * pi / 180)xa6 = d6 * cos(c6 * pi / 180)xa7 = d7 * cos(c7 * pi / 180)xa = xa1 + xa2 + xa3 + xa4 + xa5 + xa6 + xa7 text52.text = xa1 + xa / d * d1 '计算改正后x坐标增量text53.text = xa

51、2 + xa / d * d2text54.text = xa3 + xa / d * d3text55.text = xa4 + xa / d * d4text56.text = xa5 + xa / d * d5text57.text = xa6 + xa / d * d6text58.text = xa7 + xa / d * d7text60.text = x1 + x2 + x3 + x4 + x5 + x6 + x7text52.text = format(xa1, "#0.000") '小数取位text53.text = format(xa2, &qu

52、ot;#0.000")text54.text = format(xa3, "#0.000")text55.text = format(xa4, "#0.000")text56.text = format(xa5, "#0.000")text57.text = format(xa6, "#0.000")text58.text = format(xa7, "#0.000")end subprivate sub command3_click()y1 = val(text62.text)y2

53、= val(text63.text)y3 = val(text64.text)y4 = val(text65.text)y5 = val(text66.text)y6 = val(text67.text)y7 = val(text68.text)pi = 3.141592654ya1 = d1 * sin(c1 * pi / 180) '计算y坐标增量ya2 = d2 * sin(c2 * pi / 180)ya3 = d3 * sin(c3 * pi / 180)ya4 = d4 * sin(c4 * pi / 180)ya5 = d5 * sin(c5 * pi / 180)ya6

54、 = d6 * sin(c6 * pi / 180)ya7 = d7 * sin(c7 * pi / 180)ya = ya1 + ya2 + ya3 + ya4 + ya5 + ya6 + ya7 text62.text = ya1 + ya / d * d1 '计算改正后y坐标增量text63.text = ya2 + ya / d * d2 text64.text = ya3 + ya / d * d3text65.text = ya4 + ya / d * d4text66.text = ya5 + ya / d * d5text67.text = ya6 + ya / d * d6text68.text = ya7 + ya / d * d7text70.text = y1 + y2 + y3 + y4 + y5 + y6 + y7text62.text = format(ya1, "#0.000") '小数取位text63.text = format(ya2, "#