施工技术 瞳韧 国蒜晦 2013年 1月

行综合数据处理，形成数据库文件 ，便可 以将Access数 也可以由多个单元格合并而成。工作表对象中的cells

据库与AutoCAD平台进行数据链接嵌入，这样每个桩 属性，在单元格的选择方面可 以达到与range相 同的效

号断面上的测点坐标将会 自动以POINT形式批量生成 果，它是以行 (row)和列 (god作为参数的，对于行和列

元素，依次首尾连接各点进行闭合，然后即可应用平台 的选择可以采用变量的形式。在本例中，可设定工作表

自动计算每个桩号断面面积 。最后从数据库导出到 (Worksheet)的每一行第一列 c『ells(i，1)1为中桩桩号，每

Excel，应用其 内部函数按照棱台公式编制土石方计算 一 行第二列 c『e11s (i，2)]为对应的地面高程 。而在

表 ，输入桩号，然后 以桩号为映射将所求面积导入 ，通 AutoCAD中，没有与表对应的对象，但可 以根据表中前

过 电子表格的公式与函数的自动计算功能，最后叠加 后桩号定义水平距离，根据地面高程定义垂直距离，将

所得数据即是复核计算的土石方工程量 。至此便是数 表中数据理解为线条与文字对象的集合 。这样 ，通过读

据库与相关应用软件的链接与嵌入技术计算土石方工 取 MicrosoftExcel文件中的最小对象一单元格 区域

程量的全部计算工作程序原理。 c『ells(i，i)1的主要信息，利用VBA建立AutoCAD与

4算机应用程序编程语言进行二次开发程序设计 Excel的通信，然后在AutoCAD文件里指定的图层、位

对高速公路的施工路线进行测量是一个工作量 置画线条，书写文字 。通过循环，遍历所有单元格区域

大、非常繁琐的工作，必须要在专业 的软件辅佐下，才 c『e11s(i，j)1，边读边写，最终完成纵断面地面线的绘制

可以把公路的纵断面图绘制出来，而且不会轻易出错。 及桩号、地面高程的书写。

特别是在公路进行复测阶段时，有时候需要在极短的 4．3程序具体实现步骤

时间内，将我们所测量的中桩高程转化成纵断面 图，才 (1)首先在Aut0CAD中，创建Excel应用程序 。编

可以方便下面的路线进行复核。这时候，我们就需要利 写可以存取的Exce1的应用程序 ，并不是那么容易的，

用AutoCAD以及 MicrosoftExcel中提供的VBA功能， 必须要VBA将 Exce1中的对象进行转换，才可 以给操

可以将编制程序进行绘制，也就是把 Micro8oftExcel表 作者使用 。这时就需要用到Excel对象的数据库，其步

格中的桩高程、桩编号等信号识别出来，再在AutoCAD 骤如下：

中用线条、文字等方式表达出来，从而快速绘制公路纵 ①打开AutoCAD的VBA编辑器 (命令：VBAIDE)；

断面图。 ②选择工具栏中的“引用”一项，之后再弹出的“引

、

4．1用程序编程语言VisualBasicforApplication简介 用 ”对话框 中选择 “可使用的引用 ”，最后点击 “Micr0soft

VBA是VisualBasicforApplication的缩写，是一 Excel2002ObjectLibrary”这一项；

种新的应用程序编程语言，可 以将 Microsoft产品中学 ③结束之后，再单击 确‘‘定”按钮，整个程序就完成

到的知识相互转化，在 Micr0s0ftExcel和 AutoCAD中 了。

应用的非常好，基本上他们把 VBA作为二次开发工 (2)输入坐标点画地面线

具。VBA的最大特点也是它的最大优点就是一种直接 ①将工作表 (Worksheet)中的每一行的第一列c『ells

面向对象的ActiveXAutomation技术，可 以使我们所选 (i，1)1设为中桩桩号，每一行的第~ytj[cells(i，2)1与对

择的语言与它所处的环境分离，独立存在。除此之外， 应的地面高程相呼应 。再者，因为公路