【正文】 圖 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 If Loop End Sub 5． 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, InnerCylinder 5． 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 2020,通過 ADO(Microsoft ActiveX DataObjects)方法來存儲(chǔ)數(shù)據(jù)，它的優(yōu)點(diǎn)是易于使用、高速、低內(nèi)存支出與占用磁盤的空間小。 圖 4— 5 零件圖生成流程 從 VBA對(duì)話框獲取主參數(shù) 開 始 檢索零件基本參數(shù) 零件工程圖 用于裝配圖 初始化繪圖環(huán)境 生成零件圖 結(jié) 束 取默認(rèn)值 確定繪圖比例 自定義圖框？ Y Y N 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 = layerobj1 End Sub Public Sub xilayer() Set layerobj2 = (細(xì)實(shí)線 ) = acBlue = layerobj2 End Sub Public Sub bklayer() Set layerobj3 = (邊框 ) = acGreen = layerobj3 End Sub （ 2）本設(shè)計(jì)插入圖素的方式為圖塊 Block，各種點(diǎn)、線、圓、圓弧等都通過 屬性控制 Auto 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è)模塊都是一