【導讀】基于AutoCAD的三維工字鋼模型的自動。生成器的開發(fā)與研究。專業(yè)信息管理與信息系統(tǒng)。畢業(yè)設計(論文)材料

　　

【正文】 件下，添加以下代碼，實現(xiàn)工字鋼的三維模型圖，如下： 39。提示用戶選擇多條需要連接的多段線 On Error Resume Next Dim SSet As AcadSelectionSet If Not IsNull((JoinPoly)) Then Set SSet = (JoinPoly) End If Set SSet = (JoinPoly) Dim fType(0) As Integer, fData(0) Dim pl As AcadLWPolyline 39。指定過濾機制 fType(0) = 0 fData(0) = LWPOLYLINE acSelectionSetAll, , , fType, fData Dim det As String det = axSSet2lspEnts(SSet) 39。使用 SendCommand 方法完成連接操作 extrude amp。 vbCr amp。 det amp。 vbCr amp。 vbCr amp。 100 amp。 vbCr amp。 0 amp。 vbCr 調試和測試 在 編輯程序的過程中 ， 要 充分利用 VBA 編輯器的智能功能。當 在寫代碼時，輸入一些字母后，編輯器可以自動列出合適的語句、對象、函數(shù)供你選擇，可以用上下鍵選擇，然后按 TAB 鍵確認。當輸入一個回車符后程序會自動對這條語句進行分析，如果出現(xiàn)錯誤就會提示 ，此次程序開發(fā)中遇到以下問題 ： 產生邏輯錯誤。 這種邏輯錯誤在編寫程序時很容易見，當 運行一個事件過程并且檢驗它時， 26 即可看到有沒有邏輯上的錯誤，如 有 IF語句時，必須要有 END IF 結尾。 ， VBA 解釋程序有時會立即發(fā)現(xiàn)有編譯錯誤。當程序轉換成可執(zhí)行的形式時，錯誤也可能比編輯程序發(fā)現(xiàn)。 編譯錯誤的出現(xiàn)就是因為輸入了不正確的代碼，當輸入的語句沒有滿足Visual Baisc 語言句法上的要求時，一些編譯錯誤就會立即出現(xiàn)。例如： ① 編譯錯誤：子過程或函數(shù)未定義 ② 編譯錯誤：語法錯誤 ③ 編譯錯誤：方法或數(shù)據成員未找到 針對上述編譯錯誤， 采取了如下措施：找到未定義的子過程或函數(shù)， 進行定義；對于語法錯誤的地方進行修改，并不斷的進行測試等。 數(shù)據連接時發(fā)生 錯誤。 在選擇或輸入數(shù)據庫名稱時，所選擇的數(shù)據表錄入路徑錯誤會導致連接測試不成功。選擇連接的數(shù)據 由 OLE DB 提供的 Microsoft Jet OLE DB Provider ，之后查看路徑及輸入登錄數(shù)據庫的信息是否正確，完后進行測試，要是連接不成功，返回前面的步驟看哪里出錯了，進行修改后，繼續(xù)測試連接，直到測試連接成功。 4．立體模型生成時發(fā)生錯誤。 在運行結束后，產生的圖形只是平面圖，未達到預期的效果。經過查看發(fā)現(xiàn)是在使用 SendCommand 方 法 連 接 時 出 的 錯 ， 如 ： 程 序 extrude amp。 vbCr amp。 det amp。 vbCr amp。 vbCr amp。 100 amp。 vbCr amp。 0 amp。 vbCr 中的 det 變量沒有定義，經過 變量定義 后運行結果還是平面圖。再進行調試發(fā)現(xiàn)是 沒有指定過濾機制，如下面的程序： Dim fType(0) As Integer, fData(0) Dim pl As AcadLWPolyline 39。指定過濾機制 fType(0) = 0 fData(0) = LWPOLYLINE acSelectionSetAll, , , fType, fData 使用過濾機制后，運行結果立體圖，調試成功。 27 6 系統(tǒng)關鍵 變量使用 局部變量 Dim objPline As AcadLWPolyline 對象變量 Dim adoCon As Connection Dim adoRs As Recordset Dim SSet As AcadSelectionSet Dim det As String 選擇集 選擇集的創(chuàng)建 選擇集是作為獨立單元進行處理的指定 AutoCAD 對象的組合。選擇 集可由單個對象組成，或它可以更加復雜的組合。 定義選擇集有兩步過程。先 創(chuàng)建新的選擇集并將其添加到 SelectionSets集合。創(chuàng)建后就可往選擇集上加入 對象。 Dim SSet As AcadSelectionSet If Not IsNull((JoinPoly)) Then Set SSet = (JoinPoly) End If Set SSet = (JoinPoly) 過濾選擇集 Dim fType(0) As Integer, fData(0) Dim pl As AcadLWPolyline 28 39。指定過濾機制 fType(0) = 0 fData(0) = LWPOLYLINE acSelectionSetAll, , , fType, fData 主要函數(shù) 定義函數(shù) axadSS2lspEnts，用于將選擇集中的多個實體轉化成可在 AutoLISP中使用的變量： 39。 轉換多個圖元的函數(shù) Public Function axadSS2lspEnts(ByVal adSS As AcadSelectionSet) As String If = 0 Then Exit Function Dim entHandle As String Dim strEnts As String entHandle = (0).Handle strEnts = (handent amp。 Chr(34) amp。 entHandle amp。 Chr(34) amp。 ) If 1 Then Dim i As Integer For i = 1 To 1 entHandle = (i).Handle strEnts = strEnts amp。 vbCr amp。 (handent amp。 Chr(34) amp。 entHandle amp。 Chr(34) amp。 ) Next i End If axadSS2lspEnts = strEnts End Function 調用 GetPtIntersect函數(shù) ，獲得直線方程系數(shù)。 GetPtIntersectKP = GetPtIntersect(a1, b1, c1, a2, b2, c2) 29 菜單按鈕制作 在 AutoCAD 軟件的命令 行 輸入 menu 命令，載入工字鋼生成器菜單按鈕制作的 文件之后，在菜單處生成【工字鋼生成器】按鈕。其生成器按鈕的程序如下： ***POP12 **工字鋼生成器 ID_Mymenu [amp。工字鋼生成器 ] ID_AddIStell [amp。生成器 ]^C^C^P(mand _vbarun AddIStell) ^p 運行結果如圖 61 所示： 工字鋼生成器 按鈕 ADO 的連接技術 采用 ADO 連接技術，實現(xiàn)數(shù)據庫的連接。 Provider=。Data Source= amp。 _ Left(strPath, Len(strPath) 7) amp。 。 30 7 模型圖展示 平面圖 平面圖 立體圖 立體圖 8 開發(fā)小結 基于 AutoCAD 的三維工字鋼的自動生成器的開發(fā)與研究，此次開發(fā)過程中，先是 對 CAD 軟件的二次開發(fā)背景進行一定的了解，然后分析此次開發(fā)的內容，根據內容再查詢相關資料來輔助開發(fā) 。同時對 CAD 環(huán)境 、 VBA編輯器 及 VBA 語言 進行一定的熟悉， 之后制定開發(fā)計劃。 三維工字鋼的自動生成器的開發(fā)，實現(xiàn)了參數(shù)化繪圖，脫離了繁瑣的、重復的繪制過程。 此次對 CAD 的二次開發(fā)展示了 CAD 軟件自身功能、性能及編譯環(huán)境優(yōu)良的一面，也展示了 CAD 軟件具有二次開發(fā)的功能和應用程序接口，更展示了 CAD軟件具有良好的繼承性。 CAD軟件的二次開發(fā)是為了 31 滿足特定用戶的特殊需要，因此此次二次開發(fā)的自動生成器，不僅滿足特殊用戶的需要，也提高了工作人員的工作效率。 開發(fā)的 生成器 采用 作為數(shù)據庫建庫工具，數(shù)據庫包含參數(shù)化繪圖的數(shù)據表 ISteel。通過使用數(shù)據 庫訪問對象 (ADO)的方法來操作數(shù)據庫的對象。 三維工字鋼的自動生成器提供了友好的界面，結構簡單，便于用戶操作。用戶可以通過自動生成器按鈕，進入到生成器界面，直接選擇需要的參數(shù)型號，點擊確定按鈕生成需要的模型圖。既便于工作人員的操作，也便于需求者靈活的選擇，大大提高了設計的效率。 該三維工字鋼的自動生成器的開發(fā)，能夠大大提高繪圖工作人員的工作效率，并且推動了工字鋼模型標準化工作的進一步開展 。 參考文獻 ： [1] 陳猛 ， 劉保嘉 . AutoCAD 二次開發(fā)技術與實例 .現(xiàn)代計算機 .2020 年 [2] 原恩桃 ， 李文斌 .基于 AutoCAD 機械設計標準件庫的建立 . 山西機械 . 2020 年 [3] 孔祥豐等 .AutoCAD VBA 從入門到精通 [M].電子工業(yè)出版社 .2020 年 [4] 張帆等 .AutoCAD 2020/2020 VBA 二次開發(fā)教程 [M].清華大學出版社 .2020 年 [5] 符純華 ， 楊長牛 .李建明 機械工程圖模板的 AutoCAD 二次開發(fā) .四川輕化工學院學報 .2020 年 [6] 趙海峰 .基于 VBA 的 AutoCAD 機械設計 .中國農村小康科技 .2020 年 [7] 王玉琨 等編著 .CAD 二次開發(fā)技術及其工程應用 .清華大學出版 .2020 年 [8] 吳濤 .建筑 CAD 二次開發(fā)技術 .電子工業(yè)出版社 .2020 年 [9] 謝安俊 ,喬韡韡 .主編計算機輔助設計二次開發(fā)案例教程 .北京大學出版社 .2020 年 [10] 董玉德 ,趙韓 等 主編 .CAD 二次開發(fā)理論與技術 .合肥工業(yè)大學出版社 .2020 年 [11] 張帆，鄭立楷，王華杰 .AutoCAD VBA 開發(fā)精彩實例教程 [M].北京：清華大學出版社 . 2020 年 32 [12] 汪昌成 ,段成龍 ,曾小惠 . AutoCAD 的二次開發(fā)技術 [J].機械設計與制造 .2020 年 [13] 翟震 ,張濤 .AutoCAD 的二次開發(fā)技術 [J].鄭州工業(yè)大學學報 .1998 年 [14] 劉保華 ,邢勝旺 . AutoCAD 二次開發(fā)的方法與實例 [J].新技術新工藝 . 2020 年 [15] 經通道論壇 AutoCAD VBA 二次開發(fā)版塊 . [16] AutoCAD VBA 二次開發(fā)論壇 致謝： 四年的讀書生活在這個季節(jié)即將劃上一個句號，而于我的人生卻只是一個逗號，我將面對又一次征程的開始。四年的求學生涯在師長、親友的大力支持下，走得辛苦卻也收獲滿囊，在論文即將付梓之際，思緒萬千，心情久久不能平靜。 偉人、名人為我所崇拜，可是我更急切地要把我的敬意和贊美獻給一位平凡的人，我的導師。我不是您最出色的學生，而您卻是我最尊敬的老師。您治學嚴謹，學識淵博，思想深邃，視野雄闊，為我營造了一 種良好的精神氛圍。授人以魚不如授人以漁，置身其間，耳濡目染，潛移默化，使我不僅接受了全新的思想觀念，樹立了宏偉的學術目標，領會了基本的思考方式，從論文題目的選定到論文寫作的指導 ,經由您悉心的點撥 ,再經思考后的領悟 ,常常讓我有 “ 山重水復疑無路 ,柳暗花明又一村 ” 。 感謝那些與我朝夕相處了三年的同學。這些日子，他們和我一塊努力奮斗共進共退，相互鼓勵相互扶持，你幫我找我?guī)湍阏?，互通有無，及時溝通，以免出現(xiàn)論文撞車事件。 感謝我的爸爸媽媽，焉得諼草，言樹之背，養(yǎng)育之恩，無以回報，你們永遠健康快樂是我最大的心 愿。在論文即將完成之際，我的心情無法平靜，從開始進入課題到論文的順利完成，有多少可敬的師長、同學、朋友給了我無言的幫助，在這里請接受我誠摯謝意！ 同時也感謝學院為我提供良好的做畢業(yè)設計的環(huán)境。 最后再一次感謝所有在畢業(yè)設計中曾經幫助過我的良師益友和同學，以及在設計中被我引用或參考的論著的作者。 33