【文章內(nèi)容簡介】 線寬，是對粗實線的命令，是為了區(qū)分粗實線和細(xì)實線的重要環(huán)節(jié)。下面可以舉一例子說明在VB中如何設(shè)置者幾個參數(shù)。如將圖層一設(shè)置為粗實線層，顏色設(shè)為白色：Dim layer1 As AcadLayerSet layer1 = (粗實線層) = acLnWt080 39。粗實線的線寬 = acWhite 39。粗實線的顏色(2) 畫中心線； 首先加載中心線，選擇所需的線型，先判斷程序中是否已經(jīng)存在該線型，如不存在，則需在加載中查找所需的線型： On Error Resume Next Dim entry As AcadLineType Dim found As Boolean found = False For Each entry In If StrComp(, centerx2, 1) = 0 Then found = True Exit For End If Next If Not (found) Then centerx2, = centerx2然后進(jìn)入中心線層，在其中畫中心線。首先定義原始參數(shù)，找到兩中心線的交點，然后輸入兩條中心線的起點和終點坐標(biāo)，最后分別連接各自的起點與終點，繪制中心線。 (3) 創(chuàng)建并編輯優(yōu)化多段線，形成齒輪剖面輪廓；創(chuàng)建多段線可用AddLightWeightPolyline方法和AddPolyline方法。其中AddPolyline方法可以創(chuàng)建二維或三維多段線，其參數(shù)是一個多段線頂點的三維坐標(biāo)矩陣。而AddLightWeightPolyline方法能創(chuàng)建而為優(yōu)化多段線，它的參數(shù)是優(yōu)化多段線頂點的二維坐標(biāo)矩陣。本段程序需要創(chuàng)建優(yōu)化多段線，所以采用AddLightWeightPolyline方法。編輯多段線的常用方法和屬性如表2所示。表2 編輯多段線的常用方法和屬性方法和屬性描述方法AddVertex增加一個頂點（只適用于優(yōu)化多段線）Explode炸開多段線GetBulge返回某給定序號段的凸度GetWidth返回某一段的線寬Offset對多段線執(zhí)行偏移操作SetWidth設(shè)置給定序號段的開始線寬和結(jié)束線寬SetBulge設(shè)置給定序號段的凸度屬性Closed封閉多段線 繪制零件圖時，對于外框和截面都可以用多段線命令來完成。 (4) 創(chuàng)建圖案填充對象；圖案填充可以使用某種圖案來填充圖形中的指定區(qū)域。創(chuàng)建圖案填充區(qū)域的過程通常是先用AddHatch方法創(chuàng)建Hatch對象，然后確定該區(qū)域的邊界，最后執(zhí)行Evaluate方法，先計算后才能顯示。具體步驟如下：首先創(chuàng)建Hatch對象。依次設(shè)定圖案類型、圖案名稱、關(guān)聯(lián)性和圖案填充對象類型這4個參數(shù)。其次定義區(qū)域邊界。區(qū)域邊界可以是直線、弧、圓、二維多段線、橢圓、樣條曲線和面域，以及它們的任意組合?？梢赃\(yùn)用Hatch對象的AppendOuterLoop方法定義圖案填充的最外面的范圍。最后編輯圖案填充。用戶可以更改現(xiàn)有填充圖案的角度或間距，或者將其替換為實體填充或AutoCAD提供的預(yù)定義圖案。 (5) 創(chuàng)建并編輯尺寸標(biāo)注。標(biāo)注可以顯示對象的形位測量值、對象之間的距離或角度，以及X坐標(biāo)或Y坐標(biāo)。AutoCAD提供3中基本的標(biāo)注類型：線性標(biāo)注、直徑（半徑）標(biāo)注和角度標(biāo)注。線型標(biāo)注分為用AddDimAligned方法的對齊式標(biāo)注、用AddDimRotated方法的旋轉(zhuǎn)式標(biāo)注和用AddDimOrdinate方法的坐標(biāo)式標(biāo)注；徑向標(biāo)注分為用AddDimDiametric方法的直徑標(biāo)注和用AddDimRadial方法的半徑標(biāo)注；以及角度標(biāo)注，使用AddDimAngular方法。3．8 應(yīng)用實例設(shè)計一個標(biāo)準(zhǔn)直齒圓柱齒輪減速器中的齒輪結(jié)構(gòu)。已知傳遞功率40 kW，主動齒輪轉(zhuǎn)速960 r／min，對稱布置，載荷穩(wěn)定。(1) 選擇齒輪材料。選擇輸入齒輪材料為40Cr，表面淬火，硬度48HRC；輸出齒輪材料為40Cr，表面淬火，硬度48HRC。輸入主動齒輪軸徑Φ20mm，聯(lián)接平鍵尺寸為6mm，為3mm，主動齒輪齒數(shù)為23，以及上述已知參數(shù)，例如按齒面接觸疲勞強(qiáng)度設(shè)計。(2) 單擊“按齒面接觸疲勞強(qiáng)度設(shè)計”框架中的“計算”按鈕，輸出兩齒輪的接觸應(yīng)力和許用應(yīng)力。(3) 單擊“校核”按鈕，輸出兩齒輪的幾何尺寸參數(shù)，見表3，然后系統(tǒng)根據(jù)計算結(jié)果，驗算彎曲應(yīng)力，得彎曲強(qiáng)度足夠。表3 輸出的齒輪幾何參數(shù)幾何參數(shù)主動齒輪從動齒輪分度圓直徑66222齒根圓直徑齒頂圓直徑75228齒輪寬度6159模數(shù)33(4) 單擊“繪圖”按鈕，繪制出如圖3所示的主動齒輪的結(jié)構(gòu)。4 軸的參數(shù)化設(shè)計4．1 系統(tǒng)用戶界面軸的參數(shù)化設(shè)計步驟基本與齒輪相同，如圖4是軸參數(shù)化設(shè)計用戶界面。界面中有一圖像控件，在其中載入一幅軸的基本結(jié)構(gòu)圖，其中所標(biāo)的未知量分別與下面的未知參數(shù)相對應(yīng)，方便用戶理解軸的各個參數(shù)。軸的基本參數(shù)可由用戶直接輸入，軸直徑、軸直徑、長度、長度、長度、鍵槽寬、鍵槽深、鍵槽長、軸上偏差、軸下偏差等，都是以文本框的形式顯示，以告知用戶這些量是軸的基本參數(shù)，需要用戶自行輸入。界面中的3個按鈕分別對應(yīng)繪圖、清除和退出。單擊繪圖按鈕，系統(tǒng)進(jìn)入繪圖功能。與齒輪繪圖一樣，系統(tǒng)首先調(diào)用AutoCAD，以語圖3 主動齒輪結(jié)構(gòu)句Set AcadApp = CreateObject()實現(xiàn)，對AutoCAD進(jìn)行初始化設(shè)計，如設(shè)置窗體的位置、長度、寬度、以及初始狀態(tài)。其次系統(tǒng)設(shè)置圖層、顏色、線型和線寬，在中心線層中繪制中心線。然后利用多段線命令，完成軸的基本輪廓，在軸的截面圖中創(chuàng)建圖案填充對象。最后對其進(jìn)行尺寸標(biāo)注，完成軸的結(jié)構(gòu)繪制。4．2 應(yīng)用實例 (1) 輸入軸直徑為40mm，為35mm，長度為80mm，為40mm，為40mm，鍵槽寬為12mm，鍵槽深為5mm，鍵槽長為40mm，軸下偏差。(2) 單擊“繪圖”按鈕，繪制出如圖5所示的軸的結(jié)構(gòu)。圖4 軸參數(shù)化設(shè)計用戶界面圖5 軸的結(jié)構(gòu)結(jié) 論以Visual Basic為開發(fā)工具，對AutoCAD進(jìn)行二次開發(fā)，實現(xiàn)了齒輪零件的參數(shù)化設(shè)計。實踐證明，充分利用面向?qū)ο蟮拈_發(fā)技術(shù)和AutoCAD及Windows資源，能夠開發(fā)出更適合本行業(yè)的應(yīng)用軟件，來實現(xiàn)零件的參數(shù)化設(shè)計，從而提高設(shè)計效率。通過本次畢業(yè)設(shè)計對減速器軟件開發(fā)、齒輪加工工藝以及VB編程對AutoCAD的二次開發(fā)進(jìn)行了學(xué)習(xí)，有一定的收獲和進(jìn)步。不過，對所設(shè)計的軟件離通用化還有很大的距離，將在今后的工作和學(xué)習(xí)中進(jìn)一步完善和提高。致 謝令人難忘的畢業(yè)設(shè)計將近尾聲，在這幾個月里我學(xué)到了不少的東西，也培養(yǎng)了我許多優(yōu)良的品質(zhì)。在這里，我學(xué)到了怎樣嚴(yán)格要求自己，怎樣時刻保持著飽滿的精神迎接一天的工作。我要特別感謝我的導(dǎo)師肖猛老師，給我這個學(xué)習(xí)的機(jī)會，讓我努力學(xué)習(xí)、研究與深造。同時他的學(xué)術(shù)思想、工作作風(fēng)，飽滿的熱情以及孜孜不倦的教書育人態(tài)度深深地觸動了我，是我人生中獲得的一筆寶貴財富。它對我的耐心幫助和精心指導(dǎo)貫穿著我畢業(yè)設(shè)計全過程。他不僅讓我學(xué)到許多理論知識，也提高了我獨(dú)立思考和解決問題的能力。最后，我再次真誠的感謝所有關(guān)心和幫助我的老師和同學(xué)，感謝你們對我關(guān)懷和支持！參 考 文 獻(xiàn)[1] 王華坤, 范元勛. 機(jī)械設(shè)計基礎(chǔ)[M]. 北京: 兵器工業(yè)出版社, 2001.[2] 機(jī)械設(shè)計基礎(chǔ)教研組. 精密機(jī)械設(shè)計課程設(shè)計指導(dǎo)書[M]. 南京: 南京理工大學(xué), 2007. [3] 唐嘉平. AutoCAD2006實用教程[M]. 北京：清華大學(xué)出版社, 2007. [4] 姚涵珍, 周桂英, 楚大慶. AutoCAD 2004交互工程繪圖及二次開發(fā)[M]. 北京: 機(jī)械工業(yè)出版社, 2004.[5] 王棟. Visual Basic程序設(shè)計實用教程[M]. 北京: 清華大學(xué)出版社, 2007.[6] 李政, 梁海英, 李昊. VBA應(yīng)用基礎(chǔ)與實例教程[M]. 北京: 國防工業(yè)出版社, 2005.[7] 佟士懋, 刑芳芳, 夏齊霄. AutoCAD ActiveX/VBA 二次開發(fā)技術(shù)基礎(chǔ)及應(yīng)用實例[M]. 北京: 國防工業(yè)出版社, 2006.[8] 王若慧. 基于VBA的AutoCAD二次開發(fā)及應(yīng)用實例[J]. 自動化技術(shù)與應(yīng)用, 2007, 26(9): 3033.[9] 彭觀明. 基于ActiveX的AutoCAD二次開發(fā)技術(shù)的應(yīng)用[J]. 泰山學(xué)院學(xué)報, 2006, 28(6): 3033.[10] 王建東, 李國昌. 用VB對AutoCAD進(jìn)行二次開發(fā)技術(shù)的研究[J]. 河北科技大學(xué)學(xué)報, 2006, 27(2): 169172.[11] 曾鴻飛, 張帆, 盧澤臨. AutoCAD VBA amp。 [M]. 北京: 中國電力出版社, 2008.[12] 程靜. AutoCAD工程繪圖及二次開發(fā)技術(shù)[M]. 北京: 國防工業(yè)出版社, 2008.[13] 張晉西. Visual Basic與AutoCAD二次開發(fā)[M]. 北京: 清華大學(xué)出版社, 2002.[14] 宋延杭. ObjectARX使用指南——AutoCAD二次開發(fā)[M]. 北京: 人民郵電出版社, 1999.[15] 賀煒. 計算機(jī)繪圖——CAXA電子圖板繪圖與AutoCAD二次開發(fā)[M]. 北京: 機(jī)械工業(yè)出版社, 2002.附錄A齒輪參數(shù)化設(shè)計程序Option ExplicitDim AcadApp As AcadApplicationDim AcadDoc As AcadDocumentPrivate UltimateStress_contact1 As Double 39。定義變量，輸入齒輪齒面接觸極限應(yīng)力Private UltimateStress_contact2 As Double 39。定義變量，輸出齒輪齒面接觸極限應(yīng)力Private UltimateStress_bend1 As Double 39。定義變量，輸入齒輪齒根彎曲極限應(yīng)力Private UltimateStress_bend2 As Double 39。定義變量，輸出齒輪齒根彎曲極限應(yīng)力Private Rigidity_Gear1 As Double 39。定義變量，輸入齒輪齒面硬度Private