利用VBA对地形地藉成图软件CASS的二次开发.doc

 利用 VBA 对地形地藉成图软件 CASS 的二次开发 李爱军 Ξ ( 深圳市深水水务咨询有限公司 ,广东 深圳 518003) 摘 要 : 指出水利水电工程中利用南方 CASS 断面法土方计量的不便之处 ;介绍利用 VBA 编程二次开发 ,实现在 CASS 地形图上由 三角网生成断面数据 ,绘制土方计量断面图 ,计算工程量 。该方法省去许多人工辅助计算的烦琐 ,提高了工程量计算工作的效率 和质量 。 关键词 : CASS ;VBA ;AutoCAD ; Excel ;断面法 ;工程量计算 文章编号 :1006 - 3951 (2011) 01 - 0049 - 04 中图分类号 : TV512 文献标识码 : B DOI :1013969/ j . issn. 1006 - 3951 . 201161011014 在水利水电工程领域 ,广泛应用的是断面法计 算土方工程量 。断面数据可以由坐标文件生成 ,也 可以由三角网或等高线生成 。由于 CASS 三角网从 微分角度三维地描述了地形地貌的空间分布 ; 和等 高线所表达的信息相比 ,其表达的地形地貌信息更 加丰 富 、准 确 。因 此 , 这 里 介 绍 使 用 VBA 编 程 由 CASS 三角网生成断面数据的方法 。 用于计算土方工程量的断面往往较多 ,为了实 现工程量计算的自动化 ,把所有断面起点坐标及终 点坐标储存于 Excel 。在 CASS 环境下利用 VBA 编 程实现 AutoCAD 与 Excel 通信 ; 建立一个三角网选 择集 ,将选择集里的三角网顶点坐标提出然后存于 Excel ,供截取断面数据时调用 。 由三角网生成断面数据时 ,需要将储存于 Excel 的断面起点和终点坐标 、三角形顶点坐标调出 ,计算 断面与三角网的交点坐标并转换成断面数据 。所有 断面数据全部计算得到后 ,就可以进行土方断面图 绘制和工程量计算等后续工作 。这就是利用 VBA 二次开发 CASS 土方计量功能的思路 。 0 引 言 CASS 地形地藉成图软件 ( 以下简称 CASS) 是基 于 AutoCAD 平台技术的 GIS 前端数据处理系统 。广 泛应用于地形成图 、地藉成图 、工程测量应用 、空间 数据建库等领域 。水利水电工程计量人员习惯使用 CASS 绘制数字化地形图 ,然后在地形图上截取断面 计算工程量 。 CASS 提供了“DTM 法土方计算”、“断面法土方 计算”、“方 格 网 法 土 方 计 算”及“等 高 线 法 土 方 计 算”;这些土方计量方法比较适合于公路 、工业与民 用建筑工程 。水利水电工程由于地形复杂 ,断面不 规则 ,用 CASS 计算土方工程量操作烦琐 ,计算过程 不直观 ,界面不友好 。为了提高工程量计算工作效 率 ,保证工作质量 ,掌握 CASS 软件的二次开发技术 是很有 必 要 的 ; 这 里 就 介 绍 使 用 VBA 二 次 开 发 CASS 土方计量功能的方法 。 VBA 全称 Visual Basic For Application ,它是在标 准 Visual Basic 的基础上 ,结合特定的应用程序发展 起来的一种 Windows 平台上的高效开发工具 , 它可 以充分利用 Windows 操作系统提供的强大功能 , 简 单易用 ,非计算机专业人员也可以利用 VBA 语言 , 高效快速地对软件进行开发 。微软开发的 Microsoft Office 均集成了 VBA ;Autodesk 公司开发的 AutoCAD 也集成了这种开发工具 。 2 利用 VBA 编 程 实 现 AutoCAD 与 Excel 通 信 首先新建或者打开已有的 Excel 工作薄 ,在 Au2 toCAD VBA 编辑器中选择“工具”菜单 - “引用”, 选择合适的 Microsoft Excel Object Library。然后声明 Excel . Application 、Excel . Workbook 、Excel . Worksheet 对 象各 一 个 , 用 Getobject 函 数 实 现 AutoCAD VBA 对 Excel 的自动控制 。下面是实现这个功能的程序代 1 利用 VBA 编程二次开发 CASS 土方计量 功能的思路 Ξ 收稿日期 : 2010 - 07 - 26 作者简介 : 李爱军 (1975) ,男 ,河南南阳人 ,通讯作者 ,工程师 ,学士学位 ,主要研究方向工程测量 。 码 : 型 ’定义 Ex2 Filter Data (0) = ”Polyline” ’设置过滤对象为三 维多段线 Filter Type (1) = 8 ’设置过滤器类型为图层名 称 Public Exce