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

　　

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