【導(dǎo)讀】設(shè)計的主要技術(shù)路線，同時對VBA系統(tǒng)中如何進(jìn)行繪圖的關(guān)鍵技術(shù)進(jìn)行了分析。生成器開發(fā)采用人機交互式界面，通過用。戶選擇要繪制彈簧的參數(shù)，選擇插入點，即可實現(xiàn)彈簧的繪制。結(jié)構(gòu)簡單，便于用戶操作。通過系統(tǒng)的開發(fā)，大大提高了設(shè)計者的工作效率。

　　

【正文】 PtControl(2) = For i = 1 To n + 1 PtControl(3 * i) = + Radius * Sin(2 * i * pi / Segment) PtControl(3 * i + 1) = + Radius * Cos(2 * i * pi / Segment) PtControl(3 * i + 2) = + i * Addver / Segment Next i PtControl(3 * n + 6) = PtControl(3 * (n + 1)) PtControl(3 * n + 7) = PtControl(3 * (n + 1) + 1) bc PtControl(3 * n + 8) = PtControl(3 * (n + 1) + 2) 39。繪制多段線 Dim ObjPline As Acad3DPolyline Set ObjPline = (PtControl) 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) = = pt1 21 39。生成截面的邊界 Dim objRegion As Variant objRegion = (objList) 39。拉伸得到三維模型 Dim objSolid As Acad3DSolid Set objSolid = (objRegion(0), ObjPline) 39。刪除原來的對象 objRegion(0).Delete 39。預(yù)置視點 Dim NewDirection(2) As Double NewDirection(0) = 1: NewDirection(1) = 1: NewDirection(2) = 1 = NewDirection = ZoomExtents End End Sub Private Sub cmdPick_Click() Dim PtPick As Variant 扭轉(zhuǎn)彈簧 .Hide PtPick = (, 請點擊獲取彈簧模型的插入點： ) = PtPick(0) = PtPick(1) = PtPick(2) 扭轉(zhuǎn)彈簧 .Show End Sub Private Sub UserForm_Initialize() 39。彈簧 參數(shù)的初值 = 30 = 70 = 5 = 5 = 0: = 0: = 0 End Sub 模塊程序源代碼 在 VBA 程序編輯器中 ,插入模塊 ,在模塊中添加如下代碼 。 Public Function axPoint2lspPoint(ByVal pnt As Variant) As String axPoint2lspPoint = pnt(0) amp。 , amp。 pnt(1) amp。 , amp。 pnt(2) End Function 22 調(diào)試和測試系統(tǒng)功能 調(diào)試與測試 在程序輸入階段，應(yīng)該充分利用 VBA 編輯器的智能功能。當(dāng)你在寫代碼時，輸入一些字母后，編輯器可以自動列出合適的語句、對象、函數(shù)供你選擇，可以用上下鍵選擇，然后按 TAB 鍵確認(rèn)。當(dāng)輸入一個回車符后程序會自動對這條語句進(jìn)行分析，如果出現(xiàn)錯誤就會提示 .在運行 VBA 時經(jīng)常遇到的錯誤類型有： （ 1）在開發(fā)階段編寫代碼是產(chǎn)生邏輯錯誤。 這種邏輯錯誤在編寫程序時很容易見，當(dāng)你想運行一個事件過程并且檢驗它時，建立的圖形用戶界面時，文 本框中的 Name 屬性已經(jīng)更新，在編寫程序時，代碼的 Name 屬性必須與文本框一致。有 IF語句時，必須要有 END IF 結(jié)尾。 （ 2）在輸入一個語句后， VBA 解釋程序有時會立即發(fā)現(xiàn)有編譯錯誤。當(dāng)程序轉(zhuǎn)換成可執(zhí)行的形式時，錯誤也可能 被 編輯程序發(fā)現(xiàn)。 編譯錯誤的出現(xiàn)就是因為輸入了不正確的代碼，當(dāng)輸入的語句沒有滿足Visual Baisc 語言句法上的要求時，一些編譯錯誤就會立即出現(xiàn)。例如： ① 編譯錯誤：子過程或函數(shù)未定義 ② 編譯錯誤：語法錯誤 ③ 編譯錯誤：方法或數(shù)據(jù)成員未找到 針對上述編譯錯誤，我采取了如下措施 ：找到未定義的子過程或函數(shù)，進(jìn)行定義；對于語法錯誤的地方進(jìn)行修改，并不斷的進(jìn)行測試等。 （ 3）在執(zhí)行時發(fā)生運行錯誤。 當(dāng)代碼被運行的同時這些語句試圖執(zhí)行非法操作時，將會發(fā)生運行錯誤。例如，運行時錯誤，無法獲取 document 對象。當(dāng)正在使用調(diào)用對象的變量時，將產(chǎn)生另一個普通的運行錯誤，那就是在賦值語句中缺少 Set 語句。 VBA IDE 不能很好的解決這些錯誤，但在出現(xiàn)錯誤時它確實能提供有用的功能，你必須盡可能的確保輸入的代碼在句法上是正確的，以便解釋程序能理解它。列外一些特點就是當(dāng)程序不是按照所期望的要求去執(zhí) 行的時候，它能輔助你調(diào)試代碼。 其它問題及解決方案 在設(shè)計的過程中， 出現(xiàn)了一些 的問題 。 23 （ 1）定義重復(fù)。 （ 2） AutoCAD VBA 如何初始化？ （ 3）如何實現(xiàn) 實體 的自動 剖切 ？ 相應(yīng) 的解決辦法如下 。 （ 1）找到重復(fù)定義的語句，刪除重復(fù)定義的語句 。 （ 2）用 Initalize 事件初始化 AutoCAD VBA。 （ 3）使用 SendCommand 命令 完成 剖切 操作 。 _slice amp。 vbCr amp。 det amp。 vbCr amp。 vbCr amp。 det1 amp。 vbCr amp。 det2 amp。 vbCr amp。 det3 amp。 vbCr amp。 det4 amp。 vbCr _slice amp。 vbCr amp。 det amp。 vbCr amp。 vbCr amp。 det5 amp。 vbCr amp。 det6 amp。 vbCr amp。 det7 amp。 vbCr amp。 det8 amp。 vbCr 5 宏設(shè)計 基于 AutoCAD 的三維彈簧模型自動生成器開發(fā)后，要將其用于實踐應(yīng)用中，因而需將生成器掛到 AutoCAD 軟件中。 在 VBA 編輯環(huán)境下，在模塊中添加宏 ，代碼如下。 Sub DrawSpring() 彈簧生成器 .Show End Sub 6 創(chuàng)建菜單 找到 AutoCAD 軟件安裝目錄下 support 文件夾下的 ，打開后對它進(jìn)行編輯，在菜單代碼部分添加以下代碼，以用于將此生成器嵌入 AutoCAD 軟件，加入菜單欄。 ***POP11 ***彈簧生成器 ID_Spring [彈簧生成器 (amp。S)] ID_Tdspring [線段自動連接生成器 (amp。T)]^C^C^P(mand vbarun DrawSpring) ^P 24 參考文獻(xiàn) [1]童蕾等 .中文 AutoCAD 2020 工程制圖實用指南 ［ M］ .北京：冶金工業(yè)出版社 .2020. [2]張帆 .鄭立楷 .盧擇臨 .王成煌等 .AutoCAD VBA 二次開發(fā)教程 [M]. 北京：清華大學(xué)出版社 .2020 年 . [3]張晉西 .Visual Basic與 AutoCAD二次開發(fā)［ M］ .北京：清華大學(xué)出版社 .2020. [4]李鳳華 .AutoCAD2020 VBA 開發(fā)指南［ M］ .北京：清華大學(xué)出版社 .2020. [5]Marion Cottingham 著孔祥豐譯 .AutoCAD VBA 從入門到精通［ M］ .北京：電子工業(yè)出版社 .2020. [6]張帆 .AutoCAD VBA 開發(fā)精彩實例教程［ M］ .北京：清華大學(xué)出版社 .2020. [7]二代龍震工作室 .AutoCAD VBA 函數(shù)庫查詢辭典［ M］ .北京： 中國鐵道出版社 .2020. [8]張帆 .鄭立楷 .王華杰 .AutoCAD VBA 開發(fā)精彩實例教程 [M].北京： 清華大學(xué)出版社 .2020 年 . [9]佟士懋等 .二次開發(fā)技術(shù)基礎(chǔ)及應(yīng)用實例 AutoCAD ActiveX/VBA［ M］ .北京：國防工業(yè)出版 .2020. [10]經(jīng)通道 論壇 AutoCAD VBA 二次開發(fā)版塊 . [11 AutoCAD VBA二次開發(fā)論壇 . 25 致 謝 畢業(yè)設(shè)計 論文的完成標(biāo)志著我的大學(xué)四年即將結(jié)束，也意味著，新的生活 即將開始。 在此， 我要 感謝導(dǎo)師 吳 教授 。在畢業(yè)設(shè)計期間，吳教授為我指點迷津，幫助我開拓設(shè)計思路，精心點撥、熱忱鼓勵。 此外，吳教授 一 絲不茍的作風(fēng)，嚴(yán)謹(jǐn)求實的態(tài)度，踏踏實實的精神 也讓我受益匪淺 。 感謝 課題組所有成員。 和你們并肩作戰(zhàn)， 相互交流， 讓我感覺 做設(shè)計 也不是一件困難 可怕的事情。 感謝 0606602 班所有同學(xué)。 正是由于你們的幫助和關(guān)懷，我才能順利的度過四年美好的大學(xué)生活，讓我的大學(xué)生活變得豐富多彩。 感謝我的爸爸媽媽。養(yǎng)育之恩，良苦用心，無以回報，你們永遠(yuǎn)健康快樂是我最大的心愿。 最后， 我謹(jǐn)向上面所有提到的人，以及更多的沒有提到的人，致以最誠摯的祝福，希望陽光能灑滿你們生活中的每一個角落！同時我也祝愿自己，在即將開始的新的人生旅 途中，能追尋光明的未來！