VB调用AutoCAD绘制结构工程配筋图程序设计方法

　　为了提高工程师的绘图效率, 节约时间, 以VB610 调用AutoCAD2006 类库绘制配筋图,VB610 可编程设置AutoCAD2006 的线型、比例、图层、标注尺寸线、填充等关键点. 绘图实例说明这种方法方便、可行, 适合于土木工程专业人员应用, 充分发挥了VB610 的计算功能和Auto-CAD2006 的绘图功能。

　　AutoCAD 主要用于二维绘图, 被广泛应用于各行业. VB610 版支持面向对象的程序设计, 简单直观. 文献给出了VB 语言与土木工程专业相结合的方法和实例. 文献用VB 设计界面设计水利工程中的箱涵结构并进行计算, 得到结果后调用AutoCAD 出图. 文献用AutoCAD 提供的二次开发语言定制下拉菜单, 并设计了参数输入界面. 文献将VB610 和AtuoCAD2000 联合应用, 绘制带状地形图的纵横断面图. 本文作者将VB610 调用AutoCAD2006的方法应用于结构工程专业, 以梁配筋图为例绘制施工图, 充分发挥两款软件各自的优势.

1、结构工程中配筋图的程序设计

　　VB610 调用AutoCAD 绘图有几个关键点: VB调用AutoCAD 的方法, AutoCAD 类库的结构, 添加线型, 设置线型比例和宽度, 设置图层, 绘制直线, 绘制圆, 写文字, 设置标注尺寸线, 填充等.

　　1.1、VB610 调用AutoCAD2006 的设置及语言

　　在VB610 程序界面点击/ 工程0 ) / 引用,0, 在弹出的引用对话框中找到/ AutoCAD 2006 Type L-ibrary0勾选后点确定即可, 此后VB 可以调用Auto-CAD 的类库. VB610 需要通过3 个层次来调用和控制AutoCAD2006 程序绘图: ¹ 应用程序; º 活动文档; »模型空间. 因此, 必须在VB 中定义3 个类变量, 即:

　　Dim myAcadapp As AutoCAD. AcadApplicat ion;

　　Dim ActiveDoc As AutoCAD. AcadDocument ;

　　Dim acMs As AutoCAD. AcadModelSpace.

　　用类的赋值语句对它们赋值:

　　Set myAcadapp= CreateObject ( / AutoCAD. Application0);

　　myAcadapp. Visible= True;

　　Set Act iveDoc= myAcadapp. ActiveDocument;

　　Set acMs = myAcadapp. Act iveDocument . ModelSpace.

　　CreateObject 命令创建一个AutoCAD 应用程序并赋值给myAcadapp, myAcadapp. V isible= T rue, 表示程序可见, Act iveDoc 是应用程序的一个活动文档, acMS 是活动文档中的模型空间.

　　1.5、符合行业规范

　　图2 是框架结构梁剖面, 需符合土木工程专业的规范, 如5混凝土结构设计规范6规定钢筋符号的表示方法, 梁中加腰筋等要求.文献4.2.2 条规定HPB300 牌号的钢筋表示为A, HRB400 为C, AutoCAD2006 不提供钢筋符号字体, 因此需另外添加字体. 本例用探索者软件字体文件/ Tssdeng . SHX0显示钢筋符号, 使用该字体前需给AutoCAD 指定当前的字体, 命令为Act ive-Doc. Act iveTex tStyle. fontFile= / D: \ Prog ram Files\ AutoCAD 2006 \ Fonts \ Tssdeng. SHX0, 该字体文件用字符串/ %% 1300表示A, / %% 1320表示C.文献9.2.13 条规定当梁腹板高度大于等于450 mm 时, 需在梁两侧沿高度配置纵向构造钢筋,间距不宜大于200 mm, 截面面积不应小于腹板截面面积的0.1%, 因此图2 中梁腹板处绘制了2C10的腰筋.

2、小结

　　1) VB 调用AutoCAD 命令绘图与手工绘图相比, 其优势为: ¹ 充分发挥VB 的计算功能和Auto-CAD 的绘图功能, 使两款软件优势互补; º 减少工程师绘图的工作量, 提高绘图效率.

　　2) 当工程设计中数据有改动, 需要重新计算、绘图时, 程序自动绘图更能显现出优势.软件自动绘图提高了设计工作的效率, 节省时间, 使工程师从繁杂的绘图工作中解放出来, 将精力更多地投入到结构选型、合理布置和优化设计中.