Excel在测绘系统中应用.docVIP

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