基于vba技术实现excel数据生成cass地形图图框的方法

《基于vba技术实现excel数据生成cass地形图图框的方法》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、基于VBA技术实现EXCEL数据生成CASS地形图图框的方法摘要：木文介绍VBA开发工其，CASS和EXCEL应用软件的基木特点，通过VBA建立CASS和EXCEL的通信，通过VBA调用EXCEL索引文件中图框相关信息在CASS中自动添加地形图图框。关键词：VBAEXCELCASS图框.1八—刖目在办公软件中实现程序自动化，直到20世纪90年代早期，还没有实现实质性的进展，正在接受来自各方面的挑战。Microsoft公司一直想让其开发出来的套装办公软件在实现程序自动化时井享一种通用的自动化语言，于

2、是VBA(VisualBasicForApplication)便应运而生了。它是OFFICE及CASS等软件中集成的一种智能化编程工具，用来扩展这些软件的功能。在深圳市1:1000地形图修补测时，由于深圳市国土资源委员会信息中心下发的分幅地形图中无图框信息，图框信息单独保存在索引文件中，而在提交成果时，按照深圳市国土资源委员会信息中心要求，各作业单位必须提交木测区满足相关作业依据、规范的1:1000分幅地形图。由于测区相当大范围内地物、地貌未发生变化，不需修测部分地形图的图框中图名、测绘单位、测绘

3、方法等相关信息仍需沿用索引文件中的信息，但CASS已有功能无法把索引文件中相关的信息添加到与分幅图一一对应的图框中，传统作业模式中需把索引文件中的图名、测绘单位、测绘方法等相关信息人工逐个添加到分幅地形图图框中。由于大量的重复工作相当繁琐，而且容易出错，木文正是基于这种情况，介绍如何利用EXCEL和CASS提供的VBA开发工具的功能，编制程序实现该过程的自动化。1、应用环境介绍AUTOCAD是美国AUTODESK公司研发的通过计算机辅助设计和绘图软件。目前AUTOCAD已被广泛应用于建筑、水利、测

4、绘等领域的设计与制图。它功能强大、界面友好、易于操作，深的广大设计、制图等人员的喜爱，但在很多领域仍有不足之处，好在AUTOCAD幵放的结构体系，给了我们很大的空间来扩充新的功能和设计各种应用程序。CASS软件是南方数码科技冇限公司基于AUTOCAD平台开发的一套集地形、地籍、空间数据建库、工程应用、土石方算量等功能为•一体的软件系统。CASS在拓展CAD功能的同时更是继承了其VBA(VisualBasicForApplication)开发工具。EXCEL是微软的办公软件OFFICE的组件之一，它

5、具奋直观的界面，出色的计算和图表等功能，成为流行的数据处理软件之一。EXCEL强大的计算功能，可以方便地处理数据和通过VBA进行二次开发，在测量中冇着广泛的应用。VBA是微软提供给程序员的基于ActiveX技术的面向对象的砬用程序开发工具，S前许多主流的软件，如OFFCIECASS等软件都内置了VBA幵发工具,其强大的功能为各应用程序的二次开发提供了优秀的手段。VBA结构简单，代码运行效率高，而且它驻留在CASS和EXCEL内部，为实现各应用软件间的通信提供了方便。2、工作原理在EXCEL中，与单

6、元格对应的是Cells(i,j),它以行号、列号作为参数，对于单元格的定位可以用cells(i，j)来表示，单元格的文字可以通过cells(i,j).Text属性来读取。在CASS中，通过VBA调用EXCEL索引文件中分幅地形图相应的记录并通过VBA开发工具的方法，完成相应操作，具体如下：在CASS中遍历1:1000分幅地形图，打开单幅地形图，然后通过图名遍历索引文件，找到本幅地形图对应的记录；再打开图框模板(不包括图名、测量单位、测量方法等基本信息，只包含所有地形图共用的图元)，通过图框文档的A

7、ddText()方法把索引文件中相应记录的图名、测绘单位、测量方法等信息添加图桐中，添加具体图元时，调用图元的Move()方法把图元移动到相应的位置。然后根据图名计算的图框插入点(西南角)坐标，把图框(此吋已插入图名、测绘单位、测绘方法等信息)根据插入点坐标移动到相应的1:1000分幅地形图的相应位置；最后通过图框文档的CopyObjects（）方法把已插入相关信息的图框复制到1:1000相应的分幅地形图中，保存此幅分幅图，关闭且不保存图框模板。边读边写，直到结束遍历，便完成所冇地形图图框的绘制工

8、作。3、实现步骤及主要代码1）准备EXCEL索引文件，根据图名计算西南角坐标。表格样式如图（1）:图1:EXCEL索引表2）定制图框模板。图框模板只包含内图廓、外图廓、图例、比例尺注记等1:1000分幅图公用信息。图框样式如图（2）:图2:图框模板3）在CASS中输入VBAIDE,按ENTER打开VBA管理器，创建一个新的工程，保存在适当的位置，进入CASS的VBA开发环境。4）打开VBA编辑器菜单的“工具引用”菜单项，弹出对话框，选择“MicrosoftExcel11.0Obj