VB調(diào)用AutoCAD繪制結(jié)構(gòu)工程配筋圖程序設(shè)計(jì)方法

　　為了提高工程師的繪圖效率, 節(jié)約時(shí)間, 以VB610 調(diào)用AutoCAD2006 類庫(kù)繪制配筋圖,VB610 可編程設(shè)置AutoCAD2006 的線型、比例、圖層、標(biāo)注尺寸線、填充等關(guān)鍵點(diǎn). 繪圖實(shí)例說(shuō)明這種方法方便、可行, 適合于土木工程專業(yè)人員應(yīng)用, 充分發(fā)揮了VB610 的計(jì)算功能和Auto-CAD2006 的繪圖功能。

　　AutoCAD 主要用于二維繪圖, 被廣泛應(yīng)用于各行業(yè). VB610 版支持面向?qū)ο蟮某绦蛟O(shè)計(jì), 簡(jiǎn)單直觀. 文獻(xiàn)給出了VB 語(yǔ)言與土木工程專業(yè)相結(jié)合的方法和實(shí)例. 文獻(xiàn)用VB 設(shè)計(jì)界面設(shè)計(jì)水利工程中的箱涵結(jié)構(gòu)并進(jìn)行計(jì)算, 得到結(jié)果后調(diào)用AutoCAD 出圖. 文獻(xiàn)用AutoCAD 提供的二次開(kāi)發(fā)語(yǔ)言定制下拉菜單, 并設(shè)計(jì)了參數(shù)輸入界面. 文獻(xiàn)將VB610 和AtuoCAD2000 聯(lián)合應(yīng)用, 繪制帶狀地形圖的縱橫斷面圖. 本文作者將VB610 調(diào)用AutoCAD2006的方法應(yīng)用于結(jié)構(gòu)工程專業(yè), 以梁配筋圖為例繪制施工圖, 充分發(fā)揮兩款軟件各自的優(yōu)勢(shì).

1、結(jié)構(gòu)工程中配筋圖的程序設(shè)計(jì)

　　VB610 調(diào)用AutoCAD 繪圖有幾個(gè)關(guān)鍵點(diǎn): VB調(diào)用AutoCAD 的方法, AutoCAD 類庫(kù)的結(jié)構(gòu), 添加線型, 設(shè)置線型比例和寬度, 設(shè)置圖層, 繪制直線, 繪制圓, 寫文字, 設(shè)置標(biāo)注尺寸線, 填充等.

　　1.1、VB610 調(diào)用AutoCAD2006 的設(shè)置及語(yǔ)言

　　在VB610 程序界面點(diǎn)擊/ 工程0 ) / 引用,0, 在彈出的引用對(duì)話框中找到/ AutoCAD 2006 Type L-ibrary0勾選后點(diǎn)確定即可, 此后VB 可以調(diào)用Auto-CAD 的類庫(kù). VB610 需要通過(guò)3 個(gè)層次來(lái)調(diào)用和控制AutoCAD2006 程序繪圖: ¹ 應(yīng)用程序; º 活動(dòng)文檔; »模型空間. 因此, 必須在VB 中定義3 個(gè)類變量, 即:

　　Dim myAcadapp As AutoCAD. AcadApplicat ion;

　　Dim ActiveDoc As AutoCAD. AcadDocument ;

　　Dim acMs As AutoCAD. AcadModelSpace.

　　用類的賦值語(yǔ)句對(duì)它們賦值:

　　Set myAcadapp= CreateObject ( / AutoCAD. Application0);

　　myAcadapp. Visible= True;

　　Set Act iveDoc= myAcadapp. ActiveDocument;

　　Set acMs = myAcadapp. Act iveDocument . ModelSpace.

　　CreateObject 命令創(chuàng)建一個(gè)AutoCAD 應(yīng)用程序并賦值給myAcadapp, myAcadapp. V isible= T rue, 表示程序可見(jiàn), Act iveDoc 是應(yīng)用程序的一個(gè)活動(dòng)文檔, acMS 是活動(dòng)文檔中的模型空間.

　　1.5、符合行業(yè)規(guī)范

　　圖2 是框架結(jié)構(gòu)梁剖面, 需符合土木工程專業(yè)的規(guī)范, 如5混凝土結(jié)構(gòu)設(shè)計(jì)規(guī)范6規(guī)定鋼筋符號(hào)的表示方法, 梁中加腰筋等要求.文獻(xiàn)4.2.2 條規(guī)定HPB300 牌號(hào)的鋼筋表示為A, HRB400 為C, AutoCAD2006 不提供鋼筋符號(hào)字體, 因此需另外添加字體. 本例用探索者軟件字體文件/ Tssdeng . SHX0顯示鋼筋符號(hào), 使用該字體前需給AutoCAD 指定當(dāng)前的字體, 命令為Act ive-Doc. Act iveTex tStyle. fontFile= / D: \ Prog ram Files\ AutoCAD 2006 \ Fonts \ Tssdeng. SHX0, 該字體文件用字符串/ %% 1300表示A, / %% 1320表示C.文獻(xiàn)9.2.13 條規(guī)定當(dāng)梁腹板高度大于等于450 mm 時(shí), 需在梁兩側(cè)沿高度配置縱向構(gòu)造鋼筋,間距不宜大于200 mm, 截面面積不應(yīng)小于腹板截面面積的0.1%, 因此圖2 中梁腹板處繪制了2C10的腰筋.

2、小結(jié)

　　1) VB 調(diào)用AutoCAD 命令繪圖與手工繪圖相比, 其優(yōu)勢(shì)為: ¹ 充分發(fā)揮VB 的計(jì)算功能和Auto-CAD 的繪圖功能, 使兩款軟件優(yōu)勢(shì)互補(bǔ); º 減少工程師繪圖的工作量, 提高繪圖效率.

　　2) 當(dāng)工程設(shè)計(jì)中數(shù)據(jù)有改動(dòng), 需要重新計(jì)算、繪圖時(shí), 程序自動(dòng)繪圖更能顯現(xiàn)出優(yōu)勢(shì).軟件自動(dòng)繪圖提高了設(shè)計(jì)工作的效率, 節(jié)省時(shí)間, 使工程師從繁雜的繪圖工作中解放出來(lái), 將精力更多地投入到結(jié)構(gòu)選型、合理布置和優(yōu)化設(shè)計(jì)中.