【正文】 互菜單或命令行方式便可以進行各種操作。在不斷實踐的過程中更好地掌握它的各種應(yīng)用和開發(fā)技巧，從而不斷提高工作效率。 AutoCAD 的優(yōu)點： （ 1） 具有完善的圖形繪制功能 ； （ 2） 可以采用多種方式進行二次開發(fā) ，滿足不同用戶的需求； （ 3） 有強大的圖形編輯功能 ； （ 4） 可以進行多種圖形格式的轉(zhuǎn)換，具有較強的數(shù)據(jù)交換能力 ； （ 5）簡單易學(xué)。 VBA 簡介 Visual Basic for Application（ VBA）是 Microsoft 面向最終用戶的應(yīng)用軟件編程語言。常用的繪圖軟件 AutoCAD 也已支持 VBA作為二次開發(fā)工具。 VBA 最大特點和最大優(yōu)點是利用面向?qū)ο螅?OOP）的 ActiveX Automation技術(shù)，使語言的引擎在技術(shù)上與開發(fā)環(huán)境分離。同時，由于 VBA是基于 ActiveX Automation技術(shù)，它可以使用任何 Automation 技術(shù)的應(yīng)用程序共同工作。這是因為 VBA 是運行在 AutoCAD進程的內(nèi)部，所以不必通過附加的步驟與應(yīng)用程序進行連接。通過使用ThisDrawing 直接獲得訪問當(dāng)前文檔對象和所有相關(guān)的方法和屬性以及所有在該層次中的其它對象。當(dāng)用的是嵌入工程， ThisDrawing 通常指向包含該工程的文檔。例如設(shè)置當(dāng)前圖層的寬度為 50 個單位： = 50 , 在一圖形中直接調(diào)用特定對象的宏應(yīng)該放置于Thisdrawing 對象中，因為這些宏在運行時依賴于這些可用的特定對象。 UserForms 集合對象是一個集合，其部件代表應(yīng)用程序中每個裝入的 UserForm。 Count 用來指定集合對象中的部件個數(shù)； Item（缺省成員）用來指定某個集合對象成員；而 Add 則用來在集合對象中放置一個新的 UserForm 部件。 系統(tǒng)流程圖 根據(jù)系統(tǒng)設(shè)計的具體情況，系統(tǒng)流程圖如圖 所示： 三維彈簧模型自動生成器 AutoCAD 對象 窗體 模塊 VBA 代碼 窗體設(shè)計 Thisdrawing對象 VBA 代碼 模塊功能 6 圖 系統(tǒng)流程圖 模塊設(shè)計 模塊概述 主要是用于實現(xiàn)用戶界面與 CAD 圖形窗口的包，包括 1 個函數(shù)： axPoint2lspPoint 函數(shù)。 具體設(shè)計 設(shè)計準備 彈簧生成器 選擇彈簧類型 輸入彈簧參數(shù) 按鈕選擇 繪圖 繪制圖形 退出生成器 退出 確定 按鈕選擇 退出 7 （ 1） Ptcontrol() 通過建立 Ptcontrol()應(yīng)用 IF語句實現(xiàn)無窮多個點的坐標的控制。 （ 3） Thisdrawing 語句 通過 Thisdrawing 語句實現(xiàn)在模型空間直接繪制各種曲線。 , amp。 , amp。 （ 2） 設(shè)計用戶界面 。 9 （ 4）編寫程序 。 4 VBA 編程及測試 編程思路 （ 1）獲取主要參數(shù)值 （ 2）計算控制點的坐標 （ 3）繪制多段線 （ 4）創(chuàng)建截面 （ 5）拉伸得到三維模型 （ 6）刪除原來的對象 （ 7）預(yù)置視點 （ 8）初始化窗體 窗體運行示例圖 圖 運行主窗體 10 圖 運行 拉伸彈簧 窗體 圖 運行 結(jié)果 11 圖 運行 壓縮彈簧 窗 體 圖 運行 結(jié)果 12 圖 運行 扭轉(zhuǎn)彈簧 窗體 圖 運行 結(jié)果 13 源代碼 窗體程序源代碼 （ 1） 主窗體程序代碼 Private Sub cmdOk_Click() If = True Then 彈簧生成器 .Hide 拉伸彈簧 .Show ElseIf = True Then 彈簧生成器 .Hide 壓縮彈簧 .Show ElseIf = True Then 彈簧生成器 .Hide 扭轉(zhuǎn)彈簧 .Show End If End Sub Private Sub Commandcancel_Click() End End Sub Private Sub Optionlh_Click() = True End Sub Private Sub Optionnh_Click() = True End Sub Private Sub Optionyh_Click() = True End Sub Private Sub UserForm_Initialize() = True End Sub （ 2） 拉伸彈簧窗體程序代碼 Const pi = Private Sub cmdCancel_Click() End End Sub Private Sub cmdOk_Click() 39。 , vbExclamation, 警告 Exit Sub End If 39。獲取點的個數(shù)和角度間隔 Dim PtControl() As Double n = (Number + 2) * Segment ReDim PtControl(3 * n + 2) As Double Angle = 2 * pi / Segment 39。繪制多段線 Dim ObjPline As Acad3DPolyline Set ObjPline = (PtControl) 39。生成截面的邊界 Dim objRegion As Variant objRegion = (objList) 39。刪除原來的對象 objRegion(0).Delete 39。屏幕上獲取插入點的坐標 Dim PtPick As Variant 拉伸彈簧 .Hide PtPick = (, 請點擊獲取彈簧模型的插入點： ) = PtPick(0) = PtPick(1) = PtPick(2) 拉伸彈簧 .Show End Sub 16 Private Sub UserForm_Initialize() 39。如果某一參數(shù)值為空，則提示用戶輸入?yún)?shù)值 If = Or = Or = Or _ = Or = Or = Or = Or = Then MsgBox 缺少參數(shù)，請檢查參數(shù)的輸入。獲取主要參數(shù)值 Dim Radius As Double, Number As Double, Addhor As Double Dim Addver As Double, md As Double Radius = / 2: Number = : Addhor = Addver = : md = 39。計算控制點的坐標 For i = 0 To 200 PtControl(3 * i) = + (Radius + i * Addhor / 200) * Sin(2 * i * pi / 200) PtControl(3 * i + 1) = + (Radius + i * Addhor / 200) * Cos(2 * i * pi / 200) PtControl(3 * i + 2) = + i * / 200 / 2 Next i For i = 201 To (n 200) 17 PtControl(3 * i) = + (Radius + i * Addhor / 200) * Sin(2 * i * pi / 200) PtControl(3 * i + 1) = + (Radius + i * Addhor / 200) * Cos(2 * i * pi / 200) PtControl(3 * i + 2) = + i * Addver / 200 + / 2 Next i For i = (n 199) To n PtControl(3 * i) = + (Radius + i * Addhor / 200) * Sin(2 * i * pi / 200) PtControl(3 * i + 1) = + (Radius + i * Addhor / 200) * Cos(2 * i * pi / 200) PtControl(3 * i + 2) = + (i n + 201) * / 200 + (n 200) * Addver / 200 + / 2 Next i 39。創(chuàng)建截面 Dim objList(0) As AcadEntity Dim ptCen(0 To 2) As Double ptCen(0) = 0: ptCen(1) = 0: ptCen(2) = 0 Set objList(0) = (ptCen, / 2) Dim pt1(0 To 2) As Double, pt2(0 To 2) As Double pt1(0) = 0: pt1(1) = 5: pt1(2) = 0 pt2(0) = 0: pt2(1) = 5: pt2(2) = 0 objList(0).Rotate3D pt1, pt2, pi / 2 Dim objCircle As AcadCircle Set objCircle = objList(0) pt1(0) = : pt1(1) = + Radius: pt1(2) = / 2 = pt1 39。拉伸得到三維模型 Dim objSolid As Acad3DSolid Set objSolid = (objRegion(0), ObjPline) 39。axPoint2lspPoint 函數(shù)的作用是將 V