边坡变形监测曲线

边坡位移监测曲线能够更直观的反映 边坡的发展和变形规律，而传统的绘图 方式精度差、效率低。为了提高绘图的 精度及效率，我们基于内嵌于AutoCAD 的VBA 语言二次开发出了位移监测曲线 自动生成系统。只要把变监测数据按一 定的格式输入到外部数据文件中，利用 该系统就可自动生成曲线，大大提高了 监测数据的处理速度，提高了绘图精度 及质量。
设计原理与基础： Visual Basic for Application（VBA）是Microsoft面向最终用 户的应用软件编程语言。它最早出现于Microsoft的Excel和 Project中，如今VBA已成为VB和所有Office产品的组件。常 用的绘图软件AutoCAD也已支持VBA作为二次开发工具。 VBA最大特点和最大优点是利用面向对象（OOP）的ActiveX Automation技术，使语言的引擎在技术上与开发环境分离。 它的功能在很大程度上依赖于它的客户tiveX Automation技术，它可以 使用任何Automation技术的应用程序共同工作。 基于AutoCAD的VBA应用程序就是高级程序语言的计算功能 与AutoCAD的绘图功能结合，使用VBA程序语句来控制对 AutoCAD图形的操作。 VBA作为一个集成的开发环境，它提供了高质量的用户化编 程能力，能够使AutoCAD数据与其它的VBA应用程序，如 Microsoft Excel软件，直接共享，实现无缝连接，交换数据 非常方便。
• 在Microsoft Excel中，与表对应的对象是工作表（Sheet或
•
Worksheet），与每一个表格方格对应的对象是单元格区 域（range），它可以仅包括一个单元格（cell），也可以 由多个单元格合并而成。工作表对象中的cells属性，在单 元格的选择方面可以达到与range相同的效果，它是以行 （row）和列（gol）作为参数的，对于行和列的选择可以 采用变量的形式。在本例中，可设定工作表（Worksheet） 的每一行第一列（cells（i,1））为时间累积量，每一行第 二列（cells（i,2））为对应的水平位移累积量，每一行第 三列（cells（i,3））为对应的垂直位移累积量。 在AutoCAD中，没有与表对应的对象，但可以根据表中时 间间隔定义水平距离，根据水平与垂直累积量定义垂直距 离，将表中数据理解为线条与文字对象的集合。这样，通 过读取Microsoft Excel文件中的最小对象—单元格区域 （cells（i,j））的主要信息，利用VBA建立AutoCAD与 Excel的通信，然后在AutoCAD文件里指定的图层、位置画 线条，书写文字。通过循环，遍历所有单元格区域（cells （i,j）），边读边写，最终完成边坡位移曲线的绘制。
演示结果：
系统的推广：
• 运用此程序可以精确而简便的绘制边坡位移曲线，
•
避免了大量的重复劳动，节省了人力物力。 边坡位移曲线绘制中，经常遇到许多类似的大量 的、重复的、有逻辑性的操作，只要合理利用 VBA，发挥其强大的功能，实现AutoCAD与Excel 应用程序的无缝连接，快速交换数据，就可以在 短时间内完成所需的设计工作，达到事半功倍的 效果。
• • • • • • • • •
2. 读入坐标点画位移曲线
（1） 设定工作表（Worksheet）的每一行第一列（cells（i,1））为时间，每一行第二列（cells（i,2）） 为水平位移累积量，每一行第三列（cells（i,3））为对应的垂直位移累积量。由于时间的值远小于位移 值，因此将时间值乘以10。 （2） 以（0，0，0）为原点，以时间累积量乘以10为x坐标，对应的水平或垂直累积量为y坐标，0为z 坐标，分别绘制出水平移动累计图，与垂直移动累计图。进而完成边坡位移图形的绘制。 （3） 下述代码可读入Excel数据信息画位移曲线 Dim i As Integer Dim lineobj As AcadLine Dim sPt(0 To 2) As Double Dim ePt(0 To 2) As Double „读入坐标画位移曲线 Worksheets(“sheet1”).Activate i = 2 „由第二行起 Do Until cells(i, 1).Value = "" If cells(i + 1, 1) = 0 Then Exit Do End If sPnt(0) = cells(i, 1).Value sPnt(1) = 10 * cells(i, 2).Value sPnt(2) = 0 ePnt(0) = cells(i + 1, 1).Value ePnt(1) = 10 * cells(i + 1, 2).Value ePnt(2) = 0 Set lineobj = ThisDrawing.ModelSpace.AddLine(sPnt, ePnt) i=i+1 Loop
工作过程：
1. • • •
在AutoCAD中创建Excel应用程序 要编写存取Excel的应用程序，必须通过VBA将Excel中的对象能够 让用户使用，这就需要参考 Excel对象的数据库。其步骤如下： （1） 打开AutoCAD的VBA编辑器（命令：VBAIDE）； （2） 选择“工具”\“引用”项，在弹出的“引用”对话框 的“可使用的引用”列表框内，选择“Microsoft Excel 11.0 Object Library”项； （3 ） 单击“确定”按钮； （4） 接下来使用下列代码可创建完整的应用程序对象实例： Dim Excel As Excel.Application '激活要与之通信的Excel应用程序 On Error Resume Next Set Excel = GetObject(, "Excel.Application") If Err <> 0 Then Set Excel = CreateObject("Excel.Application") End If
边坡变形监测曲线自 动成图系统的开发
项目的提出：
• 近 10 多年来，我国因崩塌、滑坡、泥石流
而死亡的人数达近万人，每年因滑坡造成 的损失高达250~400 亿元。另外，高层建 筑、大坝、桥梁等的变形也给人民的生命 财产带来严重的威胁。对滑坡的变化趋势 进行预测是减灾防灾的基础，地质勘察和 分析是滑坡评价预测的基本方法和手段， 变形位移监测作为辅助性手段，在分析滑 坡体结构、成因，评价预测滑坡稳定性及 发展趋势等方面具有重要意义。