【正文】 間的關(guān)系，然后再調(diào)用一系列繪圖語(yǔ)句來(lái)描述圖形的拓?fù)潢P(guān)系。在確定圖形的參數(shù)時(shí)，應(yīng)從以下幾個(gè)方面綜合考慮：（1）要保證圖形參數(shù)是唯一確定的，可以對(duì)確定圖形的各個(gè)點(diǎn)進(jìn)行標(biāo)注，再確定用各點(diǎn)繪圖的順序；（2）參數(shù)變量的名稱(chēng)盡量與工程中所用的一致；（3）在確定圖形的基礎(chǔ)上，參數(shù)應(yīng)該盡量的少。數(shù)據(jù)庫(kù)是數(shù)據(jù)以一定物理結(jié)構(gòu)和邏輯結(jié)構(gòu)存儲(chǔ)的文件，可以是具有一定格式的文本文件，也可以是某個(gè)數(shù)據(jù)庫(kù)，如Foxpro、Access等，這些數(shù)據(jù)庫(kù)可以通過(guò)高級(jí)語(yǔ)言，如C++、VB、Delphi等，使用SQL（數(shù)據(jù)查詢(xún)語(yǔ)言）方便的實(shí)現(xiàn)數(shù)據(jù)庫(kù)的查詢(xún)、維護(hù)功能。dbq= amp。4．3 用VBA編程實(shí)現(xiàn)參數(shù)化設(shè)計(jì) 4．3．1 編程過(guò)程(1)分類(lèi)垃圾箱共有8個(gè)分箱，如圖42所示,這八個(gè)分箱的圖 42 分類(lèi)垃圾箱結(jié)構(gòu)圖尺寸各不相同，在VBA程序中建立八個(gè)模塊，分別為aaaaaaaa8,各個(gè)模塊的區(qū)別是寬度和定位基點(diǎn)不同,箱體的細(xì)部特征有角鋼、角鋼與鋼板的焊接點(diǎn)、為加強(qiáng)剛度而加工的凹槽，對(duì)各點(diǎn)首先建立坐標(biāo)關(guān)系。各個(gè)模塊的建立應(yīng)根據(jù)具體的需求，對(duì)于程序結(jié)構(gòu)復(fù)雜或龐大的VBA程序，將主程序分成模塊，這樣便于以后的修改，某一處出現(xiàn)問(wèn)題，可以很快的找到出現(xiàn)問(wèn)題的地方；對(duì)于與主程序聯(lián)系比較緊密的編程語(yǔ)句，則不必建立模塊，否則與主程序的數(shù)據(jù)交換過(guò)多可能出現(xiàn)錯(cuò)誤，而且一旦出現(xiàn)錯(cuò)誤也不能及時(shí)發(fā)現(xiàn)。本設(shè)計(jì)的第一步就是設(shè)置好圖層，結(jié)果證明，不僅在程序出現(xiàn)問(wèn)題時(shí)便于調(diào)試，及時(shí)發(fā)現(xiàn)問(wèn)題，而且圖形直觀易讀，效果很好。為解決這一問(wèn)題，可在命名加上后綴CStr(Fix(當(dāng)前X或Y坐標(biāo)))，這個(gè)函數(shù)的意義是先將當(dāng)前X坐標(biāo)轉(zhuǎn)換成整數(shù)，然后轉(zhuǎn)換成字符形式，這樣每一次函數(shù)調(diào)用Block的名稱(chēng)都不同，在實(shí)際應(yīng)用中通過(guò)這樣的設(shè)定程序沒(méi)出過(guò)這方面的問(wèn)題，這一點(diǎn)非常重要；再次，Block的屬性有插入點(diǎn)、X軸比例系數(shù)、Y軸比例系數(shù)和旋轉(zhuǎn)角度，這些可以根據(jù)實(shí)際的需要具體設(shè)定，當(dāng)不需要設(shè)定這方面參數(shù)時(shí)可將其設(shè)為默認(rèn)值（1，1，0）。Set cir = (p1, r)當(dāng)繪制過(guò)空間三點(diǎn)的圓時(shí)，首先要解出圓心與半徑，以下程序可以求解過(guò)空間三點(diǎn)的圓的圓心：Function centerPt(pt1, pt2, pt3 As Variant) As Variant Dim line1, line2, line3, line4 As AcadLine 39。define an object to create points lcenPt1, vbDouble, (pt1(0) + pt2(0)) / 2, (pt1(1) + pt2(1)) / 2, 0 lcenPt2, vbDouble, (pt2(0) + pt3(0)) / 2, (pt2(1) + pt3(1)) / 2, 0 Dim angle1, angle2 As Double 39。get center point as two middle perpendiculary lines39。零件圖的生成主要應(yīng)用了一下幾種方法：（1）基本圖素構(gòu)成法此方法將零件圖看成由最基本的圖素（如線(xiàn)、圓弧、圓等）構(gòu)造而成，這些基本的圖素可由Auto CAD的繪圖命令產(chǎn)生（如PLINE、ARC、CIRCLE等）圖形的生成過(guò)程與手工作圖類(lèi)似：選定圖形的基點(diǎn)，由已知的參數(shù)確定各線(xiàn)段的交點(diǎn)、切點(diǎn)、圓心等相關(guān)數(shù)據(jù)。根據(jù)國(guó)標(biāo)的規(guī)定，以其標(biāo)準(zhǔn)件參數(shù)（如螺栓共稱(chēng)直徑）為形參，其他尺寸則從專(zhuān)門(mén)的數(shù)據(jù)庫(kù)文件中檢索，建立變參圖形子函數(shù)。從圖4—3所示的幾種螺釘，可以分離出4—4所示的形狀特征。通過(guò)參數(shù)化繪圖，垃圾轉(zhuǎn)運(yùn)站CAD系統(tǒng)自動(dòng)生成零件圖。本設(shè)計(jì)的采用的數(shù)據(jù)庫(kù)類(lèi)型為Microsoft Acess 2003,通過(guò)ADO(Microsoft ActiveX DataObjects)方法來(lái)存儲(chǔ)數(shù)據(jù)，它的優(yōu)點(diǎn)是易于使用、高速、低內(nèi)存支出與占用磁盤(pán)的空間小。do the connect to database driver= amp。 dbq 39。螺栓的選型如圖5—2所示，選擇尺寸如圖5—3所示。 銷(xiāo)的自動(dòng)化繪圖界面設(shè)計(jì)銷(xiāo)的自動(dòng)化繪圖界面設(shè)計(jì)采用一個(gè)對(duì)話(huà)框，通過(guò)選擇對(duì)話(huà)框中的參數(shù)，直接繪制標(biāo)準(zhǔn)螺栓，其界面如圖5—4所示。在機(jī)械設(shè)計(jì)過(guò)程中需要大量的計(jì)算，對(duì)于常用的部件，如V帶設(shè)計(jì)、軸的校核、軸承的選擇等，當(dāng)需要時(shí)要分別進(jìn)行計(jì)算、查機(jī)械手冊(cè)等，反復(fù)的計(jì)算不僅占用大量的時(shí)間，而且在繪圖過(guò)程中頻繁跳出繪圖環(huán)境，很容易將當(dāng)前的設(shè)計(jì)思路打斷。圖6—2 V帶基本參數(shù)的輸入圖6—3 V帶型號(hào)的選擇及計(jì)算圖6—4 V帶長(zhǎng)度選擇圖6—5 V帶根數(shù)計(jì)算圖6—6 V帶設(shè)計(jì)結(jié)果6．2 滾動(dòng)軸承設(shè)計(jì)計(jì)算滾動(dòng)軸承的設(shè)計(jì)計(jì)算與普通V帶的設(shè)計(jì)計(jì)算類(lèi)似，只需輸入必要的參數(shù)，包括載荷、軸承類(lèi)型、軸承轉(zhuǎn)速和所需的修正參數(shù)，軟件運(yùn)行過(guò)程如圖6—79。本次畢業(yè)設(shè)計(jì)共收集到V帶設(shè)計(jì)、軸承設(shè)計(jì)與校核等，現(xiàn)在可以通過(guò)菜單調(diào)用這些用程序，包括：V帶傳動(dòng)、標(biāo)準(zhǔn)件疲勞強(qiáng)度試驗(yàn)、齒輪的范成、導(dǎo)桿機(jī)構(gòu)的運(yùn)動(dòng)分析、動(dòng)壓滑動(dòng)軸承設(shè)計(jì)、滾動(dòng)軸承、過(guò)盈聯(lián)結(jié)、滾動(dòng)軸承、減速器輸出軸設(shè)計(jì)、鍵聯(lián)結(jié)、鉸鏈四桿機(jī)構(gòu)運(yùn)動(dòng)、鏈傳動(dòng)、六桿機(jī)構(gòu)運(yùn)動(dòng)分析、螺栓聯(lián)結(jié)、螺栓連接受力分析、普通圓柱螺旋拉伸彈簧、曲柄滑塊、N3型圓柱扭轉(zhuǎn)螺旋彈簧、四桿機(jī)構(gòu)類(lèi)型判斷、蝸桿傳動(dòng)、直齒圓柱齒輪傳動(dòng)設(shè)計(jì)、直齒圓柱齒輪傳動(dòng)設(shè)計(jì)計(jì)算等應(yīng)用程序，軟件的界面如圖6—1所示，由于所涉及的項(xiàng)目較多，以下只對(duì)有代表性的應(yīng)用程序進(jìn)行介紹。 打開(kāi)文字流檔案Set ts = (ForReading)s = Do While (1) s = stoa (s) If sa(p) = key Then Exit Do End IfLoopEnd Sub5．3 立體法蘭盤(pán)的自動(dòng)化繪圖二維法蘭盤(pán)的繪制較為簡(jiǎn)單，本設(shè)計(jì)最大的特點(diǎn)就是利用三維實(shí)體的建立與布爾運(yùn)算，主要源程序如下:Set Outercylinder = (center, OuterRadius, height)Set InnerCylinder = (center, InnerRadius, height) ReDim holes(HolesNumber)For i = 0 To HolesNumber 1 Set holes(i) = (holecenter, HoleRadius, height) holes(i).Rotate3D center, center2, 2 * / HolesNumber * (i + 1) acSubtraction, holes(i) Next i acSubtraction, InnerCylinder5．4 冷拔無(wú)縫鋼管的自動(dòng)化繪圖冷拔無(wú)縫鋼管（GB67821986）的設(shè)計(jì)與螺栓的設(shè)計(jì)類(lèi)似，其特點(diǎn)就是數(shù)據(jù)量很大，通過(guò)建立數(shù)據(jù)庫(kù)，在程序中調(diào)用數(shù)據(jù)，然后在Auto CAD中直接繪圖。5．2 銷(xiāo)的自動(dòng)化繪圖銷(xiāo)是常用的零件之一，其繪制程序相對(duì)簡(jiǎn)單，數(shù)據(jù)量較少，但本設(shè)計(jì)最大的特點(diǎn)就是：在VBA中使用了FSO功能來(lái)處理文件及文字流。operate in table btype 39。 。螺栓的部分?jǐn)?shù)據(jù)庫(kù)如圖5—1所示。NYY從VBA對(duì)話(huà)框獲取主參數(shù)開(kāi) 始檢索零件基本參數(shù)零件工程圖用于裝配圖初始化繪圖環(huán)境生成零件圖結(jié) 束取默認(rèn)值確定繪圖比例自定義圖框？圖4—5 零件圖生成流程5．1 各種型號(hào)螺栓的自動(dòng)化繪圖 本次畢業(yè)設(shè)計(jì)標(biāo)準(zhǔn)件部分的螺栓型號(hào)包括：六角頭絞制孔用螺栓（GB2788）、六角頭螺桿帶孔螺栓（）、A型和B型六角頭螺桿帶孔螺栓（）、六角頭螺桿帶孔螺栓細(xì)牙（）、六角頭螺栓（GB578086）、六角頭螺栓—全螺紋（GB578186）、六角頭螺栓（GB578286）、六角頭螺栓—全螺紋（GB578386）、六角頭螺栓—細(xì)桿（GB578486）、六角頭螺栓—細(xì)螺牙（GB578586）和六角頭螺栓—細(xì)牙—全螺紋（GB578686），由于各種螺栓有很多共性，所以在建立螺栓自動(dòng)化繪圖時(shí)可以采用上述方法，簡(jiǎn)化螺栓程序。如圖4—4所示的形狀特征，用（a）和（b）、（c）、（d）可以拼合各種型號(hào)的六角頭螺栓并且其中只需要確定少量幾個(gè)參數(shù)。（2）形狀特性習(xí)拼合法在機(jī)械圖中，盡管許多零件的整體形狀不同，但有些局部形狀是相似的。（2）變參圖形程序設(shè)計(jì)法這種方法是對(duì)零件編制一個(gè)變參函數(shù)。delete 4 assistance lines End Function（6）圓弧的參數(shù)包括：中心、半徑、起點(diǎn)坐標(biāo)、終點(diǎn)坐標(biāo)。calculate the angles angle1 = (pt1, pt2) angle2 = (pt2, pt3