【文章內容簡介】 具有良好的用戶界面，通過交互菜單或命令行方式便可以進行各種操作。它的多文檔設計環(huán)境 ，讓非計算機專業(yè)人員也能很快地學會使用。在不斷實踐的過程中更好地掌握它的各種應用和開發(fā)技巧，從而不斷提高工作效率。autoCAD 軟件具有如下特點： (1)具有完善的圖形繪制功能。 (2)有強大的圖形編輯功能。 (3)可以采用多種方式進行二次開發(fā)或用戶定制。 (4)可以進行多種圖形格式的轉換，具有較強的數據交換能力。 (5)支持多種硬件設備。 (6)支持多種操作平臺 (7)具有通用性、易用性，適用于各類用戶此外，從 AutoCAD2020 開始，該系統(tǒng)又增添了許多強大的功能，如 AutoCAD 設計中心（ ADC）、多 文檔設計環(huán)境（ MDE）、 Inter 驅動、新的對象捕捉功能、增強的標注功能以及局部打開和局部加載的功能，從而使 AutoCAD 系統(tǒng)更加完善 。 VBA 開發(fā)工具 簡介 什么 是 VBA? VBA（ Visual Basic for Application） 是一種完全面向對象體系結構的編程語言，由于其在開發(fā)方面的易用性和具有強大的功能，因此許多應用程序均嵌入該語言作為開發(fā)工具。 AutoDesk公司也在 AutoCAD VBA開發(fā)工具，同時提供了適用于 VBA 開發(fā)的 ActiveX Automation 對象模型。 VBA是一種自動化語言 ,它可以使常用的程序自動化 ,可以創(chuàng)建自定義的解決方案。VBA 全稱為 ： Visual Basic for Application， 可以認為 VBA 是非常流行的應用程序開發(fā)語言 Visual Basic 的子集 ， 實際上 VBA是寄生于 VB應用程序的版本 ，它 是 Microsoft 面向最終用戶的應用軟件編程語言。它最早出現于 Microsoft的 Excel 和 Project 中，如今 VBA 已成為 VB 和所有 Office 產品的組件。常用的繪圖軟件 AutoCAD 也已支持 VBA 作為二次開發(fā)工 具。 VBA 最大特點和最大優(yōu)點是利用面向對象（ OOP）的 ActiveX Automation 技術，使語言的引擎在技術上與開發(fā)環(huán)境分離。它的功能在很大程度上依賴于它的客戶顯露的 Automation 接口。同時，由于 VBA 是基于 ActiveX Automation 技術，它可以使用任何 Automation 技術的應用程序共同工作。 在 VBA 內部訪問對象層次是非常容易的， 這是因為 VBA 是運行在 AutoCAD進程的內部，所以不必通過附加的步驟與應用程序進行連接。 VBA 通過 ThisDrawing 對象鏈接到當前 AutoCAD 進程的活動圖形。通過使用ThisDrawing 直接獲得訪問當前文檔對象和所有相關的方法和屬性以及所有在該層次中的其它對象。當使用全局工程， ThisDrawing 通常指向 AutoCAD 中的活動文檔。當用的是嵌入工程， ThisDrawing 通常指向包含該工程的文檔 。 Visual Basic Edit 是一個開發(fā) VBA 代碼的集成環(huán)境， 有自己的圖形用戶界面，在窗口中提供了所有所需的工具，用于創(chuàng)建，編輯，調試和運行你的宏代碼和應用程序。有了如此多的功能， VBA 集成環(huán)境 幾乎就是有個卓越的應用程序，但它 只能從 AutoCAD 窗口中打開，且隨著 AutoCAD 的關閉而關閉 。 圖 AutoCAD 的 VBA 環(huán)境 2 系統(tǒng)設計 系統(tǒng)基本目標 該課題主要是完成 三維旋轉樓梯自動生成器的開發(fā) ， 通過窗體生成兩類旋轉樓梯。一類是弧形旋轉樓梯，選擇圓弧的內外半徑以及樓梯的總高度 和總旋轉角度、 踏板的 高度輸入你所需的數據來。 另一類是方形旋轉樓梯，相對于上一種，這類旋轉樓梯較容易。只需輸入每小節(jié)的階梯數和踏步的高度、步長、寬度即可 生成樓梯。 具備的基本功能有： （ 1） 在運行程序時，首 先通過界面選擇旋轉樓梯的類型。 （ 2） 輸入自己所需要的數據。 （ 3） 選擇按鈕操作“確定”、“重置”、“退出”。 （ 4） 通過確定按紐生成旋轉樓梯。 （ 5） 結果顯示在 AutoCAD 窗口中。 系統(tǒng)模塊設計 該系統(tǒng)是基于 AutoCAD 的三維旋轉樓梯自動生成器的開發(fā)，主要是通過用戶輸入數據而自動生成所需的樓梯，既節(jié)省了時間又簡潔。 打開 AutoCAD，在編輯器上點擊工具創(chuàng)建一個用戶窗體模塊，進行程序界面的設計。 用戶界面介紹及組件說明： （ 1） 窗體名稱修改為 form，設 caption 為“三維旋轉樓梯自動生成器”。 （ 2） 在窗體上插入 Multipage1,并將 page1 改為“弧形旋轉樓梯”， page2改為“方形旋轉樓梯”。 （ 3） 在“弧形旋轉樓梯”內，添加 5 個 label,從上到下，從左至右分別命名為：內半徑、外半徑、樓層總高度、總旋轉角度和踏步高度。同時匹配 5 個 textbox 并根據上面的順序命名為： nr、 wr、 zg、 zj和 gd。 （ 4） 在“方形旋轉樓梯”內，插入 2 個 label 分別命名為：每小節(jié)階梯數和樓梯寬度。對應放入 2 相 textbox，并命名為： number 和 kd。對于踏板，則放入一個 frame,并將其 caption 改為“踏步”。同時在其內放入 2 個 label 和對應的 textbox,并改為：高度和步長、 tbgd和 bc。 （ 5） 最后再加入 3 個 CommandButton 并將其 caption 改為：確定、清空和退出。 圖 程序運行界面 系統(tǒng)結構設計 系統(tǒng)結構圖 系統(tǒng)流程圖 窗體 VBA 代碼 窗體設計 三維旋轉 樓梯自動生成器 的開發(fā)與研究 AutoCAD 對象 Thisdrawing 對象 3 系統(tǒng)實現 弧形 旋轉樓梯 當在 Multipage 中選擇 “弧形旋轉樓梯”時，根據需要對內半徑、外半徑、樓層總高度 等因素輸入數據。通過默認的數據運行出來的界面如下： 運行窗體 進行條件選擇并輸入數據 數據判斷 弧形旋轉樓梯 方形旋轉樓梯 yes false 三維旋轉樓梯生成器 按鈕選擇 （確定 /清空 /退出） 顯示結果 退出生成器 退出 確定 清空 圖 “ 弧形旋轉樓梯”運行界面 運行結果如下圖： 圖 默認數據下生成的弧形旋轉樓梯 方形旋轉樓梯 當在 Multipage 中選擇 “方形旋轉樓梯”時，根據需要對每小節(jié)樓梯數、樓梯寬度、踢步高度等因素輸入數據。通過默 認的數據運行出來的界面如下： 圖 “ 方形旋轉樓梯”運行界面 運行結果如下圖： 4 代碼及 說明 窗體程序源代碼 本系統(tǒng)針對需要，在 form 下使用以下代碼 : Private Sub reset_Click() Dim Stairs As Control For Each Stairs In If TypeOf Stairs Is TextBox Then = End If Next End Sub Private Sub CommandButton3_Click() End End Sub Private Sub CommandButton4_Click() If = 0 Then 39。檢查參數的賦值情況 If = Or = Or = Or = Or = Then MsgBox 參數不能為空，請檢查參數的輸入。 , vbExclamation, 警告 Exit Sub End If