AutoCAD VBA在滑坡稳定性计算方面的应用.pdf

《AutoCAD VBA在滑坡稳定性计算方面的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第21卷第3期资源环境与工程Vo1．21，No．32007年6月ResourcesEnvironment＆EngineeringJune．，2007AutoCADVBA在滑坡稳定性计算方面的应用陆柏树，刘云彪，李同林(湖北省水文地质工程地质大队，湖北荆州434100)摘要：针对滑坡稳定性计算软件存在诸多使用上不方便的问题，采用AutoCADVBA编制了折线形滑坡的传递系数法稳定性计算分析程序，结合工程实例对比计算，为滑坡的稳定性评价提供了较为方便的计算方法。关键词：滑坡稳定性；传递系数法；AutoCADVBA中图分类号：P631；P642．

2、22文献标识码：A文章编号：1671—1211(2007)03—0331—04就可能要重新再来。O引言本人通过对AutoCADVBA进行考察后，认为Au．滑坡稳定性计算的方法很多，诸多文献上均有较toCAD具有较强的图形处理能力，AutoCADVBA具有详细的理论分析和程序说明。随着计算机技术的发对图形对象的属性获取、生成和数据处理的能力，可以展，尤其是Windows操作系统的广泛使用，用户逐渐对解决以上的矛盾。通过实践，本人用AutoCADVBA编在DOS下进行数据文件组织、不断调试再生成图形的制了折线形态滑坡的传递系数法稳定性计算分析程

3、方式也进行了改进，在国外发展了一系列的图形界面序，现通过本文叙述其主要思路，供大家借鉴。下的滑坡稳定性计算方面的软件，国内的地质院校、研1AutoCADVBA简介究院、勘察软件公司等也各自开发出计算、分析软件，VBA是VisualBasicforApplication的简称，Au—在程序设计方面也各有千秋。比较有代表性的有国外todesk公司在AutoCAD2000以后将VBA加入到Auto．的GeoSlope、中国地质大学的LASA、成都理工大学的CAD中，使AutoCADVBA成为AutoCAD的又一种二SlopeCAD、理正公司的边坡

4、稳定性分析软件、殷跃平博次开发工具。VBA将AutoCAD和VisualBasic的功能士编制的滑坡稳定性计算软件等，各程序的使用均在结合在一起，能够快速创建出符合用户要求的程序，大Windows界面下，操作较为便利。大地提高了用户的工作效率。当前所用的软件在地形、滑带、水位数据录入时较AutoCADVBA使用AutoCADActiveX技术，使得为麻烦，各种软件采用不同的方式方法。比如某些计用户能够从AutoCAD的内部或外部以编程的方式来算软件采用的方法是将DXF格式的图形转换成．操作AutoCAD。采用AutoCADActiveX技术

5、和VBA具shp文件格式后，并以．shp格式作为其计算时的图有以下的几个优点：形依据，从图形中获取滑坡的形态参数，并以表格的方①可以编程操作、控制AutoCAD，访问AutoCAD式手工录入滑坡的物理、力学性质参数，然后进行模型图形；的建立和稳定性分析。这样虽然解决了滑坡形态参数②对ActiveX技术的支持使其与其他Windows应的录入问题，但需要进行数据文件的转换等，文件较用程序如Excel、Word等进行数据共享、信息交流提供多，且不能采用工程文件的方式进行管理，每次计算时了较好的途径；都要录入大量的物理、力学性质参数数据，存在许多不

6、③开发环境和编程语言易于使用，且随AutoCAD便。其他的滑坡稳定性软件也都存在滑坡的形态参数一起安装；录入较麻烦的问题，大多是人工剖分后以数据文件的④运行速度较其他AutoCAD二次开发技术的代方式存贮，再调入分析软件内进行数据处理、显示。这码要快；种方式有较多的不便，比如一旦修改模型，所有的工作⑤VisualBasic的强大的数据处理、计算能力；’收稿日期：2007—05—18；改回日期：2007—06—04作者简介：陆柏树(1969一)，男，高级工程师，地球物理勘探专业，从事地球物理勘探和地质灾害研究工作。E—mail：baishu@

7、gmail．tom维普资讯http://www.cqvip.com332资源环境与工程2007生⑥数目庞大的Basic程序员基础，大多数技术人子程序的代码中，并使被选中的图形实体高亮显示。员都有过学习Basic的经历，以及相当一部分人使用1．3多段线的坐标获取VisualBasic进行程序设计。使用如下代码可以使用户用鼠标选择滑坡的形态AutoCADVBA的以上优点决定了它可以成为基特征线：GETEntDXX于AutoCAD的滑坡稳定性计算的程序编制的利器。_—Obj，“AcDbPolyline”，“请选择地现将要使用到AutoCADVBA

8、的基本功能叙述如下。形线(必须是多义线)，Ctrl+Break退出：”GETEntHDX1．1当前图形对象_—Obj，“AcDbPolyline”，“请选择滑带线(必须是多义线)