《基于 VBA 的边坡位移监测曲线自动绘制.doc》由会员分享，可在线阅读，更多相关《基于 VBA 的边坡位移监测曲线自动绘制.doc（5页珍藏版）》请在三一文库上搜索。
1、基于 VBA 的边坡位移监测曲线自动绘制曹博 1，李雁飞 21 辽宁工程技术大学资源于环境工程学院，辽宁阜新 (123000)2 神华宝日希勒能源有限公司，内蒙古海拉尔 (021025)E-mail：摘要：本文基于边坡位移监测数据，通过分析监测曲线的性质，运用 AutoCAD 的内嵌编程语言 VBA，开发出了数据图形化转换程序，实现了边坡位移监测曲线的自动绘制。程序 应用于平庄西露天矿，提高了边坡监测的工作效率，对类似的工程有指导意义。 关键词：AutoCAD2004；位移监测曲线；VBA中图分类号：TD8041引言近 10 多年来，我国因崩塌、滑坡、泥石流而死亡的人数达近万人，每年因滑坡造成
2、的 损失高达 250400 亿元。另外，高层建筑、大坝、桥梁等的变形也给人民的生命财产带来严 重的威胁。对滑坡的变化趋势进行预测是减灾防灾的基础，地质勘察和分析是滑坡评价预测 的基本方法和手段，变形位移监测作为辅助性手段，在分析滑坡体结构、成因，评价预测滑 坡稳定性及发展趋势等方面具有重要意义。边坡位移监测曲线能够更直观的反映边坡的发展和变形规律，而传统的绘图方式精度 差、效率低。为了提高绘图的精度及效率，我们基于内嵌于 AutoCAD 的 VBA 语言二次开 发出了位移监测曲线自动生成系统。只要把变监测数据按一定的格式输入到外部数据文件 中，利用该系统就可自动生成曲线，大大提高了监测数据的处
3、理速度，提高了绘图精度及质 量。2边坡变形监测原则边坡变形是一个自微观变形向宏观变形的转化过程，一般自变形开始至失稳要经历 4 个阶段。故可以在边坡发生变形的过程中，采取适当方法对其变形进行监测，确保其变形在 安全范围内，这样就确保了边坡的稳定。如在、阶段，我们认为它的变形在规定的安全 范围之内，那么影响因素对边坡稳定产生的影响可以忽略不计，边坡是稳定的；但、在 阶段，边坡产生的变形有可能导致失稳，必须采取一定的加固措施将其变形控制在安全范围 之内以保证边坡的稳定。因此，通过变形监测，掌握边坡变形的发展和变化规律，进而对其 进行预报，防止边坡的失稳或减小边坡失稳时人员和财产的损失是十分必要的。
4、3边坡变形监测内容和方法包括以测量位移形变信息为主的监测方法：如地表相对位移监测、地表绝对位移监测（大 地测量、GPS测量等）、深部位移监测。位移监测主要以深部水平位移监测为主，表面位移 监测为辅，并及时进行地质现象巡查，以监测边坡整体稳定性和滑坡体变形发展趋势。该类 技术目前较为成熟，精度较高，常作为常规监测技术用于边坡变形及其其他地质灾害监测； 由于获得的是灾害体位移形变的直观信息，特别是位移形变信息，往往成为预测预报的主要 依据之一。4程序设计及实现方法-5-4.1 设计思路VBA 是内嵌在 AutoCAD 中的编程语言，利用 VBA 语言编程能依照外部数据文件提供 的数据生成图线的功能
5、，可实现对某些过程连续测试结果数据的图形化转化功能。基于这个 思想，我们在开发时，将试验数据存入外部数据文件，再利用 VBA 语言编程读入数据文件 并生成相应的图形。4.2 数据文件的建立选用 excel 和 txt 格式为外部数据文件，文件格式如表 1。表 1 数据文件格式Tab.1 Data file format编号日期水平位移累积量(mm)垂直位移累积量(mm)12007-1-1301022007-1-640204.3 测试数据的图形化转换程序曲线的自动绘制是通过读取数据文件生成。首先插入曲线的标题和刻度单位文本，根据 数据算出数值轴刻度的最大值、最小值，然后设定坐标轴刻度的最大值、最
6、小值和刻度单位， 以保证所生成的曲线在合理的区域内显示。X 轴的数据选择时间，Y 轴的数据选择变形量。 当监测的数据和时间发生变化时，变形曲线会随之发生变化，会造成坐标轴的最大和最小值 发生较大的变化，在可视的范围内不能全部显示。此时可以根据数据，调整坐标轴的最大值 和最小值，使所生成的曲线在合理的范围内显示。4.4 程序流程：(1)读取 excel 文件数据，通过坐标数据文件中的最大、最小坐标定出屏幕窗口的显示范 围。(2)绘制 X 轴和 Y 轴及刻度线。 (3)在指定点插入标题和刻度值文本。 (4)使用已读取的数据绘制位移监测曲线。 程序片段如下：Dim linex,liney As Ac
7、adLineDim line_x(0 To 2), ine_y(0 To 2) As DoubleDim o(0 To 2) As Double o(0) = o(1) = o(2) = 0line_x(0) = 1.3 * pt_max: line_x(1) = 0: line_x(2) = 0 line_y(0) = 0: line_y(1) = 1.3 * pt_max: line_y(2) = 0Set linex = ThisDrawing.ModelSpace.AddLine(o(), line_x() Set liney = ThisDrawing.ModelSpace.AddL
8、ine(o(), line_y() For iii = 0 To num_i - 1pt(iii).x = excelsheet.Cells(iii + 1, 2).Value pt(iii).y= excelsheet.Cells(iii + 1, 3).ValueNext iiiDim pt1() As DoubleReDim pt1(3 * (num_i - 1) - 1) As DoubleFor m = 0 To num_i - 1pt1(3 * m) = pt(m).x: pt1(3 * m + 1) = pt(m).y: pt1(3 * m + 2) = 0Next mDim j
9、c_line As AcadPolylineDim jc_layer As AcadLayerSet jc_layer = ThisDrawing.Layers.Add(位移监测曲线) Set jc_line = ThisDrawing.ModelSpace.AddPolyline(pt1)jc_line.color = acRed jc_line.layer = 位移监测曲线4.5 图形的自动绘制及输出在 AutoCAD 2004 主界面上，选择工具菜单中的加载应用程序选项，在打开的对话框中 选择程序文件名，将程序装载到 AutoCAD 2004 中，然后在命令行中输入定义的命令名 jc，
10、在弹出的对话框中选择目标数据文件，在 AutoCAD2004 的绘图区域就生成了所需绘制的图 形。5应用实例以平庄西露天矿 24-1 监测孔监测数据为例，数据存储为 excel 格式（如表 2）。然后调 用图形转化程序，自从生成边坡位移监测曲线（如图 1、图 2）。表 2 24-1 位移监测数据Tab.2 Displacement monitoring data编号日期水平位移累积量(mm)垂直位移累积量(mm)12007-6-15152.5057-18222007-6-29331.8207-34832007-7-4420.0774-47642007-7-9451.3103-54952007-
11、7-16586.571-59462007-7-22692.391-79772007-7-30842.492-96582007-8-91050.298-100292007-8-141171.048-1045102007-8-221333.921-1158112007-8-281522.914-13190-100-200-300-400-500-600-700-800-900-1000-1100-1200-1300102030405060708090100时 间（天 ）下 沉移动 分量 （ mm）图 1 24-1 垂直移动分量Fig1 24-1Vertical displacement平 面 移
12、动 分 量 （ m m ）19 0 018 0 017 0 016 0 015 0 014 0 013 0 012 0 011 0 010 0 090 080 070 060 050 040 030 020 010 00 10 20 30 40 50 60 70 80 90 10 0时 间 （ 天 ）图 2 24-1 平面移动分量Fig2 24-1Plane displacement6结论(1) 使用该系统程序自动绘制边坡位移监测曲线，提高了绘图的精度及质量，同时在现 场的边坡监测工作中得到了很好的应用。(2) 该系统程序简单，运行可靠，使用方便。(3) 系统程序现只提供了 excel 和 t
13、xt 格式数据文件接口，以后将提供更多的数据文件接 口，提高程序的通用性。参考文献1 崔政权.边坡工程理论与实践最新发展M.北京：中国水利水电出版社.1999. 2 陈永波.滑坡系统监测及预报J.水土保持研究.2001.8（2）：112114.3 罗丹.基于 VBA 的参数化图库J.常德师范学院学报(自然科学版),2001,(04).4 顾海花. VBA 在 Word 和 Excel 数据交互中的应用J.南通职业大学学报 , 2003,(03). 5 张甲寅.王沛东.利用 VBA 实现特殊曲线的自动绘制J.信息技术, 2002,(11).Automatic Drawing of Slope D
14、isplacement MonitoringCurve Based on VBACao Bo1,Li Yanfei21. College of Resource and Environment Engineering, Liaoning Technical University, Fxuxin, Liaoning (123000)2. Shenhua Baorixile Energy Co,Ltd., Hailaer, Neimenggu (021025)AbstractThis article based on slope displacement monitor data.Through
15、analyzing monitoring curveproperty,using embedded programming language VBA in AutoCAD, developed date-graph converssion automatic plotting system,which applied to Pingzhuang west open pit,improved work efficiency and had guiding significance to similar projects.Keywords: AutoCAD2004; Slope Displacement Monitor Curve; VBA作者简介：曹博，男，1984 年生，硕士研究生，主要研究方向是露天采矿技术、数字矿山和露天边坡 工程。李雁飞，男，1983 年生，技术员，主要研究方向露天开采技术理论。