【導(dǎo)讀】深刻認(rèn)識(shí)，作為計(jì)算機(jī)組成的一部分，AutoCAD已成為當(dāng)今計(jì)算機(jī)輔助設(shè)計(jì)軟件之一。中多個(gè)圖層進(jìn)行塊的插入比較麻煩，尤其是對(duì)地形圖符號(hào)的插入更是繁瑣。中創(chuàng)建塊，然后再插入，這樣操作起來(lái)步驟繁瑣、費(fèi)時(shí)且麻煩，工作量比較大并且容易出錯(cuò)。來(lái)的軟件開發(fā)中有借鑒作用并在使用上有實(shí)際意義。

　　

【正文】 Sub Private Sub CommandButton2_Click() End 退出程序 End Sub Private Sub CommandButton3_Click() Dim pt1 As Variant pt1 = (, 請(qǐng)輸入插入點(diǎn) ) = pt1(0) 獲得插入點(diǎn) 坐標(biāo) = pt1(1) = pt1(2) End Sub Private Sub CommandButton4_Click() Dim xs As Double xs = Val(InputBox(請(qǐng)輸入 X比例 :, X比例因子 )) 統(tǒng)一 插入 比例 = xs = xs = xs End Sub Private Sub UserForm_Initialize() 界面初始化 xp1 = 0 初始插入點(diǎn)為 0,0,0 yp1 = 0 zp1 = 0 xscale1 = 初始插入比例為 , yscale1 = zscale1 = End Sub 模塊設(shè)置 Public i 設(shè)置 i為全 局變量 Sub bysj() 程序運(yùn)行先顯示地形圖符號(hào)界面 End Sub 21 6 調(diào)試和測(cè)試系統(tǒng)功能 調(diào)試與測(cè)試 在程序輸入階段，應(yīng)該充分利用 VBA 編輯器的智能功能。當(dāng)你在寫代碼時(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ò)誤類型有： 。 這種邏輯錯(cuò)誤在編寫程序時(shí)很容易見(jiàn)，當(dāng)你想運(yùn)行一個(gè)事件過(guò)程并且檢驗(yàn)它時(shí)，建立的圖形用戶界面時(shí)，文本框中的 Name 屬性已經(jīng)更新，在編寫程序時(shí)，代碼的 Name 屬性必須與文本框一致。有 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è)試等。 。 當(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)試代碼。 22 其它問(wèn)題及解決方案 在設(shè)計(jì)的過(guò)程中，雖然取得的一定的成效，學(xué)到了不少的東西，但也出現(xiàn)了一定的問(wèn)題： VBA 如何初始化？ ， Auto CAD 忙。 有了問(wèn)題，自然就要想辦法去解決，具體的解決辦法如下： CAD安裝目下，通過(guò) VBA 語(yǔ)言實(shí)現(xiàn)絕對(duì)路徑查找 ； Initalize 事件初始化 AutoCAD VBA； ，在窗體 1 中設(shè)置變量值，在窗體 2中通過(guò)條件選擇實(shí)現(xiàn)圖標(biāo)與圖形的一一對(duì)應(yīng)關(guān)系； ，重命名文件 ； ：一是按 ESC 鍵；二是按回車鍵，使命令結(jié)束。 23 小 結(jié) 基于 AutoCAD的地形圖符號(hào)自動(dòng)生成的開發(fā)與研究，在這次的設(shè)計(jì)使得我解決問(wèn)題的能力以及運(yùn)用工具的能力提高了，同時(shí)也讓我弄清了以前對(duì)系統(tǒng)開發(fā)的一些模糊的認(rèn)識(shí)，而且提 高了系統(tǒng)開發(fā)的水平，培養(yǎng)了嚴(yán)謹(jǐn)?shù)墓ぷ髯黠L(fēng)，對(duì)我來(lái)說(shuō)是一次很好的鍛煉。在這短暫的兩個(gè)月我們這組人員在開始時(shí)一起選擇資料，討論問(wèn)題，互相幫助解決了一部分問(wèn)題，大家都基本上完成了自己的任務(wù)。我相信只要努力學(xué)習(xí)了就會(huì)有收獲。 基于 AutoCAD，使用 VBA語(yǔ)言進(jìn)行二次開發(fā)， 實(shí)現(xiàn)地形圖符號(hào)的自動(dòng)生成 ，并已將自動(dòng)生成菜單掛在 CAD軟件上，實(shí)現(xiàn)了它自身的價(jià)值。從而也展示 VBA語(yǔ)言在 AutoCAD二次開發(fā)中的應(yīng)用和 AutoCAD的可擴(kuò)展性和實(shí)用性以及這一開發(fā)的現(xiàn)實(shí)意義。 整個(gè)設(shè)計(jì)過(guò)程中，自己參考了不少書本，吳老師也給予了不 少幫助，也上網(wǎng)查了不少資料。雖然基本功能實(shí)現(xiàn)了，但是因?yàn)闀r(shí)間緊張，而未能將所有地形圖符號(hào)都實(shí)現(xiàn)自動(dòng)生成。目前還只能針對(duì)點(diǎn)狀地形圖符號(hào)和部分面狀符號(hào)實(shí)現(xiàn)自動(dòng)生成，線型符號(hào)還有待進(jìn)一步開發(fā)。 24 參考文獻(xiàn) [1]張晉西 .Visual Basic與 AutoCAD二次開發(fā)［ M］ .北京： 清華大學(xué)出版社， 2020. [2]二代龍震工作室 .AutoCAD VBA函數(shù)庫(kù)查詢辭典［ M］ . 北京： 中國(guó)鐵道出版社， 2020. [3]李鳳華 .AutoCAD2020 VBA開發(fā)指南［ M］ . 北京： 清華大學(xué)出版社 2020. [4]張帆 .AutoCAD VBA開發(fā)精彩實(shí)例教程［ M］ . 北京： 清華大學(xué)出版社， 2020. [5]張帆，鄭立楷，盧擇臨，王成煌等 .AutoCAD VBA 二次開發(fā)教程 [M]. 北京 ： 清華大學(xué)出版社 .2020年 . [6]張帆，鄭立楷，王華杰 .AutoCAD VBA開發(fā)精彩實(shí)例教程 [M].北京： 清華大學(xué)出版社 . 2020年 . [7]佟士懋等 .二次開發(fā)技術(shù)基礎(chǔ)及應(yīng)用實(shí)例 AutoCAD ActiveX/VBA［ M］ . 北京： 國(guó)防工業(yè)出版 .2020. [8]蔣新生，徐輝等 .基于 AutoCAD 開放式系統(tǒng)軟件的用戶菜單開發(fā) [J].重慶： 重慶工業(yè)高等?？茖W(xué)校學(xué)報(bào) . [9]汪昌成，段成龍，曾小惠 .AutoCAD 的二次開發(fā)技術(shù) [J].機(jī)械設(shè)計(jì)與制造 ,中國(guó)知網(wǎng)： 2020(6) [10]經(jīng)通道 論壇 AutoCAD VBA二次開發(fā)版塊 . [11 博學(xué)天下論壇 [12 CAD設(shè)計(jì)論壇 [13]Marion Cottingham 著孔祥豐譯 .AutoCAD VBA 從入門到精通［ M］ .北京： 電子工業(yè)出版社， 2020. 25 致 謝 通過(guò)這一階段的努力，我的畢業(yè)論文《 基于 AutoCAD的地形圖符號(hào)自動(dòng)生成的開發(fā)與研究 》終于完成了，這意味著大學(xué)生活即將結(jié)束。在大學(xué)階段，我在學(xué)習(xí)上和思想上都受益非淺，這除了自身的努力外，與各位老師、同學(xué)和朋友 以及家人 的關(guān)心、支持和鼓勵(lì)是分不開的。 首先要 感謝我的爸爸媽媽，焉得諼草，言樹之背，養(yǎng)育之恩，無(wú)以回報(bào)，你們永遠(yuǎn)健康快樂(lè)是我最大的心愿。 在本論文的寫作過(guò)程中，我的導(dǎo)師 吳 老師傾注了大量的心血，從選題到開題報(bào)告，從 設(shè)計(jì)思路 ，到 編程中出現(xiàn)的各種問(wèn)題 ，嚴(yán)格把關(guān)，循循善誘，在此我表示衷心感謝。同時(shí)我還要感謝在我學(xué)習(xí)期間給我極大關(guān)心和支持的各位老師以及關(guān)心我的同學(xué)和朋友。 寫作畢業(yè)論文是一次再系統(tǒng)學(xué)習(xí)的過(guò)程，畢業(yè)論文的完成，同樣也意味著新的學(xué)習(xí)生活的開始。我將銘記我曾是一名 城院 學(xué)子，在今后的工作中把 城院 的優(yōu)良傳統(tǒng)發(fā)揚(yáng)光大。 感謝各位專家的批評(píng)指導(dǎo)。