边坡变形监测曲线.ppt

边坡变形监测曲线.ppt

ID:50929269

大小:132.01 KB

页数:9页

时间:2020-03-16

边坡变形监测曲线.ppt_第1页
边坡变形监测曲线.ppt_第2页
边坡变形监测曲线.ppt_第3页
边坡变形监测曲线.ppt_第4页
边坡变形监测曲线.ppt_第5页
资源描述:

《边坡变形监测曲线.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、边坡变形监测曲线自 动成图系统的开发项目的提出:近10多年来,我国因崩塌、滑坡、泥石流而死亡的人数达近万人,每年因滑坡造成的损失高达250~400亿元。另外,高层建筑、大坝、桥梁等的变形也给人民的生命财产带来严重的威胁。对滑坡的变化趋势进行预测是减灾防灾的基础,地质勘察和分析是滑坡评价预测的基本方法和手段,变形位移监测作为辅助性手段,在分析滑坡体结构、成因,评价预测滑坡稳定性及发展趋势等方面具有重要意义。边坡位移监测曲线能够更直观的反映边坡的发展和变形规律,而传统的绘图方式精度差、效率低。为了提高绘图的精度及效率,我

2、们基于内嵌于AutoCAD的VBA语言二次开发出了位移监测曲线自动生成系统。只要把变监测数据按一定的格式输入到外部数据文件中,利用该系统就可自动生成曲线,大大提高了监测数据的处理速度,提高了绘图精度及质量。设计原理与基础:VisualBasicforApplication(VBA)是Microsoft面向最终用户的应用软件编程语言。它最早出现于Microsoft的Excel和Project中,如今VBA已成为VB和所有Office产品的组件。常用的绘图软件AutoCAD也已支持VBA作为二次开发工具。VBA最大特点和

3、最大优点是利用面向对象(OOP)的ActiveXAutomation技术,使语言的引擎在技术上与开发环境分离。它的功能在很大程度上依赖于它的客户显露的Automation接口。同时,由于VBA是基于ActiveXAutomation技术,它可以使用任何Automation技术的应用程序共同工作。 基于AutoCAD的VBA应用程序就是高级程序语言的计算功能与AutoCAD的绘图功能结合,使用VBA程序语句来控制对AutoCAD图形的操作。VBA作为一个集成的开发环境,它提供了高质量的用户化编程能力,能够使AutoCA

4、D数据与其它的VBA应用程序,如MicrosoftExcel软件,直接共享,实现无缝连接,交换数据非常方便。在MicrosoftExcel中,与表对应的对象是工作表(Sheet或Worksheet),与每一个表格方格对应的对象是单元格区域(range),它可以仅包括一个单元格(cell),也可以由多个单元格合并而成。工作表对象中的cells属性,在单元格的选择方面可以达到与range相同的效果,它是以行(row)和列(gol)作为参数的,对于行和列的选择可以采用变量的形式。在本例中,可设定工作表(Worksheet)

5、的每一行第一列(cells(i,1))为时间累积量,每一行第二列(cells(i,2))为对应的水平位移累积量,每一行第三列(cells(i,3))为对应的垂直位移累积量。在AutoCAD中,没有与表对应的对象,但可以根据表中时间间隔定义水平距离,根据水平与垂直累积量定义垂直距离,将表中数据理解为线条与文字对象的集合。这样,通过读取MicrosoftExcel文件中的最小对象—单元格区域(cells(i,j))的主要信息,利用VBA建立AutoCAD与Excel的通信,然后在AutoCAD文件里指定的图层、位置画线条

6、,书写文字。通过循环,遍历所有单元格区域(cells(i,j)),边读边写,最终完成边坡位移曲线的绘制。工作过程:在AutoCAD中创建Excel应用程序要编写存取Excel的应用程序,必须通过VBA将Excel中的对象能够让用户使用,这就需要参考Excel对象的数据库。其步骤如下:(1)          打开AutoCAD的VBA编辑器(命令:VBAIDE);(2)          选择“工具”“引用”项,在弹出的“引用”对话框的“可使用的引用”列表框内,选择“MicrosoftExcel11.0Object

7、Library”项;(3)        单击“确定”按钮;(4)          接下来使用下列代码可创建完整的应用程序对象实例:DimExcelAsExcel.Application'激活要与之通信的Excel应用程序OnErrorResumeNextSetExcel=GetObject(,"Excel.Application")IfErr<>0ThenSetExcel=CreateObject("Excel.Application")EndIf2.读入坐标点画位移曲线(1)设定工作表(Worksheet)的每

8、一行第一列(cells(i,1))为时间,每一行第二列(cells(i,2))为水平位移累积量,每一行第三列(cells(i,3))为对应的垂直位移累积量。由于时间的值远小于位移值,因此将时间值乘以10。 (2)以(0,0,0)为原点,以时间累积量乘以10为x坐标,对应的水平或垂直累积量为y坐标,0为z坐标,分别绘制出水平移动累计图,与垂直移动

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。