【正文】 圖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ì)算類似，只需輸入必要的參數(shù)，包括載荷、軸承類型、軸承轉(zhuǎn)速和所需的修正參數(shù)，軟件運(yùn)行過程如圖6—79。本次畢業(yè)設(shè)計(jì)共收集到V帶設(shè)計(jì)、軸承設(shè)計(jì)與校核等，現(xiàn)在可以通過菜單調(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)軸承、過盈聯(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)類型判斷、蝸桿傳動(dòng)、直齒圓柱齒輪傳動(dòng)設(shè)計(jì)、直齒圓柱齒輪傳動(dòng)設(shè)計(jì)計(jì)算等應(yīng)用程序，軟件的界面如圖6—1所示，由于所涉及的項(xiàng)目較多，以下只對(duì)有代表性的應(yīng)用程序進(jìn)行介紹。在機(jī)械設(shè)計(jì)過程中需要大量的計(jì)算，對(duì)于常用的部件，如V帶設(shè)計(jì)、軸的校核、軸承的選擇等，當(dāng)需要時(shí)要分別進(jìn)行計(jì)算、查機(jī)械手冊(cè)等，反復(fù)的計(jì)算不僅占用大量的時(shí)間，而且在繪圖過程中頻繁跳出繪圖環(huán)境，很容易將當(dāng)前的設(shè)計(jì)思路打斷。 打開文字流檔案Set ts = (ForReading)s = Do While (1) s = stoa (s) If sa(p) = key Then Exit Do End IfLoopEnd Sub5．3 立體法蘭盤的自動(dòng)化繪圖二維法蘭盤的繪制較為簡(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 冷拔無縫鋼管的自動(dòng)化繪圖冷拔無縫鋼管（GB67821986）的設(shè)計(jì)與螺栓的設(shè)計(jì)類似，其特點(diǎn)就是數(shù)據(jù)量很大，通過建立數(shù)據(jù)庫，在程序中調(diào)用數(shù)據(jù)，然后在Auto CAD中直接繪圖。 銷的自動(dòng)化繪圖界面設(shè)計(jì)銷的自動(dòng)化繪圖界面設(shè)計(jì)采用一個(gè)對(duì)話框，通過選擇對(duì)話框中的參數(shù)，直接繪制標(biāo)準(zhǔn)螺栓，其界面如圖5—4所示。5．2 銷的自動(dòng)化繪圖銷是常用的零件之一，其繪制程序相對(duì)簡(jiǎn)單，數(shù)據(jù)量較少，但本設(shè)計(jì)最大的特點(diǎn)就是：在VBA中使用了FSO功能來處理文件及文字流。螺栓的選型如圖5—2所示，選擇尺寸如圖5—3所示。operate in table btype 39。 dbq 39。 。do the connect to database driver= amp。螺栓的部分?jǐn)?shù)據(jù)庫如圖5—1所示。本設(shè)計(jì)的采用的數(shù)據(jù)庫類型為Microsoft Acess 2003,通過ADO(Microsoft ActiveX DataObjects)方法來存儲(chǔ)數(shù)據(jù)，它的優(yōu)點(diǎn)是易于使用、高速、低內(nèi)存支出與占用磁盤的空間小。NYY從VBA對(duì)話框獲取主參數(shù)開 始檢索零件基本參數(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)化螺栓程序。通過參數(shù)化繪圖，垃圾轉(zhuǎn)運(yùn)站CAD系統(tǒng)自動(dòng)生成零件圖。如圖4—4所示的形狀特征，用（a）和（b）、（c）、（d）可以拼合各種型號(hào)的六角頭螺栓并且其中只需要確定少量幾個(gè)參數(shù)。從圖4—3所示的幾種螺釘，可以分離出4—4所示的形狀特征。（2）形狀特性習(xí)拼合法在機(jī)械圖中，盡管許多零件的整體形狀不同，但有些局部形狀是相似的。根據(jù)國(guó)標(biāo)的規(guī)定，以其標(biāo)準(zhǔn)件參數(shù)（如螺栓共稱直徑）為形參，其他尺寸則從專門的數(shù)據(jù)庫文件中檢索，建立變參圖形子函數(shù)。（2）變參圖形程序設(shè)計(jì)法這種方法是對(duì)零件編制一個(gè)變參函數(shù)。零件圖的生成主要應(yīng)用了一下幾種方法：（1）基本圖素構(gòu)成法此方法將零件圖看成由最基本的圖素（如線、圓弧、圓等）構(gòu)造而成，這些基本的圖素可由Auto CAD的繪圖命令產(chǎn)生（如PLINE、ARC、CIRCLE等）圖形的生成過程與手工作圖類似：選定圖形的基點(diǎn)，由已知的參數(shù)確定各線段的交點(diǎn)、切點(diǎn)、圓心等相關(guān)數(shù)據(jù)。delete 4 assistance lines End Function（6）圓弧的參數(shù)包括：中心、半徑、起點(diǎn)坐標(biāo)、終點(diǎn)坐標(biāo)。get center point as two middle perpendiculary lines39。calculate the angles angle1 = (pt1, pt2) angle2 = (pt2, pt3) 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。draw 2 lines for assistance Set line1 = (pt1, pt2) Set line2 = (pt2, pt3) 39。Set cir = (p1, r)當(dāng)繪制過空間三點(diǎn)的圓時(shí)，首先要解出圓心與半徑，以下程序可以求解過空間三點(diǎn)的圓的圓心：Function centerPt(pt1, pt2, pt3 As Variant) As Variant Dim line1, line2, line3, line4 As AcadLine 39。ax1 = bp(0)： ay1 = bp(1) p1, vbDouble, ax1, ay1, 0（4）對(duì)于已經(jīng)創(chuàng)建的點(diǎn)，可在兩點(diǎn)見創(chuàng)建直線。為解決這一問題，可在命名加上后綴CStr(Fix(當(dāng)前X或Y坐標(biāo)))，這個(gè)函數(shù)的意義是先將當(dāng)前X坐標(biāo)轉(zhuǎn)換成整數(shù)，然后轉(zhuǎn)換成字符形式，這樣每一次函數(shù)調(diào)用Block的名稱都不同，在實(shí)際應(yīng)用中通過這樣的設(shè)定程序沒出過這方面的問題，這一點(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）。Public Sub culayer()Set layerobj1 = (粗實(shí)線) = acRed = layerobj1End SubPublic Sub xilayer()Set layerobj2 = (細(xì)實(shí)線) = acBlue = layerobj2End SubPublic Sub bklayer()Set layerobj3 = (邊框) = acGreen = layerobj3End Sub（2）本設(shè)計(jì)插入圖素的方式為圖塊Block，各種點(diǎn)、線、圓、 CAD圖形輸出，由于本設(shè)計(jì)由多個(gè)模塊組成，每個(gè)模塊都有獨(dú)立的圖塊，所有為了使這些圖塊不發(fā)生沖突，必須正確設(shè)定圖塊。本設(shè)計(jì)的第一步就是設(shè)置好圖層，結(jié)果證明，不僅在程序出現(xiàn)問題時(shí)便于調(diào)試，及時(shí)發(fā)現(xiàn)問題，而且圖形直觀易讀，效果很好。在Auto CAD中插入圖素的方式有Modelspace和Block，本設(shè)計(jì)由各個(gè)模塊組成，每一個(gè)模塊都是一個(gè)圖塊。各個(gè)模塊的建立應(yīng)