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