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

　　

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