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

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