1、Excel 在测绘系统中的应用摘要：在测绘测量过程中，有许多地貌很复杂，不规则，因此需测绘的点和面较多，从而产生各种各样的计算、平差、排序、对比和作业记录等问题随随着袖珍计算机与微机的普及,人们已从以往的手工查表、手摇计算机乃至计算器的繁琐计算中彻底解放出来,迈步走向了自动化的批处理时代。更加令人嘱目的是近代测量高新技术 GPS 和全站仪已在各个领域广泛渗透,人们已不再局限于常规的测量手段,而是以更加随机的空间数据结构模式去面对新的挑战！测量行业的更加智能化和简单化,我们现在要做就是将计算机更加广泛、全面的应用于测量中。为了进一步发挥计算机在常规测量中的应用优势,也为了更好地去加入并推动新技术
2、革命的潮流。 关键字：Excel 表格测绘系统 中图分类号：P2 文献标识码： A Excel 的功能是非常强大的,我们地籍测量中的面积成果表,各个坐标系之间的坐标转换、外业测图后的散点检查等均可以用它完成,你也可以在 AutoCAD 中直接与 Excel 通讯,比如一条三维多段线的所有结点的三维坐标直接导入到 Excel,比在 AutoCAD 中用列表的方法要方便的多;我们在实际的测量工作中经常会遇到各种坐标系与当地坐标系的转化问题,用Excel 里面简单的程序就能解决. 通过多年来的大量实践表明,运用Excel 所编制的程序如:放射点、交点、平行相交、放点、点线距、面积计算、四等水准观测记
3、录及平差计算不仅有效解决了测量内业各种平差计算问题,不仅大大提高了内业的工作效率,而且提高了外业观测速度和测绘成果 xcel 是大家很熟悉的办公软件，相信大家在工作中经常使用吧。在测量工作中，你是否感觉到有很不方便的时候？比如，计算一个角度的三角函数值，而角度的单位是 60 进制的，此时，你一定感到很无奈，因为，Excel 本身无法直接计算 60 进制的角度的三角函数！还有，如果你的工作表中有了点坐标值（二维或者三维） ，要在 CAD 中展绘出来，怎样才能又快又直接？不然，就只有拐弯摸角了，很痛苦啊！其实，只要对 Excel 进行一些挖掘，就可以发现 Excel 的功能我们还没有好好的利用呢。
4、Excel 本身提供了强大的二次开发功能，只要我们仔细的研究，没有什么能难倒我们的。认识它的强大的二次开发环境 VBAIDE，用它来解决上面所提到的问题，就非常容易了。打开 Excel，按 Alt+F11 即进入VBAIDE，学过 VB 的人一看就知道那就是熟悉的 VB 界面。下面看看如何定义一个函数，然后利用它来解决 60 进制的角度的三角函数计算问题。在菜单上依次点击插入 -模块，然后输入对应的代码。这样，就定义了一个名字叫 DEG 的函数，它的作用就是转换 60 进制的角度为Excel 认识的弧度。编辑完后按 Alt+Q 即返回 Excel，再在某一单元格输入=sin(deg(A1)(A
5、1 既可以是单元格的值,也可以是输入的角度值),回车. 工程测量中，经常碰到导线的计算，如果手头没有平差计算程序就只有手工计算了，这时候你曾经想过编个小程序来计算？其实，这很简单，笔者在宛坪（上海至武威）高速公路上做测量监理，因为有大量的导线需要复核，故编写了一个附合导线计算程序，代码很简单，但很实用。值得注意的是，前面提到的 DEG 函数别忘记加进去。如果自己定义一个名字叫“计算”的按钮，指定此工具的宏为“单一附合导线计算” ，那么，只要按下面的格式输入原始数据（斜体是输入的） ，点“计算”就可以得到计算结果了。当然，你在 Excel 上同样可以再加个工具按钮，比如叫“展点” ，指定宏为“显
6、示对话框” ，只要你的 Excel 有了 X,Y 或者 X,Y，Z（格式如下表） ，点击“展点” 就可以自动启动 A utoCAD 展点啦！当然,如果 A utoCAD 已经启动,就直接在已经打开的 A utoCAD 文档中展点，展点完毕后，会显示一个对话框，提示“展点完毕“，再切换到 A utoCAD 看看，你所要展的点是否已经出现了？如果没有输入错误，应该可以得到满意的结果。如果有点号,还可以显示点号，并且可以输入字体的高度。 VBA 最大特点和最大优点是利用面向对象（OOP）的 ActiveX Automation 技术，使语言的引擎在技术上与开发环境分离。它的功能在很大程度上依赖于它的
7、客户显露的 Automation 接口。同时，由于 VBA 是基于 ActiveX Automation 技术，它可以使用任何 Automation 技术的应用程序共同工作。 基于 AutoCAD 的 VBA 应用程序就是高级程序语言的计算功能与AutoCAD 的绘图功能结合，使用 VBA 程序语句来控制对 AutoCAD 图形的操作。 VBA 作为一个集成的开发环境，它提供了高质量的用户化编程能力，能够使 AutoCAD 数据与其它的 VBA 应用程序，如 Microsoft Excel 软件，直接共享，实现无缝连接，交换数据非常方便 Excel 中，与表对应的对象是工作表（Sheet 或
8、Worksheet） ，与每一个表格方格对应的对象是单元格区域（range） ，它可以仅包括一个单元格（cell） ，也可以由多个单元格合并而成。工作表对象中的 cells 属性，在单元格的选择方面可以达到与 range 相同的效果，它是以行（row）和列（gol）作为参数的，对于行和列的选择可以采用变量的形式。在本例中，可设定工作表（Worksheet）的每一行第一列（cells（i,1） ）为中桩桩号，每一行第二列（cells（i,2） ）为对应的地面高程。 在 AutoCAD 中，没有与表对应的对象，但可以根据表中前后桩号定义水平距离，根据地面高程定义垂直距离，将表中数据理解为线条与文字
9、对象的集合。这样，通过读取 Microsoft Excel 文件中的最小对象单元格区域（cells（i,j） ）的主要信息，利用 VBA 建立 AutoCAD 与Excel 的通信，然后在 AutoCAD 文件里指定的图层、位置画线条，书写文字。通过循环，遍历所有单元格区域（cells（i,j） ） ，边读边写，最终完成纵断面地面线的绘制 要编写存取 Excel 的应用程序，必须通过 VBA 将 Excel 中的对象能够让用户使用，这就需要参考 Excel 对象的数据库读入坐标点画地面线设定工作表的每一行第一列以（0，0，0）为原点，以桩号里程为 x 坐标，以 10 倍所对应的地面高程为 y
10、坐标，0 为 z 坐标，定义某一桩号对应的地面点坐标；然后循环读取各里程桩号数据信息，定义各桩号所对应的地面点坐标；最后以直线段连接各地面点坐标定义文字的插入位置 ； 以桩号里程为 x 坐标，0 为 y 坐标，0 为 z 坐标，确定文字的插入点 以单行文字形式创建桩号及高程文字，定义文字的格式、字体、高度、倾斜角度。插入后的文字应逆时针旋转 90 度。辅助网格线能较为直观地表示桩号及地面高程的对应关系，有助于纵坡设计；以桩号里程为 x 坐标，0 为 y 坐标，0 为 z 坐标，确定网格线第一点；以桩号里程为 x 坐标，10 倍所对应的地面高程为 y 坐标，0 为 z 坐标，确定网格线第二点；两点连线，则为网格线。 总结：经常遇到许多类似的大量的、重复的、有逻辑性的操作，只要合理利用 VBA，发挥其强大的功能，实现 AutoCAD 与 Excel 应用程序的无缝连接，快速交换数据，就可以在短时间内完成所需的设计工作，达到事半功倍的效果。
