【導讀】基于AutoCAD的三維旋轉(zhuǎn)樓梯自動生成器。院系計算機科學系。專業(yè)信息管理與信息系統(tǒng)。畢業(yè)設計(論文)材料

　　

【正文】 1) Dim t As Integer For t = 0 To numbers 1 Set objCopy1(t) = Dim ptto1(0 To 2) As Double ptto1(0) = (length / 2 + width * numbers / 2): ptto1(1) = (width * numbers / 2 + length width / 2) + (t + 1) * width: ptto1(2) = height0 * numbers + (t + 1) * height0 objCopy1(t).Move ptcen0, ptto1 objCopy1(t).Rotate ptcen1, Next t Dim objcopy2 As Acad3DSolid Dim ptto2(0 To 2) As Double Set objcopy2 = ptto2(0) = (length / 2 + width * numbers / 2): ptto2(1) = (length / 2 + width * numbers / 2): ptto2(2) = (numbers * 2 + 1) * height0 ptcen1, ptto2 ptcen1, 0 Dim objCopy3() As Acad3DSolid ReDim objCopy3(numbers 1) Dim s As Integer For s = 0 To numbers 1 Set objCopy3(s) = Dim ptto3(0 To 2) As Double ptto3(0) = (length / 2 + width * numbers / 2): ptto3(1) = (width * numbers (width * numbers / 2 width / 2)) (s + 1) * 260: ptto3(2) = (numbers * 2 + s + 2) * height0 objCopy3(s).Move ptcen0, ptto3 objCopy3(s).Rotate ptto2, 0 Next s End If End Sub Private Sub UserForm_Initialize() = 40 = 140 = 280 = 180 = 20 = 4 = 1320 = 150 = 260 End Sub 調(diào)試與測試 總 結(jié) 基于 AutoCAD 的三維旋轉(zhuǎn)樓梯自動 生成器的開發(fā)， 在這次的設計使得我解決問 題的能力以及運用工具的能力提高了，同時也讓我弄清了以前對系統(tǒng)開發(fā)的一些模糊的認識，而且提高了系統(tǒng)開發(fā)的水平，培養(yǎng)了嚴謹?shù)墓ぷ髯黠L，對我來說是一次很好的鍛煉。 在這短暫的兩個月我們這組人員在開始時一起選擇資料，討論問題，互相幫助解決了一部分問題，大家都基本上完成了自己的任務。我相信只要努力學習了就會有收獲。 基于 AutoCAD，使用 VBA 語言進行二次開發(fā)， 實現(xiàn)在 當前 AutoCAD 中，通過輸入數(shù)據(jù)和條件的選擇，從而實現(xiàn)三維旋轉(zhuǎn)樓梯的一步到位 ， 也 展示 VBA 語言在 AutoCAD 二次開發(fā)中的應用和 AutoCAD 的可擴展 性和實用性以及這一開發(fā)的現(xiàn)實意義。 整個設計過程中，自己參考了不少書本，經(jīng)過了反復的修改，進行了一定的優(yōu)化，比如 :在將數(shù)據(jù)對象放入數(shù)據(jù)集中時，考慮到要實現(xiàn)兩種光滑方式便使用了兩個數(shù)據(jù)集，感覺會兩個方式單獨會較清晰，但是后來發(fā)現(xiàn)交不需要兩個數(shù)據(jù)集，而只用使用一個足夠，因為兩個方式是單獨的，并不能夠同時實現(xiàn)，只需對 數(shù)據(jù)集進行清空便可再次使用。 雖然基本功能實現(xiàn)了，但是因為時間緊張，而未能將對多段線的修改命令全部置于此生成器中，以便多段線的批量修改。 參考文獻 [1]方晨 .AutoCAD 2020 中文版實例教程 ［ M］ .上海科技普及出版社， 2020. [2]張帆 .AutoCAD VBA 開發(fā)精彩實例教程 ［ M］ .清華大學出版社， 2020. [3]李鳳華 .AutoCAD2020 VBA 開發(fā)指南 ［ M］ .清華大學出版社 2020. [4]張晉西 .Visual Basic 與 AutoCAD 二次開發(fā) ［ M］ .清華大學出版社， 2020. [5]二代龍震工作室 .AutoCAD VBA 函數(shù)庫查詢辭典 ［ M］ .中國鐵道出版社， 2020. [6]何渝 .計算機常用數(shù)值算法與程序（ C++版） [M].北京：人民郵電出版社，2020. [7]王 忠，劉浩吾，柴賀軍 .等 值線的柵格圖形自動生成 [J].水利學報 . [8]孫桂茹等 .等值線生成與圖形填充算法 .天津大學學報 [J]， 2020， 33. p816818. [9]童蕾等 .中文 AutoCAD 2020 工程制圖實用指南 ［ M］ .冶金工業(yè)出版社 .2020. [10]佟士懋等 .二次開發(fā)技術(shù)基礎及應用實例 AutoCAD ActiveX/VBA［ M］ .國防工業(yè)出版 .2020. [11]蔣新生，徐輝等 .基于 AutoCAD 開放式系統(tǒng)軟件的用戶菜單開發(fā) [J].重慶工業(yè)高等?？茖W校學報 . [12]張帆，鄭立楷，王華杰 .AutoCAD VBA 開發(fā)精彩實例教程 [M].北京： 清華大學出版社 . 2020 年 . [13]張帆，鄭立楷，盧擇臨，王成煌等 .AutoCAD VBA 二次開發(fā)教程 [M]. 北京清華大學出版社 .2020 年 . [14 AutoCAD VBA 二次開發(fā)論壇 [20] VBA 技術(shù)聯(lián)盟 教程版 塊 致謝 大學四年的學習生涯在這個艷陽高照的季節(jié)即將走完，雖然在過程中經(jīng)歷了迷茫和失敗。但在各位老師、同學和親友的共勉下，我成功的完成了人生的一次歷練和蛻變。 在論文付梓之際，我由衷的體會到豐收的喜悅。在經(jīng)歷過播種、開花和結(jié)果，我迎來了最后一個階段。在這里，我首先要感謝我的指導老師吳教授。如果我是一艘船，那老師就是帆。吳老師作為系主任，總能在繁忙的工作中抽出時間來進行指導 。從論文的開題到論文的結(jié)束，吳 教授給我們提供了思路上的選擇，編程語言的講解、編程時問題的解決和論文的分析。老師嚴謹?shù)闹螌W態(tài)度和淵博的專業(yè)知識使我在畢業(yè)設計的過程中如醍醐灌頂，受益頗深，并保證了論文的質(zhì)量。同時，在吳老師的指導過程中，我真正體會到“三尺講臺，三寸舌，三寸筆，三千桃李”的精神。 感謝 我的父母，在人生這一征程中，給予我精神上的鼓舞和物質(zhì)上的保障。當我在人生的彎路上，總能牽著我走出逆境?！傍B有反哺之義 ,羊知跪乳之恩” ，我走出社會后也會用我的力量去創(chuàng)造一個豐裕世界來回報我的父母?！罢l言寸草心，報得三寸暉”，我會盡自己最大的努力來感謝給我創(chuàng)造人生機遇的父母。 感謝陪我共同走過四年的同學，在做畢業(yè)設計的過程，他們給我提供了很多幫助。當我遇到瓶頸時，他們總是能夠及時的點醒我，使我少走了很多彎路。 我還要感謝百度， google 公司為我提供了豐富的資料，及時填補了某些方面知識的空缺，使我能夠更加完美 的完成畢業(yè)設計。 最后，我要特別感謝的是我引用的書籍的作者和學習網(wǎng)站，他們無私的提供了各方面的資料使我更順利的完成任務。 到這里，我真正意識到我的大學生涯將結(jié)束。即將步入社會的我既感到興奮又伴著惶恐。同時預祝每位同學都可以找到一份滿意的工作。各位老師身體健康、工作順利。