【正文】 以分為淺槽、基本槽和深槽三種，可根據(jù)具體情況來(lái)選用。 分屑槽的作用是減少切屑寬度，便于切屑容納在容屑槽中。（3）本程序所有的關(guān)鍵代碼均在窗體的【OK】按鈕單擊事件中完成，下面是圓體成形車刀工作部分的一些程序代碼。 Getpoint函數(shù)根據(jù)一點(diǎn)以及未知點(diǎn)的直角坐標(biāo)，計(jì)算未知點(diǎn)的直角坐標(biāo)，其實(shí)現(xiàn)代碼為：Public Function getpoint(gpt As Variant, gx As Double, gy As Double) As Variant Dim pttarget(0 To 2) As Double pttarget(0) = gpt(0) + gx pttarget(1) = gpt(1) + gy pttarget(2) = 0 getpoint = pttargetEnd Function其中：gpt為已知一點(diǎn)，gx,gy分別為未知點(diǎn)相對(duì)已知點(diǎn)在X，Y方向的移動(dòng)距離。數(shù)據(jù)計(jì)算按鈕則采用拉COMMAND控件，編入適當(dāng)代碼使得計(jì)算準(zhǔn)確，設(shè)計(jì)符合要求。 確定拉刀總長(zhǎng)度時(shí)應(yīng)考慮拉床工作范圍及拉刀制造的可能性，若設(shè)計(jì)的拉刀太長(zhǎng)，可設(shè)成兩把以上的成套拉刀。 拉刀的工作部分是拉刀的重要部分，工作部分設(shè)計(jì)模塊分有以下輸入框。拉刀性能和質(zhì)量的優(yōu)劣，將直接影響加工效率、加工精度和表面質(zhì)量。 經(jīng)過上述個(gè)種工具的優(yōu)缺點(diǎn)對(duì)比，選定VBA為本次二次開發(fā)設(shè)計(jì)的開發(fā)工具。作為開發(fā)工具，VLISP提供了一個(gè)完整的集成開發(fā)環(huán)境（IDE），包括編譯器、調(diào)試器和其他工具，可以提高二次開發(fā)的效率 。3 ARX 程序本質(zhì)上Windows動(dòng)態(tài)連接庫(kù)（DLL）程序，與AutoCAD共享地址空間，直接調(diào)用AutoCAD的核心函數(shù)，可直接訪問AutoCAD數(shù)據(jù)庫(kù)的核心數(shù)據(jù)結(jié)構(gòu)和代碼，以便能夠在運(yùn)行期間擴(kuò)展AutoCAD固有的類及其功能，創(chuàng)建能夠全面享受AutoCAD固有命令特權(quán)的新命令。 VBA是非常流行的應(yīng)用程序開發(fā)語(yǔ)言VASUAL BASIC 的子集，VBA簡(jiǎn)單易學(xué)，但功能強(qiáng)大。ObjectARX 還可以按需要加載應(yīng)用程序；使用ObjectARX進(jìn)行應(yīng)用開發(fā)還可以在同一水平上與Windows系統(tǒng)集成，并與其它Windows應(yīng)用程序?qū)崿F(xiàn)交互操作。它是一種表處理語(yǔ)言，是被解釋執(zhí)行的，任何一個(gè)語(yǔ)句鍵入后就能馬上執(zhí)行，它對(duì)于交互式的程序開發(fā)非常方便。 開發(fā)工具的選擇 AutoCAD的二次開發(fā)主要涉及以下內(nèi)容：（1）編寫各種用戶自定義函數(shù)并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。 3研究利用VBA開發(fā)工具，實(shí)現(xiàn)由拉刀自動(dòng)生成符合機(jī)械制圖要求的二維工程技術(shù)圖樣的功能。人在系統(tǒng)中的作用及發(fā)揮，人機(jī)柔性交互式技術(shù)、人機(jī)智能接口技術(shù)，清潔制造等。 4分布式井行處理智能協(xié)同求解技術(shù) 該技術(shù)實(shí)現(xiàn)制造系統(tǒng)中各種問題的協(xié)同求解，獲得系統(tǒng)的全局最優(yōu)解，實(shí)現(xiàn)系統(tǒng)的最優(yōu)決策。CAD技術(shù)之所以在短短的三十年發(fā)展如此迅速，是因?yàn)樗鼛缀跬苿?dòng)了一切領(lǐng)域的設(shè)計(jì)革命，徹底的改變了傳統(tǒng)的手工繪圖的方式，極大的提高了產(chǎn)品開發(fā)的速度，提高了設(shè)計(jì)精度．這一新技術(shù)的應(yīng)用將使人類的聰明才智和創(chuàng)造能力與計(jì)算機(jī)高速而精確的計(jì)算能力、大容量的儲(chǔ)存和數(shù)據(jù)處理功能結(jié)合起來(lái)，是兩者相得益彰。但是長(zhǎng)期以來(lái)拉刀的設(shè)計(jì)與管理仍然采用手工設(shè)計(jì)和人工管理，造成了大量的重復(fù)性勞動(dòng)，標(biāo)準(zhǔn)化程度低、設(shè)計(jì)優(yōu)化性差、周期長(zhǎng)、難管理、易混亂，不能夠有效的利用現(xiàn)代科學(xué)技術(shù)成果。涉密論文按學(xué)校規(guī)定處理。對(duì)本研究提供過幫助和做出過貢獻(xiàn)的個(gè)人或集體，均已在文中作了明確的說(shuō)明并表示了謝意。除了文中特別加以標(biāo)注引用的內(nèi)容外，本論文不包含任何其他個(gè)人或集體已經(jīng)發(fā)表或撰寫的成果作品。人們也不要惋惜，因?yàn)槊扇债?dāng)時(shí)沒有比用二維圖紙并采用畫法幾何原理來(lái)記錄和交流的設(shè)計(jì)思想更好的手段。 CAD/CAM技術(shù)發(fā)展綜述隨著現(xiàn)代工業(yè)文明的發(fā)展，越來(lái)越多的企業(yè)對(duì)工業(yè)產(chǎn)品的外形和內(nèi)部結(jié)構(gòu)的要求越來(lái)越高，產(chǎn)品更新的速度越來(lái)越快，傳統(tǒng)的手工制圖已經(jīng)不能滿足現(xiàn)代企業(yè)的要求。很多大中型甚至小型企業(yè)都在努力引進(jìn)這一新技術(shù)，以提高企業(yè)自身的技術(shù)素質(zhì)，增強(qiáng)產(chǎn)品在國(guó)內(nèi)外市場(chǎng)上的競(jìng)爭(zhēng)能力．另外，CAD教學(xué)也得到了個(gè)高校的普遍重視．要想全面推廣普及CAD技術(shù)，提高我國(guó)的整體技術(shù)水平．為了拓寬AutoCAD的運(yùn)用領(lǐng)域，從1993年夏季起，Autodesk公司已設(shè)計(jì)自動(dòng)化為主題，相繼推出了極具應(yīng)用價(jià)值的軟件群體，包括3D MAX、 AutoCAD、 Designer Auto surf AutoCAD、 Data Extension Auto、 Vision Animator Studio AutoCAD 、MAP Mechanical Desktop(MDT).這些將在AutoCAD中得到很好的發(fā)揮，AutoCAD也將會(huì)越來(lái)越強(qiáng)大。面向制造/裝配/市場(chǎng)銷售的并行設(shè)計(jì)和“魯棒性”設(shè)計(jì)技術(shù)，產(chǎn)品效益及風(fēng)險(xiǎn)的并行評(píng)估技術(shù)等。 9計(jì)算機(jī)安全技術(shù) 計(jì)算機(jī)己滲透到產(chǎn)品開發(fā)的各個(gè)環(huán)節(jié)，人們對(duì)計(jì)算機(jī)的依賴性也越來(lái)越大，可以說(shuō)，計(jì)算機(jī)內(nèi)設(shè)計(jì)結(jié)果和數(shù)據(jù)已成為企業(yè)的寶貴財(cái)富，一旦企業(yè)的計(jì)算機(jī)系統(tǒng)遭遇到破壞，就可能導(dǎo)致企業(yè)或行業(yè)的癱瘓甚至?xí)绊懙秸麄€(gè)社會(huì)，隨著市場(chǎng)競(jìng)爭(zhēng)的激烈和知識(shí)產(chǎn)權(quán)意識(shí)的增強(qiáng)，使產(chǎn)品的設(shè)計(jì)信息具有保密性，因此，如何保證計(jì)算機(jī)以及其中產(chǎn)品數(shù)據(jù)的安全，是CAD技術(shù)應(yīng)用中日益被人們所關(guān)注的重要問題。此外，還有CATIA、UG（全稱Unigraphics）、Pro/E(全稱Pro/ENGINEER)、Solid Works、ANSYS、ADAMS等大型集成化的國(guó)外CAD軟件以及具有自主知識(shí)產(chǎn)權(quán)的國(guó)產(chǎn)知名品牌軟件CAXA。（4）通過系統(tǒng)對(duì)話框設(shè)置某些路徑。ADS由于其速度快，又采用結(jié)構(gòu)化的編程體系，因而很適合于高強(qiáng)度的數(shù)據(jù)處理，如二次開發(fā)的機(jī)械設(shè)計(jì)CAD、工程分析CAD、建筑結(jié)構(gòu)CAD、土木工程CAD、化學(xué)工程CAD、電氣工程CAD等。在VisualLISP中新增了一些函數(shù)：如基于AutoLISP的ActiveX/COM自動(dòng)化操作接口；用于執(zhí)行基于Auto CAD內(nèi)部事件的LISP程序的對(duì)象反應(yīng)器；新增了能夠?qū)Σ僮飨到y(tǒng)文件進(jìn)行操作的函數(shù)。 下面對(duì)各種開發(fā)工具的優(yōu)缺點(diǎn)進(jìn)行分析、比較：1 AutoLISP具有以下優(yōu)點(diǎn)：（1）語(yǔ)言規(guī)則十分簡(jiǎn)單，易學(xué)易用；（2）直接針對(duì)AutoCAD，易于交互；（3）解釋執(zhí)行，立竿見影。盡管ARX在速度、暴露性、功能和要求使用上最強(qiáng)有力的，它也具有產(chǎn)生嚴(yán)重編程錯(cuò)誤的潛在性，如破壞AutoCAD數(shù)據(jù)結(jié)構(gòu)等。5 VBA是基于ActiveX Automation技術(shù)。為實(shí)現(xiàn)這一目標(biāo)，基于特征的參數(shù)化技術(shù)和交互式繪圖技術(shù)的綜合運(yùn)用，采用面向?qū)ο蟮哪K化編程技術(shù)對(duì)VB進(jìn)行二次開發(fā)，實(shí)現(xiàn)圓孔拉刀的二維參數(shù)化CAD系統(tǒng)，并對(duì)拉刀進(jìn)行強(qiáng)度分析和計(jì)算，最終要完成系統(tǒng)的集成，建立實(shí)用的拉刀設(shè)計(jì)平臺(tái)，為拉刀的設(shè)計(jì)生產(chǎn)提供支持。為此，使用計(jì)算機(jī)輔助設(shè)計(jì)可以大大的提高它的設(shè)計(jì)效率，并能輸出好的設(shè)計(jì)方案。它通過代碼將數(shù)據(jù)輸入框中用戶輸入的拉刀各項(xiàng)相關(guān)數(shù)據(jù)帶入相應(yīng)的公式，得出其它的設(shè)計(jì)所需的相關(guān)數(shù)據(jù)，并將得出的數(shù)據(jù)通過數(shù)據(jù)輸出框直接面對(duì)用戶。界面設(shè)計(jì)簡(jiǎn)單、明朗、雅觀。Dim l As SingleDim ac As SingleDim k As SingleDim dmax As SingleDim dmin As SingleDim δ As SingleDim u As SingleDim radius As SinglePrivate Sub CommandButton1_Click()pi = = Val() / 100 * Sqr(l)Ze = l / Val() + 1 = Fix(Ze) = Val()If P 10 Then = Val() * () / 10If P = 10 Then = Val() = * Sqr(k * ac * l) = Val() ^ 2 * pi / 4 = ac * lδ = dmax dmin = δ = δ (δg + δj) / 2 * af + 1 = Val( + + )If = ture Then = dmax uIf = ture Then = dmax + uEnd Sub （2）在AutoCAD中，打開【VBA管理器】對(duì)話框，新建一個(gè)工程，保存在適當(dāng)?shù)奈蛔由?，進(jìn)入VBA集成開發(fā)環(huán)境。Call (ptcen, Rw, stang, enang)該函數(shù)為系統(tǒng)提供的addarc方法，已知圓心，半徑，起點(diǎn)和終點(diǎn)，需要計(jì)算出起始角度和終止角度，調(diào)用基準(zhǔn)函數(shù)，來(lái)創(chuàng)建圓弧。為了使拉刀重磨后其直徑變化較小以及拉屑平穩(wěn)，后角應(yīng)做的更小些，刃帶寬度應(yīng)做得大些。： 分屑槽 容屑槽要有足夠的空間，能使切屑卷曲自由，又能使刀齒有足夠強(qiáng)度，并可多次重磨。 由于切屑的寬度變形較小，可忽略不計(jì)，所以容屑系數(shù)K可用容屑槽及切屑層在拉刀軸向剖面內(nèi)的面積比來(lái)表示。 ： 容屑槽 尺寸是工程圖的重要組成部分，其主要作用是精確地描述零件的結(jié)構(gòu)特征、形狀特征和精度特征，為零件的加工提供依據(jù)。樣式族允許對(duì)不同類型的標(biāo)注在基礎(chǔ)樣式上進(jìn)行細(xì)微的修改。上述內(nèi)容與圖紙上的零件形狀和標(biāo)注的尺寸、技術(shù)要求等一起構(gòu)成零件的完整表示。判斷工作模式的方法是，檢查當(dāng)前圖形中是否存在名稱為“標(biāo)題欄”的塊參照，如果存在，表示當(dāng)前是修改模式，否則是創(chuàng)建模式。（2） 拉削方式：綜合輪切式（3） 幾何參數(shù)：，取前角，精切齒與校準(zhǔn)齒前刀面倒棱。① 計(jì)算齒距。(7) 綜合式拉刀粗切齒與過渡齒用弧形分屑槽，精切齒用三角形分屑槽。、。，共有粗切齒、過渡齒、精切齒、校準(zhǔn)齒齒數(shù)為10+3+5+6=24個(gè)。比如： 拉刀直徑D=40； 前柄的倒角C=30； 前柄的長(zhǎng)度L1=100； 前柄L2=100； 前柄的直徑D1=30； 前柄的直徑D2=40； 拉屑長(zhǎng)度L100=40 UserForm1窗體。本系統(tǒng)充分利用了VBA的編程功能和AUTOCAD2005的繪圖功能。 本文研究展望 本文研究取得了預(yù)期的成果，并建立了實(shí)驗(yàn)系統(tǒng)進(jìn)行驗(yàn)證。 限于作者水平有限，對(duì)新技術(shù)理解的片面性，加之時(shí)間倉(cāng)促論文寫作時(shí)間有限，許多研究工作未能得到進(jìn)一步深入，文中疏漏和錯(cuò)誤在所難免，懇請(qǐng)各位老師專家學(xué)者不吝賜教。對(duì)本文的研究做出重要貢獻(xiàn)的個(gè)人和集體均已在文中以明確方式標(biāo)明。首先非常感謝學(xué)校開設(shè)這個(gè)課題，為本人日后從事計(jì)算機(jī)方面的工作提供了經(jīng)驗(yàn)，奠定了基礎(chǔ)。從他身上，我學(xué)到了許多能受益終生的東西。感謝老師四年來(lái)對(duì)我孜孜不倦的教誨，對(duì)我成長(zhǎng)的關(guān)心和愛護(hù)。在論文的撰寫過程中老師們給予我很大的幫助，幫助解決了不少的難點(diǎn)，使得論文能夠及時(shí)完成，這里一并表示真誠(chéng)的感謝。最后，我要特別感謝我的導(dǎo)師趙達(dá)睿老師、和研究生助教熊偉麗老師。最后，我要感謝我的父母對(duì)我的關(guān)系和理解，如果沒有他們?cè)谖业膶W(xué)習(xí)生涯中的無(wú)私奉獻(xiàn)和默默支持，我將無(wú)法順利完成今天的學(xué)業(yè)。這期間凝聚了很多人的心血，在此我表示由衷的感謝。畢業(yè)設(shè)計(jì)（論文）使用授權(quán)聲明本人完全了解濱州學(xué)院關(guān)于收集、保存、使用畢業(yè)設(shè)計(jì)（論文）的規(guī)定。本人完全意識(shí)到本聲明的法律結(jié)果由本人承擔(dān)。4. 張捷，[J].四川理工學(xué)院學(xué)報(bào)，2005，2.5． [M].上?？萍汲霭嫔?，1980.6．何慶，[J]礦山機(jī)械，2004，2.7．Grechishnikov V A. A subsystem for the automated design of cutting ,1987,1.，8．張帆，鄭力凱， VBA 二次開發(fā)教程[M]. 清華大學(xué)出版社,2006,1.9. [J].沈陽(yáng)建筑工程學(xué)院院報(bào)，1989.　，[J].新技術(shù)工藝，1995，5.[J].重慶大學(xué)出版社，1999.致謝 本文的研究工作是在導(dǎo)師王有遠(yuǎn)教授悉心指導(dǎo)下完成的，導(dǎo)師嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)、淵博的知識(shí)、平易近人的為人風(fēng)范令我欽佩和敬仰，作為他的學(xué)生，我感到驕傲、自豪。并在VBA軟件平臺(tái)支持下，實(shí)現(xiàn)了圓孔拉刀的二維參數(shù)化造型，為評(píng)價(jià)和分析設(shè)計(jì)提供便利。 輸入技術(shù)要求之后， 提示結(jié)束對(duì)話框 單擊確定后， 5. 結(jié)論 CAD/ CAM /CAE在提升設(shè)計(jì)制造信息化、自動(dòng)化水平，加速新產(chǎn)品開發(fā)，縮短設(shè)計(jì)制造周期，保證產(chǎn)品質(zhì)量，提高生產(chǎn)管理水平，節(jié)約成本，增強(qiáng)市場(chǎng)競(jìng)爭(zhēng)能力和企業(yè)創(chuàng)新能力等方面發(fā)揮了重要作用。，當(dāng)拉刀直徑為42時(shí)，允許長(zhǎng)度為1000mm，總長(zhǎng)校驗(yàn)合格。(10) 齒數(shù)及每齒直徑。校準(zhǔn)齒及最后一個(gè)精切齒不做分屑槽。③校驗(yàn)容屑條件 ，取容屑系數(shù)K=，工件最大長(zhǎng)度L=38mm，齒升量。當(dāng)預(yù)制孔采用擴(kuò)孔加工時(shí)，A的初值為采用擴(kuò)孔鉆。顯示屬性Dim varattributes As Variantvarattributes = = varattributes(0).TextString = varattributes(1).TextString = varattributes(2).TextString = varattributes(3).TextString = varattributes(4).TextString = varattributes(5).TextString = varattributes(6).TextString = varattribut