1、垃圾轉運站CAD系統設計摘 要本文介紹了如何利用Auto CAD二次開發語言VBA開發適用于垃圾轉運站的CAD系統。由于我國經濟建設的迅速發展和人民生活水平的日益提高，我國城市的數量也迅速增加，伴隨而來的城市垃圾也與日俱增，每天都有數以萬噸的城市垃圾學要清運和處理。如何合理地處理好這龐大的城市垃圾，是擺在我們面前一項十分緊迫的任務。隨著垃圾比重的減輕，運輸距離的增加，垃圾的壓縮轉運是城市必須考慮的問題。傳統的垃圾運輸方式使運輸車額定載重量空耗，據測定5t級的自卸車只能裝載2.4t左右的垃圾，少數僅載0.50.6t，冬季還存在垃圾在箱內凍結的情況，造成垃圾傾倒不徹底，嚴重影響垃圾清運效率。這樣完

2、成相同的運量只有不斷增加車數量或加班次，造成人力，物力浪費。因此各城市都希望能建設新的、先進的、高效的垃圾轉運站。 Auto CAD不僅是一種通用的計算機輔助設計和繪圖（CADD）軟件系統，而且是一種高效、開放式結構的專業開發工具。本文著重介紹了如何利用Auto CAD開發工具規劃、開發垃圾轉運站參數化CAD系統，討論了系列化垃圾轉運站的實現方法以及參數化CAD的工作原理、開發方法等；對系統中變參圖形庫的生成方法也做了系統的介紹。 本文還介紹了垃圾轉運站CAD系統的用戶菜單組織方式以及菜單系統對垃圾轉運站圖形庫的管理方法，為垃圾轉運站系統設計提供了完善的理論支持，對以后本系統的完成提供了一個平

3、臺和實現方法。 關鍵詞：垃圾轉運站 CAD 參數化 VBARUBBISH TRANSPORT STATION CAD SYSTEM DESIGNABSTRACTThe paper mainly includes the design of rubbish transport station CAD system design using redesign program VBA of Auto CAD and the development of the machines CAD system.With the development of economic construction of o

4、ur country and the improvement of our daily life,the amount of cities in our country increase fastly,so the rubbish become more and more,everyday there is tens of thousand ton rubbish from those cities need to transport and deal with.How to solve so large quantity city rubbish become the first thing

5、 that we have to front. With the proportion decrease of the rubbish, the distance of transportation increases,compressing the rubbish is the mian issue that should be thought over.The tradition transportation makes the transport truck vacancy, Keywords：Rubbish transport station Parameter VBA CAD目 錄第

6、一章 緒論第二章 垃圾轉運站CAD系統設計第三章 垃圾轉運站CAD系統界面設計第四章 分類垃圾箱參數化設計結束語致謝參考文獻附件第一章 緒 論1.1 CAD發展概況 計算機輔助設計（Computer Aided Design,簡稱CAD）是近幾十年來在工程技術領域應用最為廣泛的一門新興的綜合計算機應用技術。隨著計算機硬件和軟件的發展，CAD技術經過幾十年的演變也已經遠遠超出誕生時的狹窄應用領域。面向多行業、多層次及應用范圍的廣泛性與某一專業領域的深入性的有機結合已成為其發展的方向和模式。同時，隨著競爭的加劇，各行業紛紛以加快產品開發速度、降低成本為基本手段，依靠產品的不斷推陳出新增強市場競爭力

7、。CAD作為一種快速、準確、靈活的設計方式，已經成為用戶普遍接受，并快速想越來越多的行業普及，覆蓋了從飛機、輪船、汽車等大型制造業的設計、制造，到服裝、鞋類的設計乃至影視廣告的制作等幾乎所有的領域。 CAD的整個發展過程可劃分為四個階段（如表11所示）階 段時 間特 點初始試驗階段50年代提出CAD的設想，為CAD的應用進行硬件和軟件的準備研制試驗階段60年代研制成功試驗性CAD系統，其中有代表性的是IBM公司和GM公司開發的汽車前窗設計DAC-1系統、美國貝爾實驗室用于印刷電路設計的CAD系統技術商品化階段70年代CAD開始使用，從二維的電路設計到三維的汽車、飛機、和船舶等設計，出現了許多開

8、發CAD系統的公司高速發展階段80年代今應用范圍擴大，大中型系統向微型化發展，出現了IBM PC/XT、AT等應用極廣的微機及32位計算機上的CAD系統表11 CAD 發展過程CAD是計算機和人相結合，各盡所長的新型設計方法。從思維角度看，設計過程包含分析和綜合兩方面的內容。人可以進行創造性的活動，將設計方法經過綜合分析，轉換成計算機可以處理的數學模型和分析這些模型的程序。在程序運行過程中，人可以評價設計結果，控制設計過程；計算機則可以發揮其分析計算和存儲的能力，完成繪圖、信息管理、模擬、優化、數值分析等任務。人和計算機相結合，在設計過程中兩者發揮各自的優勢，有利于獲得最優設計結果，縮短設計周

9、期。國際上CAD技術的發展經歷了五十年代至六十年代初期的準備和醞釀，六十年代中期至七十年代中期的迅速發展和推廣普及，以及七十年代末以來的突飛猛進和飛速發展這樣三個階段。當前CAD技術有以下幾個方面的特點：（1）工作站的商品化和普及化普遍采用具有強大的圖形處理功能的超級微機和局域網CAD系統，軟件集成化程度越來越高，性能價格比不斷提高，商品話軟件層出不窮。 （2）軟件標準化 隨著國際組織不斷規范標準圖形，數據和圖形接口軟件也不斷向標準化方向發展。 （3）CAD/CAM一體化 計算機輔助設計和制造日益緊密結合，越來越成為現代產品開發和生產的主要模式。 （4）設計智能化 日益重視對工程數據庫和智能C

10、AD系統的研究和開發。1.2 垃圾轉運站發展概況 我國垃圾處理體制中，目前環衛部門既是監督機構，一是管理部門和執行單位，政企不分。城市垃圾處理一直被視為公益事業，經費來源于地方財政。管理方面缺乏相應的法規政策，沒有完善的垃圾收費制度。因此存在三大問題：（1）垃圾減量化工作有待進一步加強；（2）現行垃圾處理技術落后，缺乏分類、封閉存放，回收利用率低，二次污染嚴重，潛在安全隱患大；（3）管理體制落后，運營機制缺乏科學性，政策配套不完善，嚴重阻礙工作的全面發展。因此盡可能地減少垃圾，在對垃圾處理過程中盡可能地避免污染環境，將垃圾作為資源反復利用等，這些課題將變得更為重要。按照生活垃圾處理“減量化、無

11、害化、資源化”的原則，垃圾轉運站作為垃圾處理的重要環節之一，其主要目的就是保護城市環境衛生，緩解城市交通擁擠狀況，減少生活垃圾運輸費用，實現垃圾減量化，資源化并為垃圾無害化處理提供服務。1.3 垃圾轉運站與CAD技術的結合 垃圾轉運站做為現代城市的一個重要組成部分，具有和其他機械設計一樣，具有如下的特點：（1）數據信息量大垃圾轉運站的設計涉及到當地人口、交通、垃圾組成情況、地理位置和氣候等因素，不僅數據量多，而且各個階段之間存在信息反饋和相互作用。（2）圖形處理量大據統計，在一般的設計過程中，繪圖工作量約占總設計工作量的50-70%。（3）數值運算量大 為了確保產品的性能和使用可靠性，在設計過

12、程中需要進行強度、剛度、可靠性等方面的運算。一些設計模型難以精確求解，還必須采用數值分析方法，而這些對于傳統的設計計算工具計數器則是工作量非常大，有的甚至不能實現。和發達國家相比，我過的垃圾處理工作還有很多需要完善的地方，處理方法也有待于提高，要想改變這種狀況，適應現代化進程的要求，就必須進行設計方法的變革。設計方法的變革涉及到設計領域的各個方面，其中最有力的措施就是大力推廣計算機輔助設計（CAD）技術。CAD綜合了電腦和人腦的優點，并將二者很好的結合起來，應用于實際的設計工作中，實踐證明，在設計中引入CAD技術，能給企業帶來明顯的經濟效益。在垃圾處理中引入CAD技術，將提高設計效率，縮短產品

13、的研制周期，加快產品的更新換代，降低產品的成本，為垃圾轉運站的通用化、系列化提供快速、便捷的設計方法。本次畢業設計分為三個模塊：（1）系統設計與分類垃圾箱設計，現在垃圾轉運站系統已經建立，分類垃圾箱可以通過VBA編程實現參數化繪圖；（2）不同尺寸標準件的自動化出圖，包括螺栓、銷、立體法蘭盤和冷拔無縫矩形鋼管，通過菜單調用程序，使CAD繪圖方便、快捷，大大縮短路設計時間；（3）對現有應用程序的調用，設計時會用到一些常用零件、部件，如V帶設計、軸承設計與校核等，現在可以通過菜單調用這些用程序，包括：V帶傳動、標準件疲勞強度試驗、齒輪的范成、導桿機構的運動分析、動壓滑動軸承設計、滾動軸承、過盈聯結、

14、滾動軸承、減速器輸出軸設計、鍵聯結、鉸鏈四桿機構運動、鏈傳動、六桿機構運動分析、螺栓聯結、螺栓連接受力分析、普通圓柱螺旋拉伸彈簧、曲柄滑塊、N3型圓柱扭轉螺旋彈簧、四桿機構類型判斷、蝸桿傳動、直齒圓柱齒輪傳動設計、直齒圓柱齒輪傳動設計計算等，對機械設計有很大的幫助。第二章 垃圾轉運站CAD系統設計2.1 垃圾轉運站現狀當前我國最常見的生活垃圾處理方法是垃圾衛生填埋法，這些生活垃圾大多沒有經過分類處理，里面摻雜著一些有毒害性的物質如廢舊電池、廢舊電器等(此類物質屬于危險廢物，國家明文規定嚴禁用填埋法處理)，也有許多可回收利用的物質如廢紙、金屬、玻璃等，這些垃圾不經處理，直接填埋，既會造成嚴重的污

15、染又會造成部分可利用資源的浪費，同時還會增大填埋場的處理量，縮短填埋場的使用壽命，造成不必要的經濟損失。表21為1995年北京市兩個地區的垃圾組成情況。表21北京市事業區和平房區生活垃圾成分及含量（1995年）地點灰土食品紙類磚瓦塑料草木玻璃織物金屬事業區4.4529.3412.783.2711.1122.95平房區22.4042.796.522.338.2611.493.672.160.38由表21可見，對于不同種類的垃圾，處理的方法必定根據實際情況來確定，不可能由某一設備來處理好各種垃圾，因此建立高效的垃圾轉運站是城市建設的主要任務之一。垃圾轉運站主要由進料槽、布

16、料運輸帶、破碎裝置、篩分裝置、磁選裝置、風選裝置、出料裝置等組成，各裝置又由不同型號設備組成，系統總體結構見表22。序 號垃圾轉運站組成具 體 設 備1進料槽進料槽2布料運輸帶布料運輸帶3破碎裝置1. 顎式破碎機 5. 輥式破碎機2. 錘式破碎機 6. 球磨機3. 沖擊式破碎機4. 剪切式破碎機4篩分裝置固定篩 滾筒篩 振動篩 共振篩5磁選裝置磁選裝置6風選裝置臥式風力分選機 立式風力分選機7出料裝置出料裝置8分類垃圾箱分類垃圾箱表22 垃圾轉運站組成目前，我國一方面要上馬新的垃圾轉運站工程，一方面原有的垃圾轉運站由于存在問題，急需進行改造，存在的問題有：（1）引進的設備由于其設計思想與我國有

17、很大的差別，因此在實際運用中不能很好發揮作用，而且運行成本高；（2）自主研發的設備由于分析不夠，使用后不能完成設計功能或完成不適當，如北京大屯垃圾轉運站的除塵設備就一直不能使用。2.2 課題任務 本課題是在垃圾轉運站個組成部分設計已有雛形的情況下，借助計算機進行參數化，借助計算機進行分析計算，讓計算機完成設計需要的各種文件（包括圖紙，設計說明書，零部件明細表，技術經濟分析，動畫演示等）。作為對垃圾轉運站計算機輔助設計系統設計，首先要了解國內垃圾轉運站的基礎狀況，構建一個計算機輔助設計系統，為系統的通用化、系列化提供實現的方法。本設計以美國專利（4,975,019號）分類垃圾箱的設計為基礎，全面

18、介紹了參數化分類垃圾箱的實現方法以及Auto CAD的菜單技術，對以后整個垃圾裝運站系統的完成提供了理論支持。 第三章 垃圾轉運站CAD系統界面設計3.1 Auto CAD菜單技術從Auto CAD 2000以后，由于加載應用程序的APPLOAD指令功能已經改善，所以編寫的應用程序在進入Auto CAD后就可以加載應用程序。本系統采用下拉菜單結構，控制Auto CAD下拉菜單文件為acad.mnu，在Auto CADsupport下，下拉菜單的表達方式為*popn（1<=n<=16)，在其中添加所須內容即可。（1）在acad.mnu中*pop11模塊后加入如下語句：*POP12*V

19、LISP/VBA PROGRAMID_VLISP/VBA 垃圾轉運站CAD系統(&R)ID_JINLIAOCAO 進料槽(&J) ID_YUNSHUDAI 布料運輸帶(&B)ID_POSUI ->破碎裝置(&P)ID_POSUI1 ->顎式破碎機(&E)ID_POSUI11 簡單擺動顎式破碎機(&J)ID_POSUI12 <-復雜擺動顎式破碎機(&F)ID_POSUI21 ->錘式破碎機(&C)ID_POSUI22 單轉子錘式破碎機(&D)ID_POSUI23 <-雙轉子錘式破碎機(&

20、S)ID_POSUI31 ->沖擊式破碎機(&C)ID_POSUI32 Universa型沖擊式破碎機(&C)ID_POSUI33 <-Hazemag型沖擊式破碎機(&C)ID_POSUI41 ->剪切式破碎機(&J)ID_POSUI42 Von Roll型往復剪切式破碎機(&V)ID_POSUI43 Lindemann型剪切式破碎機(&L)ID_POSUI44 <-旋轉剪切式破碎機(&X)ID_POSUI51 ->輥式破碎機(&G)ID_POSUI52 雙齒輥破碎機(&S)ID_POSUI5

21、3 <-單齒輥破碎機(&D)ID_POSUI6 <-球磨機(&Q)ID_SHAIFEN1 ->篩分裝置(&S)ID_SHAIFEN2 固定篩(&D)ID_SHAIFEN3 滾筒篩分裝置(&T)ID_SHAIFEN4 慣性振動篩分裝置(&X)ID_SHAIFEN5 <-共振篩分裝置(&Z)ID_FENGXUAN 磁選裝置(&C)ID_CIXUAN1 ->風選裝置(&F)ID_CIXUAN2 臥式風力分選機(&W)ID_CIXUAN3 <-立式風力分選機(&L)ID_CHUL

22、IAO 出料裝置(&C) ID_YUNSHUXIANG 分類垃圾箱(&L) 3.2 系統界面將acad.mnu重新加載，在Auto CAD 2004下，“工具選項”，在選項對話框中，選擇“文件菜單、幫助和其他文件名稱菜單文件瀏覽”，在選擇文件對話框中選擇acad.mnu并打開，然后確定并覆蓋菜單文件，完成后如圖31。圖31 垃圾轉運站系統界面第四章 分類垃圾箱參數化設計4.1 分類垃圾箱結構分析及參數化411 分類垃圾箱結構 如圖41所示，分類垃圾箱由運輸車、液壓機構、底部箱體、各種垃圾收集箱、撞鎖、吊鉤等組成，其尺寸采用專利提供的基本尺寸，并與國內實際情況相結合，如各種垃圾運

23、輸車的尺寸，來確定分類垃圾箱的主體尺寸。 圖 41 分類垃圾箱結構圖 分類垃圾箱的材料選用Q255A，其硬度較高，并且焊接性能尚好，加強筋的材料采用Q235A，其焊接性能很好，便于其焊接在箱體上，軸銷的材料采用45。分類垃圾箱的總體制造方法采用埋弧焊接方法，由于本箱體壁厚為3mm，且焊縫較長，用手工焊接首先不能保證精度，而且由于焊縫長，不便于連續焊接，而采用埋弧焊則可克服上述問題，不僅焊縫質量好，而且在焊縫長度上比手工方法有很大的優勢，焊接速度快，使用于直縫的焊接。加強筋的焊接方式采用電阻焊，其生產效率高，適合加強筋數量教多的特性。412 參數化設計的必要性及關鍵步驟 垃圾轉運站的設計者，必須

24、能夠提供各個設備型號齊全的設計，（每一種型號的垃圾轉運站設備，都必須對應于一套相應的圖紙）。還有可能根據垃圾轉運站的具體要求，設計特定型號的垃圾轉運站設備，如大型風選設備，設計的工作量很大。完成設計任務，雖然可以通過三角板、圓規等傳統的繪圖儀器，手工繪制工程圖紙，但這一途徑人力、物力花費很多，正逐漸被人們拋棄；在計算機上，則可以利用Auto CAD軟件包生成圖形文件，然后通過繪圖儀或打印機輸出工程圖紙。Auto CAD軟件包提供了一套功能強大的圖形生成、圖形編輯、圖形標注以及圖形環境設置等基本命令。利用這一套基本命令及其輔助功能，采用交互式輸入方式，理論上完全可以取代手工繪圖，繪制出幾乎所有的

25、工程圖紙。但是，這種交互式操作必須一次輸入各個繪圖命令，并逐次回答相應地提示后才能在屏幕上生成所需的圖素。任何一張工程圖紙，都是經過了成千上萬次人機對話后才能在屏幕上顯示。反復的人機對話和大量的人為參與使得圖形生成緩慢并且失誤較多，在重新設計時，這些失誤則可能會導致所設計設備之間彼此不匹配，互換性不好，安裝精度達不到要求等后果。對于系列化的產品，利用參數化程序設計，建立變參圖形庫，實現圖紙的自動生成，則能夠很好地解決問題。在參數化設計方式下，不再需要設計者調用繪圖命令逐個繪圖命令，這樣的工作交給程序去完成，用戶所做的工作只是向程序提供要求輸入的少量參數。參數化設計充分發揮了計算機強大的計算功能

26、以及圖形處理功能，減少了用戶輸入數據的數量，降低了失誤率、提高了作圖精度、并明顯提高了設計效率。參數化設計系列化產品之前，必須注意以下幾個關鍵步驟：（1）主參數和基本參數的選定對系列化產品進行參數化設計，首先必須選定該產品的主要參數。主要參數是各項參數中起主導作用的參數，一般是對產品的規格和制造費用有重大影響的尺寸參數。基本參數是反映機械產品主要性能和基本結構的參數。系列化對象的參數選擇，應考慮保證產品的使用性能、保證互換配套和對制造成本的影響。分類垃圾箱的設計采用垃圾的組成比例作為主要參數。如表41，由組成可以確定分類垃圾箱各分箱的比例，當垃圾的組成變化時，各分箱的尺寸可隨之改變，從而實現不

27、同地區同類垃圾箱的參數化設計，分類垃圾箱的總體尺寸采用當前車載垃圾箱的尺寸。分類垃圾箱的結構簡圖見圖41，其中：各分箱的寬度與垃圾的組成比例成正比。1.食品2.灰土+磚瓦3.紙類4.塑料5.草木6.玻璃7.織物8.金屬圖 41 分類垃圾箱簡圖表41 北京市各取樣點生活垃圾成分比重（2）選好基型，做好基型產品的設計基型應該是產品系列中最有代表性、規格適中、用量較大、結構先進、性能可靠的型號，基型設計則應在國內外同類產品選優的基礎上進行。系列化的方法如下：一、在設計基型產品的基礎上設計基型產品系列的各種規格。對系列內產品的主要零件、部件確定幾種典型結構型式，供具體設計時選用。二、設計變型系列或變型

28、產品時，應利用組合化、模塊化的設計思想，盡量做到只增加少數專用部件就可以發展一個變型產品或變型系列，以達到變型和基型產品能被最大限度的使用。三、分析產品結構，對具有共性的零件、部件進行通用化工作。對通用件可實行部件接口設計，以提高零件、部件的標準化、通用化水平。4.2 編程軟件及參數化設計 目前，Auto CAD的功能已經非常強大，適用范圍非常廣，對于具體的用戶需求，Auto CAD提供了相當完善的開發功能，可以用于設計適用與自身的CAD系統。從Auto CAD R14版本后，Auto CAD增加了對ActiveX的支持，對于CAD的二次開發，無論是從易用性和程序執行速度來說，都是一個質的飛躍

29、。而且開發工具不再局限于C/C+，傳統的AutoLISP已經發展為Visual LISP,并提供了完整的開發環境和編譯功能，克服了AutoLISP的缺點。在Auto CAD中內置了易學易用的VBA，極大改善了界面編寫難度。 421 VBA概論VBA，即Visual Basic for Application，引入了對象的程序設計環境，為用戶提供類似Visual Basic語言所擁有的功能，VBA可以存取Auto CAD環境的所有資源。VBA通過Auto CAD ActiveX Automation接口將信息傳送給Auto CAD，而Auto CAD VBA也允許VBA環境與Auto CAD同時

30、執行并通過ActiveX Automation接口提供Auto CAD的程序。如此，Auto CAD、ActiveX Automation與VBA的結合方式，提供了強大的接口，不僅可以操作Auto CAD的內部對象，更可以在其他的應用程序之間傳送或接收數據。ActiveX Objects(ActiveX對象模型)對象是ActiveX技術的基礎，每一個對象就代表Auto CAD的一個元素，。Auto CAD是以層結構來組織對象的，其頂層對象是Application，下面就是Preferences與Document。然后，再透過對Preferences對象的操作，我們可以在執行VBA的“編輯窗口”

31、功能后，在所出現的窗口中選擇【工具】【選項（O）】，在其中設定所需的值。Document對象包含：ModelSpace、PaperSpace、Blocks、Layers、Plot與Utility等對象。最底層的對象是點、線、圓、圖塊等Auto CAD能畫出的圖形。與 AutoLISP/Visual LISP相比，VBA在制作對話框方面有獨到的優勢，可以在VBA中快捷建立對話框，所以它是取代DCL很好的工具。422 參數化設計一般步驟及注意事項 參數化編程的實質，就是將圖形信息存儲于程序中，用一組變量記錄圖形的幾何參數，用一些關系式的賦值語句表達這些幾何參數與結構參數之間的關系，然后再調用一系列

32、繪圖語句來描述圖形的拓撲關系。參數化程序的處理步驟如下： （1）分析圖形的拓撲關系及其變化規律，列出圖形結構參數；（2）建立圖形結構參數與幾何參數之間的關系，即圖形的參數化模型。（3）根據所建立的關系與模型編制和調試繪圖程序。通常，圖形參數化所需的控制參數主要有以下兩類：（1）結構參數：確定圖形結構形狀所需的參數；（2）幾何參數：確定圖形位置的參數，一般有基點坐標。在確定圖形的參數時，應從以下幾個方面綜合考慮：（1）要保證圖形參數是唯一確定的，可以對確定圖形的各個點進行標注，再確定用各點繪圖的順序；（2）參數變量的名稱盡量與工程中所用的一致；（3）在確定圖形的基礎上，參數應該盡量的少。423

33、參數化圖形數據庫的建立與連接 在機械設計中，一般要用到大量的數據，有的是標準件，如螺栓、軸承、電器元件、閥門等，這些都有國家標準（GB）、行業標準（JB，HGB）或企業自己的標準；而對于不同企業，可能需要適合自己的非標準數據，如垃圾的組成比例。為了節省查閱標準及繪圖的時間，有必要將這些標準及非標準數據以數據庫的形式存儲，以供工程人員或程序調用。所建立的數據庫一般有三類：（1）對于一些固定的形狀，如一些閥門和電氣開關，可用子圖或符號的形式表示，對每一種具體規格的圖形分別繪出，將這些子圖和符號建立數據庫，在所需之處調用并在相應位置插入；（2）對于標準件和通用件，可以將它們的幾何形狀參數存為數據庫并

34、利用參數化編程的方法，寫出相應的標準件圖形繪制程序；（3）對于企業所需的非標準數據，當數據量很大時，建立數據庫可以規范數據，便于查詢，建立了數據庫，以后的設計工作就可以在此基礎上調用，省去了大量的重復性設計，提高了設計效率。數據庫是數據以一定物理結構和邏輯結構存儲的文件，可以是具有一定格式的文本文件，也可以是某個數據庫，如Foxpro、Access等，這些數據庫可以通過高級語言，如C+、VB、Delphi等，使用SQL（數據查詢語言）方便的實現數據庫的查詢、維護功能。對于建立好的不同類型數據庫，在VBA里可以用下列方法連接：（1）對于分類垃圾箱的數據庫，采用Access建立數據庫，數據庫調用方

35、法如下： 聲明部分：Public conn As New ADODB.Connection Public cmd As New ADODB.CommandPublic rs As New ADODB.Recordset 建立連接： driver = "Microsoft Access Driver (*.mdb)" dbq = "d:/畢業設計/fenlei.mdb" conn.Open "driver=" & driver & "dbq=" & dbq Set cmd.ActiveConn

36、ection = conn cmd.CommandText = "SELECT * from fenlei" rs.CursorLocation = adUseClient rs.Open cmd, , adOpenStatic, adLockBatchOptimistic（2）對于SQL Sever類型數據庫，連接方法為： driver=SQL Sever sever=SQL Sever Name(由安裝SQL Sever時確定) database=Database Name(安裝于SQL Sever中的數據庫名稱) uid=User ID(用戶名) pwd=Passwo

37、rd(密碼)（3）dBase部分 driver=Microsoft dBase Driver(*.dbf) dbq=Database Path(不包含完整的路徑)在使用dBase數據庫時，設定dbq時并不需要包含完整的路徑，如果包含，將導致程序將整個目錄下的所有數據庫看成是一個數據庫，而每個dbase則被程序認為是一個表。（4）Excel部分 driver=Microsoft Excel Driver(*.xls) dbq=Full Database Path(包含完整的路徑)在Excel中，每一個工作表均被認為是一個數據庫的表，（5）文本部分 driver=Microsoft Text Dr

38、iver(*.xls;*.csv) dbq=Database Path(不包含完整的路徑)不需要設定路徑，否則整個路徑下的所有文本文件將被看成一個數據庫，而每一個文本文件均本程序認為是一個表。43 用VBA編程實現參數化設計 431 編程過程(1)分類垃圾箱共有8個分箱，如圖4-2所示,這八個分箱的圖 4-2 分類垃圾箱結構圖尺寸各不相同，在VBA程序中建立八個模塊，分別為a1、a2、a3、a4、a5、a6、a7、a8,各個模塊的區別是寬度和定位基點不同,箱體的細部特征有角鋼、角鋼與鋼板的焊接點、為加強剛度而加工的凹槽，對各點首先建立坐標關系。各個坐標點的設定應該以基點為基準，這樣，當基點變化

39、時，其他各點隨之改變，整個圖形就成為一個模塊，不必依次改變所有坐標點，不僅省去了修改時間，而且還克服了修改中出現錯誤的問題。對于建立起他的模塊只需改變相應的參數，如垃圾組成、箱體高度、長度，就可以實現整個圖形的輸出。如下列各點（二維點）都以1點為基點：ax1 = bp(0) + 27： ay1 = bp(1) + 30ax2 = ax1： ay2 = ay1 + 1480 ax3 = ax1 + x1 * 5000 54： ay3 = ay1 + 1480 ax4 = ax1 + x1 * 5000 54： ay4 = ay1分類垃圾箱的其他非變參數部件，包括：底部平臺、吊鉤、加強筋、撞鎖、標

40、題欄和文字，分別建立各自的模塊。各個模塊的建立應根據具體的需求，對于程序結構復雜或龐大的VBA程序，將主程序分成模塊，這樣便于以后的修改，某一處出現問題，可以很快的找到出現問題的地方；對于與主程序聯系比較緊密的編程語句，則不必建立模塊，否則與主程序的數據交換過多可能出現錯誤，而且一旦出現錯誤也不能及時發現。432 VBA編程語句分類垃圾箱由基本圖素組成，如點、線、圓、圓弧等，基本命令包括CreateTypedArray、Blocks.Add、blockobj.AddLine、blockobj.AddArc、block.AddCircle、Mirror、Copy等。在Auto CAD中插入圖素的

41、方式有Modelspace和Block，本設計由各個模塊組成，因此插入圖素的方式為Block.Add方式，每一個模塊都是一個圖塊。本設計中涉及的各項圖素及命令應用如下：（1）圖層在Auto CAD中的作用非常重要，一張優秀的Auto CAD工程圖首要的是線型正確、清楚，設置不同類型圖層的顏色，可以清楚地觀察圖形，及時發現工程圖中的問題，如線寬是否合適、線型是否正確等。本設計的第一步就是設置好圖層，結果證明，不僅在程序出現問題時便于調試，及時發現問題，而且圖形直觀易讀，效果很好。本設計圖層設置如下，通過在程序中調用各個圖層，可以很方便的設置當前圖層。Public Sub culayer()Set

42、 layerobj1 = ThisDrawing.Layers.Add("粗實線") layerobj1.color = acRed ThisDrawing.ActiveLayer = layerobj1End SubPublic Sub xilayer()Set layerobj2 = ThisDrawing.Layers.Add("細實線") layerobj2.color = acBlue ThisDrawing.ActiveLayer = layerobj2End SubPublic Sub bklayer()Set layerobj3 = Th

43、isDrawing.Layers.Add("邊框") layerobj.color = acGreen ThisDrawing.ActiveLayer = layerobj3End Sub（2）本設計插入圖素的方式為圖塊Block，各種點、線、圓、圓弧等都通過Block.Add屬性控制Auto CAD圖形輸出，由于本設計由多個模塊組成，每個模塊都有獨立的圖塊，所有為了使這些圖塊不發生沖突，必須正確設定圖塊。通過本次畢業設計，對Block的操作得出一些結論：首先，調用Block超過一次的，Block的名稱必須不同，否則由于前后兩次調用Block名稱相同，一些變量因在第一次調用

44、時已經賦值，當再次調用時其值就是第一次調用時的值，與預想的值不同，極容易出錯。為解決這一問題，可在命名加上后綴CStr(Fix(當前X或Y坐標)，這個函數的意義是先將當前X坐標轉換成整數，然后轉換成字符形式，這樣每一次函數調用Block的名稱都不同，在實際應用中通過這樣的設定程序沒出過這方面的問題，這一點非常重要；再次，Block的屬性有插入點、X軸比例系數、Y軸比例系數和旋轉角度，這些可以根據實際的需要具體設定，當不需要設定這方面參數時可將其設為默認值（1，1，0）。（3）設置好了圖層和Block，就可以創建各種圖素，點是最基本圖素，其創建如下。ax1 = bp(0)： ay1 = bp(1

45、) utilObj.CreateTypedArray p1, vbDouble, ax1, ay1, 0（4）對于已經創建的點，可在兩點見創建直線。Set line1 = blockobj.AddLine(p1, p2)（5）圓包括兩個參數：半徑和圓心。Set cir = blockobj.AddCircle(p1, r)當繪制過空間三點的圓時，首先要解出圓心與半徑，以下程序可以求解過空間三點的圓的圓心：Function centerPt(pt1, pt2, pt3 As Variant) As Variant Dim line1, line2, line3, line4 As AcadLin

46、e 'define 4 lines 'draw 2 lines for assistance Set line1 = ThisDrawing.ModelSpace.AddLine(pt1, pt2) Set line2 = ThisDrawing.ModelSpace.AddLine(pt2, pt3) 'defince 2 line center points Dim lcenPt1, lcenPt2 As Variant Dim util As Object Set util = ThisDrawing.Utility 'define an object t

47、o create points util.CreateTypedArray lcenPt1, vbDouble, (pt1(0) + pt2(0) / 2, (pt1(1) + pt2(1) / 2, 0 util.CreateTypedArray lcenPt2, vbDouble, (pt2(0) + pt3(0) / 2, (pt2(1) + pt3(1) / 2, 0 Dim angle1, angle2 As Double 'define 2 angles 'calculate the angles angle1 = ThisDrawing.Utility.Angle

48、FromXAxis(pt1, pt2) angle2 = ThisDrawing.Utility.AngleFromXAxis(pt2, pt3) 'create two middle perpendiculary linesSet line3=ThisDrawing.ModelSpace.AddLine(lcenPt1,ThisDrawing.Utility.PolarPoint(lcenPt1, angle1 + 3.1415926536 / 2, 100)Set line4=ThisDrawing.ModelSpace.AddLine(lcenPt4,ThisDrawing.Ut

49、ility.PolarPoint(lcenPt4, angle4 + 3.1415926536 / 2, 100) 'get center point as two middle perpendiculary lines' intersaction centerPt = line4.IntersectWith(line3, acExtendBoth) 'delete 4 "assistance" lines line1.Delete line2.Delete line3.Delete line4.DeleteEnd Function（6）圓弧的參數包

50、括：中心、半徑、起點坐標、終點坐標。st1 = ThisDrawing.Utility.AngleFromXAxis(c1, p1)ed1 = ThisDrawing.Utility.AngleFromXAxis(c1, p2) Set ar1 = blockobj.AddArc(c1, r, st1, ed1)當只有中心與起點、終點的坐標，而距離未知時，要用到兩點間距離函數，實參為空間兩點，程序如下: Function distance(sp As Variant, ep As Variant) As Double Dim x As Double Dim y As Double Dim z

51、As Double x = sp(0) - ep(0) y = sp(1) - ep(1) distance = Sqr(x 2) + (y 2)End Function第五章 部分標準件的自動化繪圖從零件的結構形狀特點分析，任何零件圖形總是可以分解為一些基本圖形，反之，各種零件也可以通過基本圖形的有機組合來生成。零件圖的生成主要應用了一下幾種方法：（1）基本圖素構成法此方法將零件圖看成由最基本的圖素（如線、圓弧、圓等）構造而成，這些基本的圖素可由Auto CAD的繪圖命令產生（如PLINE、ARC、CIRCLE等）圖形的生成過程與手工作圖類似：選定圖形的基點，由已知的參數確定各線段的交點、切

52、點、圓心等相關數據。這種方法是最基本的方法，適用于簡單零件的繪制，對于圖形結構復雜的圖形，編程定點繁瑣，程序冗長。（2）變參圖形程序設計法這種方法是對零件編制一個變參函數。在垃圾轉運站CAD系統中，調用規格已經系列化、尺寸參數已經標準化的零件（如螺栓、銷等）時，便常常使用這種方法。根據國標的規定，以其標準件參數（如螺栓共稱直徑）為形參，其他尺寸則從專門的數據庫文件中檢索，建立變參圖形子函數。零件圖中用到這些標準件時，只需調用這些子函數。（2）形狀特性習拼合法在機械圖中，盡管許多零件的整體形狀不同，但有些局部形狀是相似的。如圖43所示的幾種螺釘，螺桿部分是相似的，這些圖43 幾種常用的螺釘相對獨

53、立的形狀結構被稱為形狀特性，從圖形的角度看，形狀特性也完全可以理解為子圖。從圖43所示的幾種螺釘，可以分離出44所示的形狀特征。形體特征拼合法就是用一些形狀特征拼合機械圖。如圖44所示的形狀特征，用（a）和（b）、（c）、（d）可以拼合各種型號的六角頭螺栓并且其中只需要確定少量幾個參數。圖44 構成螺釘的形狀特性形體特征拼合法多用于形狀結構多邊的機械零件，每個形狀特征的參數并不多，用戶所做的工作就是以交互式或者程序調用方式，將若干形狀特征拼合成為零件圖。通過參數化繪圖，垃圾轉運站CAD系統自動生成零件圖。生成零件圖的流程圖如圖45所示。NYY從VBA對話框獲取主參數開 始檢索零件基本參數零件工

54、程圖用于裝配圖初始化繪圖環境生成零件圖結 束取默認值確定繪圖比例自定義圖框？圖45 零件圖生成流程51 各種型號螺栓的自動化繪圖 本次畢業設計標準件部分的螺栓型號包括：六角頭絞制孔用螺栓（GB27-88）、六角頭螺桿帶孔螺栓（GB31.1-88）、A型和B型六角頭螺桿帶孔螺栓（GB31.2-88）、六角頭螺桿帶孔螺栓細牙（GB31.3-88）、六角頭螺栓（GB5780-86）、六角頭螺栓全螺紋（GB5781-86）、六角頭螺栓（GB5782-86）、六角頭螺栓全螺紋（GB5783-86）、六角頭螺栓細桿（GB5784-86）、六角頭螺栓細螺牙（GB5785-86）和六角頭螺栓細牙全螺紋（GB5

55、786-86），由于各種螺栓有很多共性，所以在建立螺栓自動化繪圖時可以采用上述方法，簡化螺栓程序。5.1.1 螺栓數據庫由于螺栓的型號較多，而且各自的數據項目同樣很多，因此有必要建立螺栓數據庫，這樣既便于數據的管理，又可以在需要的時候修改數據庫，建立符合企業自身的數據庫是管理圖形參數的一個必然趨勢。本設計的采用的數據庫類型為Microsoft Acess 2003,通過ADO(Microsoft ActiveX DataObjects)方法來存儲數據，它的優點是易于使用、高速、低內存支出與占用磁盤的空間小。ADO是一個對象模型，它結合了OLE DB易于使用的特性以及它包含了所有可能被OLE DB標準接口描述的數據類型，同時