【導讀】它具有操作簡單，繪圖速度快，精確高且具有較強的二次開發(fā)能力等優(yōu)點，極大的縮短設計周期，提高了設計效率，改善了設計質量，成為各行業(yè)設計人員的有力工具。如AutoCAD在文字處理方面有些不方便，AutoCAD在標注曲線的時候，不能明確的標注曲線，如果要文字沿曲線標注，工作比較復雜，而且又麻煩，基于AutoCAD文字沿曲線自動生成器的開發(fā)與研究，解決了這個問題。為工作人員減少大量的時間和工作量。AutoCADVBA是一個AutoCAD應用程序集成開發(fā)環(huán)境，它提供了高質量的用戶編程能力，能夠使AutoCAD數(shù)據(jù)與其他VBA應用程序直接共享。運用AutoCAD的VBA二次開發(fā)工具用來開發(fā)AutoCAD中文字沿曲線自動生成器的開發(fā)將會實現(xiàn)多文字沿曲線自動生成功能，根據(jù)曲線沿曲線均勻生成文字。AutoCAD是由美國Autodesk歐特克公司于二十世紀八十年代初為微機上應用CAD技術而開發(fā)的繪圖程序軟件包，經(jīng)過不斷的完善，現(xiàn)已經(jīng)成為

　　

【正文】 mp。 _divide amp。 Chr(34) amp。 ent amp。 Chr(34) amp。 B amp。 Chr(34) amp。 amp。 Chr(34) amp。 splinetxt amp。 Chr(34) amp。 amp。 Chr(34) amp。 y amp。 Chr(34) amp。 amp。 Len() + 1 amp。 )) amp。 vbCr .SendCommand lispp ElseIf = True Then‘選擇曲線，運用_divide命令生成文字，文字沿水平對齊 lispp = (progn (setq ent (entsel amp。 Chr(34) amp。 選擇曲線 amp。 Chr(34) amp。 )) (prin1) (mand amp。 Chr(34) amp。 _divide amp。 Chr(34) amp。 ent amp。 Chr(34) amp。 B amp。 Chr(34) amp。 amp。 Chr(34) amp。 splinetxt amp。 Chr(34) amp。 amp。 Chr(34) amp。 n amp。 Chr(34) amp。 amp。 Len() + 1 amp。 )) amp。 vbCr .SendCommand lispp End If End Witherrhand:If 0 Then Resume NextEnd IfEnd Sub 宏設計宏是公用的字程序，每一個工程通常包含至少一個宏。宏命令：CreateCurveText添加宏的啟動Sub CreateCurveText()End Sub 創(chuàng)建菜單***POP12***文字曲線生成器ID_qxwz [amp。文字沿曲線自動生成器]ID_wzsc [amp。文字沿曲線自動生成器]^C^C^P(mand vbarun CreateCurveText) ^P. 調試和測試系統(tǒng)功能 調試與測試在程序輸入階段，應該充分利用VBA編輯器的智能功能。當你在寫代碼時，輸入一些字母后，編輯器可以自動列出合適的語句、對象、函數(shù)供你選擇，可以用上下鍵選擇，然后按TAB鍵確認。當輸入一個回車符后程序會自動對這條語句進行分析，如果出現(xiàn)錯誤就會提示。運行VBA時經(jīng)常遇到的錯誤類型有：（1）在開發(fā)階段編寫代碼是產(chǎn)生邏輯錯誤。這種邏輯錯誤在編寫程序時很容易見，當你想運行一個事件過程并且檢驗它時，建立的圖形用戶界面時，文本框中的Name屬性已經(jīng)更新，在編寫程序時，代碼的Name屬性必須與文本框一致。有IF語句時，必須要有END IF 結尾。（2）在輸入一個語句后，VBA解釋程序有時會立即發(fā)現(xiàn)有編譯錯誤。當程序轉換成可執(zhí)行的形式時，錯誤也可能比編輯程序發(fā)現(xiàn)。編譯錯誤的出現(xiàn)就是因為輸入了不正確的代碼，當輸入的語句沒有滿足Visual Baisc語言句法上的要求時，一些編譯錯誤就會立即出現(xiàn)。例如：① 編譯錯誤：子過程或函數(shù)未定義② 編譯錯誤：語法錯誤③ 編譯錯誤：方法或數(shù)據(jù)成員未找到針對上述編譯錯誤，我采取了如下措施：找到未定義的子過程或函數(shù)，進行定義；對于語法錯誤的地方進行修改，并不斷的進行測試等。（3）在執(zhí)行時發(fā)生運行錯誤。當代碼被運行的同時這些語句試圖執(zhí)行非法操作時，將會發(fā)生運行錯誤。例如，運行時錯誤，無法獲取document對象。當正在使用調用對象的變量時，將產(chǎn)生另一個普通的運行錯誤，那就是在賦值語句中缺少Set語句。VBA IDE不能很好的解決這些錯誤，但在出現(xiàn)錯誤時它確實能提供有用的功能，你必須盡可能的確保輸入的代碼在句法上是正確的，以便解釋程序能理解它。還有一些特點就是當程序不是按照所期望的要求去執(zhí)行的時候，它能輔助你調試代碼。 其它問題及解決方案在設計的過程中，雖然取得的一定的成效，學到了不少的東西，但也出現(xiàn)了一定的問題：（1）定義重復。（2）如何選取曲線。（3）如何把文字做成塊。（4）怎么在均勻在曲線上生成文字有了問題，自然就要想辦法去解決，具體的解決辦法如下：（1）找到重復定義的語句，刪除重復定義的語句；（2）使用選擇集來選取曲線；（3）把輸入的文字使用AutoCAD中使用命令_block把文字做成塊（4）使用Autocad中的命令_divide把塊均勻的生成在曲線上。總 結基于AutoCAD文字沿曲線自動生成器的開發(fā)與研究，經(jīng)過3個月的努力終于完成基本完成文字沿曲線自動生成器，在這3個月的時間里學習許多的新知識，如AutoCAD的畫圖知識，VBA編程等等。文字沿曲線自動生成器針對 AutoCAD中文字輸入的不方便，只能進行單行或者多行的輸入，在曲線上生成文字時非常的麻煩而且不美觀。文字沿曲線自動生成器它能快速的在曲線上生成文字，方便用戶的使用夠沿曲線在曲線上均勻生成文字，可以選擇2種文字的排列法式，一個是文字始終是水平的，另外一種是沿曲線切線生成，方便用戶的選擇，在曲線上還可以選擇文字是在曲線上還是在曲線中或者曲線下面，生成的文字還比較美觀，極大的減少用戶的工作量。然而由于時間有限及剛剛接觸到該語言，很多地方還不是很完善。參考文獻:[1] 2005工程制圖實用指南［M］北京：.[2] VBA開發(fā)精彩實例教程［M］北京：清華大學出版社，2004.[3] VBA開發(fā)指南［M］北京：清華大學出版社，2001.[4] Basic與AutoCAD二次開發(fā)［M］北京：清華大學出版社，2002.[5] VBA函數(shù)庫查詢辭典［M］北京：中國鐵道出版社，2003.[6] Marion VBA從入門到精通［M］北京:電子工業(yè)出版社，2001.[7] ActiveX/VBA［M］北京:國防工業(yè)出版，2006.[8]蔣新生，[J].重慶工業(yè)高等?？茖W校學報.[9]梁飛華，鄧宇，曾亞森 [J].茂名學院報,2005(6).[10]張帆，鄭立楷， VBA開發(fā)精彩實例教程 [M].北京：清華大學出版社. 2004.[11]張帆，鄭立楷，盧擇臨， VBA二次開發(fā)教程 [M]. 北京：.[12]經(jīng)通道論壇[13][14]致 謝畢業(yè)論文暫告收尾，這也意味著我在學院大學的四年的學習生活既將結束?；厥准韧约阂簧顚氋F的時光能于這樣的校園之中，能在眾多學富五車、才華橫溢的老師們的熏陶下度過，實是榮幸之極。在這四年的時間里，我在學習上和思想上都受益非淺。這除了自身努力外，與各位老師、同學和朋友的關心、支持和鼓勵是分不開的論文的寫作是枯燥艱辛而又富有挑戰(zhàn)的。關于AutoCAD的研究與開發(fā)一直探討的熱門話題，老師的諄諄誘導、同學的出謀劃策及家長的支持鼓勵，是我堅持完成論文的動力源泉。在此，我特別要感謝我的導師老師。從論文的選題、文獻的采集、框架的設計、結構的布局到最終的論文定稿，從內(nèi)容到格式，從標題到標點，她都費盡心血。沒有吳宏斌師的辛勤栽培、孜孜教誨，就沒有我論文的順利完成。感謝經(jīng)計算機科學系的各位同學，與他們的交流使我受益頗多。最后要感謝我的家人以及我的朋友們對我的理解、支持、鼓勵和幫助，正是因為有了他們，我所做的一切才更有意義；也正是因為有了他們，我才有了追求進步的勇氣和信心。時間的倉促及自身專業(yè)水平的不足，整篇論文肯定存在尚未發(fā)現(xiàn)的缺點和錯誤。懇請閱讀此篇論文的老師、同學，多予指正，不勝感激