為了提高工程師的繪圖效率, 節約時間, 以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) 當工程設計中數據有改動, 需要重新計算、繪圖時, 程序自動繪圖更能顯現出優勢.軟件自動繪圖提高了設計工作的效率, 節省時間, 使工程師從繁雜的繪圖工作中解放出來, 將精力更多地投入到結構選型、合理布置和優化設計中.