基于VBA技术实现EXCEL数据生成CASS地形图图框的方法.docVIP

精品论文 参考文献 基于VBA技术实现EXCEL数据生成CASS地形图图框的方法 摘要：本文介绍VBA开发工具，CASS和EXCEL应用软件的基本特点，通过VBA建立CASS和EXCEL的通信，通过VBA调用EXCEL索引文件中图框相关信息在CASS中自动添加地形图图框。 关键词：VBA EXCEL CASS 图框 前言 在办公软件中实现程序自动化，直到20世纪90年代早期，还没有实现实质性的进展，正在接受来自各方面的挑战。Microsoft公司一直想让其开发出来的套装办公软件在实现程序自动化时共享一种通用的自动化语言，于是VBA（Visual Basic For Application）便应运而生了。它是OFFICE及CASS等软件中集成的一种智能化编程工具，用来扩展这些软件的功能。 在深圳市1:1000地形图修补测时，由于深圳市国土资源委员会信息中心下发的分幅地形图中无图框信息，图框信息单独保存在索引文件中，而在提交成果时，按照深圳市国??资源委员会信息中心要求，各作业单位必须提交本测区满足相关作业依据、规范的1:1000分幅地形图。由于测区相当大范围内地物、地貌未发生变化，不需修测部分地形图的图框中图名、测绘单位、测绘方法等相关信息仍需沿用索引文件中的信息，但CASS已有功能无法把索引文件中相关的信息添加到与分幅图一一对应的图框中，传统作业模式中需把索引文件中的图名、测绘单位、测绘方法等相关信息人工逐个添加到分幅地形图图框中。由于大量的重复工作相当繁琐，而且容易出错，本文正是基于这种情况，介绍如何利用EXCEL和CASS提供的VBA开发工具的功能，编制程序实现该过程的自动化。 1、应用环境介绍 AUTO CAD是美国AUTO DESK公司研发的通过计算机辅助设计和绘图软件。目前AUTO CAD已被广泛应用于建筑、水利、测绘等领域的设计与制图。它功能强大、界面友好、易于操作，深的广大设计、制图等人员的喜爱，但在很多领域仍有不足之处，好在AUTO CAD开放的结构体系，给了我们很大的空间来扩充新的功能和设计各种应用程序。 CASS软件是南方数码科技有限公司基于AUTO CAD平台开发的一套集地形、地籍、空间数据建库、工程应用、土石方算量等功能为一体的软件系统。CASS在拓展CAD功能的同时更是继承了其VBA（Visual Basic For Application）开发工具。 EXCEL是微软的办公软件OFFICE的组件之一，它具有直观的界面，出色的计算和图表等功能，成为流行的数据处理软件之一。EXCEL强大的计算功能，可以方便地处理数据和通过VBA进行二次开发，在测量中有着广泛的应用。 VBA是微软提供给程序员的基于ActiveX技术的面向对象的应用程序开发工具，目前许多主流的软件，如OFFCIE CASS等软件都内置了VBA开发工具，其强大的功能为各应用程序的二次开发提供了优秀的手段。VBA结构简单，代码运行效率高，而且它驻留在CASS和EXCEL内部，为实现各应用软件间的通信提供了方便。 2、工作原理 在EXCEL中，与单元格对应的是Cells（i，j），它以行号、列号作为参数，对于单元格的定位可以用cells（i，j）来表示，单元格的文字可以通过cells（i，j）.Text属性来读取。 在CASS中，通过VBA调用EXCEL索引文件中分幅地形图相应的记录并通过VBA开发工具的方法，完成相应操作，具体如下：在CASS中遍历1:1000分幅地形图，打开单幅地形图，然后通过图名遍历索引文件，找到本幅地形图对应的记录；再打开图框模板（不包括图名、测量单位、测量方法等基本信息，只包含所有地形图共用的图元），通过图框文档的AddText（）方法把索引文件中相应记录的图名、测绘单位、测量方法等信息添加图框中，添加具体图元时，调用图元的Move（）方法把图元移动到相应的位置。然后根据图名计算的图框插入点（西南角）坐标，把图框（此时已插入图名、测绘单位、测绘方法等信息）根据插入点坐标移动到相应的1:1000分幅地形图的相应位置；最后通过图框文档的CopyObjects（）方法把已插入相关信息的图框复制到1:1000相应的分幅地形图中，保存此幅分幅图，关闭且不保存图框模板。边读边写，直到结束遍历，便完成所有地形图图框的绘制工作。 3、实现步骤及主要代码 1）准备EXCEL索引文件，根据图名计算西南角坐标。表格样式如图（1）： 图1：EXCEL索引表 2）定