基于autocad与flac的边坡稳定性分析

《基于autocad与flac的边坡稳定性分析》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第19卷第2期岩　土　工　程　技　术Vol119No122005年4月GeotechnicalEngineeringTechniqueApr,2005文章编号:1007O2993(2005)02O0063O06基于AutoCAD与FLAC的边坡稳定性分析谢　斌　钟　敏　陈广平(北京科技大学土木与环境工程学院,北京　100083)　　【摘　要】　介绍了通过VisualBasic与AutoCADVBA整合AutoCAD与FLAC,实现通过AutoCAD建立有限差分数值模型并调用Flac进行边坡稳定性的智能分析。【关键词】VBA;FLAC;AutoCAD;边坡;稳定性分析【中图分类号】TU413.6

2、2;TU17SlopeStabilityAnalysisBasedonAutoCADandFLACXieBinZhongMinChenGuangping(Civil&EnvironmentalEngineeringSchoolofUSTB,Beijing100083China)【Abstract】TherealizationandapplicationoftheslopestabilityanalysiswhichbasedonAutoCADandFLACareintroduced.【KeyWords】VBA;FLAC;AutoCAD;slope;stabilityanalysis0　引　言材

3、料的高度非线性(包括应变硬化/软化)、不可逆随着计算机性能的飞速提高,计算机在岩土工剪切破坏和压密、粘弹(蠕变)、空隙介质的应力O渗程上的应用也得到了较大的发展。我国岩土工程计流耦合、热O力耦合以及动力学行为等。FLAC程算机应用技术取得长足发展,一是工程地质信息系序建立在拉格朗日算法基础上,特别适合模拟大统的研究与应用达到一个新的高度,进入实用化的变形和扭曲。FLAC采用显式算法来获得模型全阶段,并有较高的普及程度。许多单位和软件公司部运动方程(包括内变量)的时间步长解,从而可均将工程地质信息系统的开发与应用作为今后的重以追踪材料的渐进破坏和垮落,这对研究岩土工点工作。二是岩土工程计算机应用

4、已由过去简单的程是非常重要的。文字、数据、图形处理发展到数据、资料综合存储、管随着图形矢量化技术的发展,可以方便地把理、开发利用的新水平。三维工程地质模型的开发、已有的地形勘测图通过矢量化转换为CAD文档。[1]研究也取得了可喜的进步。然后通过AutoCADVBA技术实现图形中数据的AutoCAD是美国Autodesk公司推出的图形设分类、提取,并建立与FLAC的接口实现边坡稳定计软件,它以其强大而又完善的功能以及方便快捷性分析的自动建模、分析。地操作在机械、建筑和工程等设计领域中得到了极1　边坡稳定智能分析的实现为广泛的应用。AutoCAD还提供的完善的二次开本人编写了程序AutoOFLAC

5、来实现对边坡稳发功能和接口技术,这对我们开发适合专业要求的定性的智能分析。实现流程见图1。CAD软件提供了大大的方便。本文将探讨通过下面以某矿山边坡为例介绍边坡稳定性智能化VBA二次开发与FLAC相结合实现土建工程边坡分析的具体步骤:的智能建模与稳定性分析。1)通过矢量化获得边坡的地形图资料(见图2)。FLAC(FastLagrangianAnalysisofContinua)2)通过VBA编程处理该CAD文件获得对于边[2]是由美国明尼苏达大学和美国ItascaConsulting坡稳定性分析有用的资料。GroupInc.开发的一款基于二维有限差分的计算本例中的操作为:先将图2中的各类线条进

6、行程序。由于FLAC程序主要是为岩土工程应用而分类,然后将其分别归入自定义的图层(如:等高线开发的岩土力学计算程序,程序中包括了反映地层、标注层等)中。由于是进行边坡稳定性分析,所质材料力学效应的特殊计算功能,可计算地质类以处理后默认为只显示等高线层(见图3)。作者简介:谢　斌,1979年生,男,汉族,四川遂宁人,在读硕士研究生,现从事岩土力学—边坡、隧道方面的研究。64　　　　　　　　　　　　　　岩　土　工　程　技　术　　　　　　　　　2005年第2期图1AutoOFLAC的实现流程Add方法和系统变量的设置等。对等高线识别中可能出现的误差,提供了人工修改属性的功能,以便程序能够正确划分所有

7、的等高线。’CAD图形自动分层:PublicSubAutoLayer()’在图形中创建新图层DimValueAsVariant图2　原始地形图Value=ThisDrawing.GetVariable“(cmdecho”)ThisDrawing.SetVariable“cmdecho”,0DimObjLayerAsAcadLayerSetObjLayer=ThisDrawing.Layers.Ad