VBA二次开发在抗滑桩结构设计中的应用.docVIP

VBA二次开发在抗滑桩结构设计中的应用 摘要：论文利用基于VBA的AUTOCAD二次 幵发技术，实现了 AUTOCAD抗滑桩结构图的参数化 绘制，符合工程实际要求，操作方便、简洁，大大提 高工作效率。实践证明，VBA二次开发技术将VBA的 快速编程优势与AutoCAD的图形功能完美结合，是 一种行之有效、方便实用的设计方法。 关键词：VBA； AUTOCAD；二次开发；抗滑桩 1引言 在我国，抗滑桩作为治理滑坡的一种主要工程措 施被公路、铁路、水利、国土等部门广泛采用，并在 桩型和应用范围方面得到较大的发展。与其他抗滑工 程相比，抗滑桩具有如下优点：设桩位置灵活，除成 排设在滑坡前缘外，也可根据具体情况，设在滑体的 其他部位，并可与其他防治措施联合使用；开挖土石 方量小，施工中对滑坡体的稳定状态影响小；挖孔桩 桩孔可揭示滑坡的工程地质情况，检验和修改原设计， 使之更完善更符合实际情况；施工方便，设备简单。 由于抗滑桩在治理滑坡中的突出优点，使抗滑桩广泛 应用于滑坡治理工程。目前抗滑桩结构设计一般采用 理正软件计算抗滑桩内力，再由结构设计人员按照规 范要求进行配筋设计，最后根据配筋计算结果在 AUTOCAD手动绘制抗滑桩结构图，效率较低，出图慢。 使抗滑桩结构图绘制自动化，将大大提高工程设计人 员的效率。 抗滑桩结构图绘制通常使用CAD软件平台，利用 其提供的二次开发工具VBA (Visual Basic For Application)可以很简便并迅速地开发出多功能的应 用程序。VBA组件基于可视化、面向对象开发工具VB， 其开发环境与VB集成开发环境相近，但较Auto Lisp、 VisualLisp、ADS等开发工具，更能快捷、方便地实现 友好的人机交互，功能强大，扩展灵活且开发简单， 易于实现。利用它进行CAD的二次开发，进行抗滑桩 结构图自动绘制，能大大提高工作效率，使结构设计 人员能有大量时间进行结构计算调整，便于优化设计。 2程序设计基本思路 一般而言，一个完整的CAD系统，包括前处理部 分、核心计算部分、后处理部分等三大部分组成。前 处理部分主要是收集各种计算参数及相关数据，核心 计算部分一般是计算分析子程序，后处理部分就是将 计算结果自动成图，以减轻设计者的负担。本文开发 的抗滑桩结构图自动生成系统首先通过对话框输入抗 滑桩尺寸参数、钢筋布置参数、成图要求参数，然后 通过菜单触发的方式，产生消息映射，进行钢筋配置 计算及工程量计算，最后将计算结果可视化，点击成 图命令按钮绘制抗滑桩立面图、截面图及工程量表。 程序设计流程如图1所示。 3程序设计过程及程序实现 启动时载入VBA工程 当AutoCAD启动时，在其目录中寻找名为 KHZ.dvb的工程。这一文件将被自动载入并作为缺省 的工程，同时触发文档级事件ACADStartup，在此事件 中载入AutoCAD二次开发的DVB文件。实现该功能 程序代码如下。 Call AcadApplication. LoadDVB (“C: \ Program Files \ AutoCAD 2006 \ Support \ KHZ .dvb”) 软件在AutoCAD平台上，开发了自定义的 菜单 使用VBA/ActiveX可以编辑、增加己有的菜单结 构，也可以完全替代当前菜单结构，本程序增加菜单 如图2所示。考虑到工程制图的需要，软件是在 AutoCAD界面上添加抗滑桩结构图绘制所需的菜单。 通过TheMacro与菜单相连，激活VBA文件中相应模 块的宏，执行用户的指令。相关代码如下。 Dim currMenuGroup As AcadMenuGroup Set currMenuGroup=Application.MenuGroups.l_tem (0) Set NewMenu = currMenuGroup.Menus.Add (M抗 滑桩n) TheMacro = Chr (3) Chr (3) Chr (95) ■vbarun nKHZ.dvb! DZPM.KHZ,,,H, Chr (32) Set NewMenultem = NewMenu.AddMenultem（NewMenu.Count+1，n抗滑桩结构图’’，TheMacro）Set NewMenultem = NewMenu.AddMenultem（NewMenu.Count+2，11 护壁结构图，TheMacro） （3）可视化界面设计 在本程序中，设计了抗滑桩参数输入及钢筋参数 输入两个窗体。 抗滑桩参数输入窗体（如图3所示）：该界面要求 输入抗滑桩尺寸参数、钢筋布置参数、成图要求参数， 程序调用这些参数通过内置计算程序生成抗滑桩立面 、截面图等。 钢筋参数输入窗体（如图4所示）：该界面要求