AutoCAD VBA在堤防边坡的抗滑稳定计算中的应用.pdf

2006．No．5 海河水利 ·63· AutoCAD VBA在堤防边坡的抗滑稳定计算中的应用 衣秀勇，李文，黄成阳 (中水北方勘测设计研究有限责任公司，天津300222) 摘要：AutocADvBA是AutocAD的一个二次开发工具，可以用来完成土层的处理、滑弧的绘制和土条重力墙角、孔 隙水压力的计算以及土条应使用的粘聚力和内摩擦角的确定等堤防边坡抗滑稳定计算的内容。 关键词：AutoCADvBA；堤防边坡；圆弧滑动法；抗滑稳定 中圈分类号：TV871．4文献标识码：A 文章编号：1004—7328(2006)05—0063一04 l堤防边坡抗滑稳定的计算方法 2 使用AutoCADⅦA进行抗滑稳定计算的步骤 堤防边坡的抗滑稳定计算采用瑞典圆弧滑动 Microsoft 法，计算图形如图1所示。 工具，能够高效率地对AutoCAD进行编程控制。 使用AutoCADVBA计算堤防边坡抗滑稳定安全 系数的方法是在AutoCAD中绘出瑞典圆弧滑动 法的计算图形，并通过图解法计算相关指标的数 值，其计算步骤如下：①在AutoCAD中画出堤防 边坡、土层、水位线和浸润线的图形。②对构成堤 防和堤基的土层按相对水位线和浸润线位置的不 同进行细分，以确定稳定计算时应采用的物理力 学指标。③确定最危险滑弧圆心的可能范围和滑弧 圈1圆弧滑动法的计算图形 半径。④计算单个滑弧的稳定系数，通过循环找到 稳定渗流期抗滑稳定安全系数的计算公式为： 最危险的滑弧。 3原始图形的准备 融至i垡i!曼丝[(里!±里22旦Q眨(些兰盘2垒!旦塑卫腔!!f1、 一 ”7 ∑(形1+形2)si邮 原始图形包括完整的以多段线表示的堤坡线、 式中：6为条块宽度(m)；形，为在堤坡外水位以上的 水位线、浸润线、土层分界线。土层应足够大以包括 条块重力(kN)；形：为在堤坡外水位以下的条块重力 所有可能的滑弧，堤坡线应为所有土层的外包线。 (kN)；Z为堤坡外水位高出条块底面中点的距离 原始图形的准备有两种方式：一是由用户在 (m)；“为稳定渗流期堤身或堤基中的孔隙水压力 AutoCAD中绘出这些图形，VBA程序通过选择集 (kPa)；口为条块的重力线与通过此条块底面中点的 的不同方法让用户在屏幕上选择或者自动识别相应 半径之间的夹角(。)；rw为水的重度(kN／m3)；C’，p’ 的线，程序1是VBA自动识别线的示例代码．见图 为土的抗剪强度指标[kN／m3，(o)]。 2；二是由VBA程序使用各线顶点坐