AutoCAD中VBA语言在渗流有限元前处理中的应用.pdfVIP

23卷第 1期 水 利 水 电科 技 进屋 2003年2月 AutoCAD中VBA语言在渗流有限元前处理中的应用 严 飞，詹美礼，速宝玉 (河海大学水利水电-1-程学院，江苏 南京 210098) 摘要：利用VBA平台在AutoCAD中实现二次开发，使得仅需在超单元结点处点击鼠标，就可将结点 坐标及单元信息写入文件，自动在图上标出相应的结点号；通过单元信息和结点信息绘制平面有限 元网格图形，并复核其正确性，形成空间单元信息后，可高效绘制三维空间有限元网格． 关键词：渗流；VBA；超单元信息；有限元网格 中图分类号：TV139．14 文献标识码 ：B 文章编号：1006—7647(2003)01—0028—02 分的有关原则 J，确定超单元 ． 1 AutoCAD中VBA语言简况 2．2 利用 VBA中的 Getpoint函数获取超单元的结 VBA最早是建立在 Omce97中的标准宏语言， 点坐标信息(程序 1) 其全称是 VisualBasicforApplication，它的魅力来 自 形成 了超单元后 ，需要对超单元、结点进行编 两个方面 ：一是与 VisualBasic有着几乎相同的开发 号，并取得超单元信息、结点坐标信息．通常这一步 环境和语法 ，功能强大且易于掌握 ；二是它的f0r印． 是整个有限元前处理中最为烦琐的环节 ．如今一般 plication功能 ，即它的针对性非常强．它驻留在主程 的有限元程序都能够剖分超单元并生成结点信息和 序的内部，使其结构精简，且代码运行效率非常高． 单元信息，但这是建立在已经知道 了超单元信息的 AutoCAD自R14．01版开始 ，内置了VBA开发工具 ， 基础上的．而获取超单元的有关信息一般仍需由手 使得广大会用 VB的编程者不用学习AutoLISP语 工完成 ．对于计算区域较大 ，超单元数量较多的渗流 言，也能够很轻松地实现 “二次开发”… ． 有限元分析 ，这样获取超单元信息也是一项艰 巨的 VBA平台在 AutoCAD的 “主菜单一工具一宏一 工作 ，费时费力且容易出错 ．巧妙地利用AutoCAD下 VBA编辑器”下，绝大多数语句和 VisualBasic差不 VBA中的Getp0int函数 ，可以大大简化工作，并且得 多．当编好程序后，点 “运行”程序图标(或 F5键)运 到任意精度的点坐标 ． 行程序．若想保存文件，点 “保存”图标，输入文件名， Getpoint函数获取结点坐标信息的原理如下：将 则文件 以后缀名为．dvb的格式保存在 自己指定的 CAD设置为 自动捕捉模式 ，当鼠标捕捉到有限元超 路径下 ．当下次需要运行时，打开 “菜单栏一工具一 单元结点时，点击该结点，该点的坐标值就可以通过 宏一加载工程”，给出上次保存 的路径，就可 以将其 VBA中的Getpoint函数得到 ： 加载在 VBA编辑器环境下以供使用 J． pointl= ThisDrawing．Utility．GetPoint(，vbCrLf “这是第”CStr(i)“点”) 2 利用VBA进行三维有限元计算前处理的步骤 CAD系统将 刚才捕捉到的结点坐标存放在变 在渗流计算 中，由于绝大多数 图形资料是 以 量pointl中，如果在 VBA程序 中先引用 Getpoint，再 AutoCAD形式给出，这就使得渗流三维有限元计算 将这一变量写入一个文件，这样就可以将该点的坐 中的前处理以AutoCAD为平 台进行开发成