【正文】 es(7).TextStringEnd IfEnd Sub其中，gettitlebar是一個(gè)自定義函數(shù)，用于獲得圖形中的標(biāo)題欄塊參照，其實(shí)現(xiàn)代碼為：Private Function gettitlebar() As AcadBlockReferenceDim blkref As AcadBlockReferenceFor Each blkref In If StrComp(, 標(biāo)題欄) = 0 Then Set gettitlebar = blkref Exit Function End If Next blkrefEnd Function（3）在“確定”按鈕的單擊事件中，根據(jù)當(dāng)前的工作模式來指定適當(dāng)?shù)奶幚矸绞?。?chuàng)建標(biāo)題欄和修改標(biāo)題欄都用一個(gè)對話框來完成。用戶只需在對話框中填入相應(yīng)的要求，然后單擊“確定”按鈕 ，系統(tǒng)就會(huì)提示，請選擇插入的點(diǎn)。AutoCAD中提供了3種基本類型的標(biāo)注：線性、徑向和角度。故 計(jì)算后，h選接近的標(biāo)準(zhǔn)值（mm）。（3） 加長齒距的槽形： 槽底為一直線，容屑空間大，適用于拉屑深孔。為了使拉刀能多次重磨，校準(zhǔn)齒直徑應(yīng)等于被拉削孔的最大直徑，但拉削后孔徑經(jīng)常發(fā)生擴(kuò)張或收縮，故實(shí)際校準(zhǔn)齒直徑取為 式中u——孔的擴(kuò)張或收縮量，孔徑擴(kuò)張取“”號，收縮取“+”號。畫直線 Set addline = (ptst, pten)End Function Call (ptcen, rn)調(diào)用系統(tǒng)的AddCircle方法，已知圓心和半徑來創(chuàng)建圓。這里要?jiǎng)?chuàng)建的函數(shù)包括根據(jù)相對直角坐標(biāo)和極坐標(biāo)計(jì)算點(diǎn)位置的函數(shù)，以及計(jì)算兩點(diǎn)之間中點(diǎn)的函數(shù)。同時(shí)對控件的安放、大小進(jìn)行拉精心的設(shè)計(jì)，使的界面也非常美觀大方。 拉刀總長度是拉刀所有組成部分長度的總和，一般拉刀總長度為 L=（30～40）do 式中 do —— 拉刀直徑。 , 圓孔拉刀計(jì)算機(jī)輔助設(shè)計(jì)系統(tǒng)非工作部分設(shè)計(jì)模塊 數(shù)據(jù)管理模塊 圖形輸出模塊 校 核 模 塊工作部分設(shè)計(jì)模塊 設(shè)計(jì)的題目為工作部分的設(shè)計(jì)模塊和校核模塊，所以本設(shè)計(jì)中只涉及到這二個(gè)模塊，其它的模塊通過軟件連接，組成一個(gè)完整的計(jì)算機(jī)繪圖系統(tǒng)。拉刀作為一種復(fù)雜、高效刀具，被廣泛應(yīng)用于大批量生產(chǎn)和一些其它方法難以加工的特型面的生產(chǎn)中。所以VBA完全面向?qū)ο蠡幊痰奶攸c(diǎn)，使其開發(fā)環(huán)境具備了強(qiáng)大的開發(fā)能力和簡單易用的優(yōu)良特點(diǎn)，開發(fā)工具的選擇也具有很大的靈活性。同時(shí)，通過實(shí)現(xiàn)反應(yīng)器函數(shù)，還擴(kuò)展AutoLISP響應(yīng)事件的能力。 而其不便之處在于：（1）C語言比LISP語言難于掌握和熟練應(yīng)用；（2）ADS程序的隱藏錯(cuò)誤往往導(dǎo)致AutoCAD，乃至操作系統(tǒng)的崩潰；（3）需要編譯才能運(yùn)行，不易見到代碼的效果；（4）同樣功能ADS程序源代碼比AutoLISP代碼長很多。通過VBA，我們可以操作AutoCAD，控制ActiveX和其它一些應(yīng)用程序，使之相互之間發(fā)生互易活動(dòng)。ObjectARX的核心是兩組關(guān)鍵的API，即AcDb(Auto CAD數(shù)據(jù)庫)和AcEd(Auto CAD編譯器)，另外還有其它的一些重要庫組件，如AcRX(Auto CAD實(shí)時(shí)擴(kuò)展)、AcGi(Auto CAD圖形接口)、AcGe(Auto CAD幾何庫)、ADSRX(Auto CAD開發(fā)系統(tǒng)實(shí)時(shí)擴(kuò)展）。AutoCAD第一版于1982年11月由AutoDESK公司推出，目前大家廣泛使用的是AutoCAD 2000或2002，最新版本是AutoCAD 2004，其二次開發(fā)語言及工具也在不斷地涌現(xiàn) 1 .AutoLISP AutoLISP的全名是LIST Processing Language，她出現(xiàn)于1985年推出的AutoCAD ，是一種嵌入在AutoCAD內(nèi)部的編程語言，是LISP原版的一個(gè)子集，它一直是低版本AutoCAD的首選編程語言。 所以在本次設(shè)計(jì)中，使用的設(shè)計(jì)平臺選為微機(jī)式AutoCAD 平臺。 2根據(jù)拉刀工作部分的結(jié)構(gòu)尺寸，在AUTOCAD的環(huán)境下生成拉刀的設(shè)計(jì)圖形，以直觀地反映設(shè)計(jì)結(jié)果，為評價(jià)和分析設(shè)計(jì)提供支持。研究的重點(diǎn)是:人機(jī)環(huán)境的體系統(tǒng)結(jié)構(gòu)及集成技術(shù)。 3網(wǎng)絡(luò)技術(shù) 網(wǎng)絡(luò)技術(shù)包括硬件與軟件的實(shí)現(xiàn)，各種通信協(xié)議及制造自動(dòng)化協(xié)議，信息通信接口，系統(tǒng)操作控制策略等，是實(shí)現(xiàn)各種制造系統(tǒng)自動(dòng)化的基礎(chǔ)，特別是在當(dāng)前情況下要實(shí)現(xiàn)基于Internet的TeleDesign和TeleManufacturing(異地設(shè)計(jì)與異地制造)技術(shù)基礎(chǔ)。經(jīng)過三十多年的發(fā)展，CAD技術(shù)得到了迅速普及，已成為電子信息技術(shù)的重要組成部分．CAD技術(shù)使產(chǎn)品的內(nèi)容和方式發(fā)生了根本性變革，這一技術(shù)已成為工業(yè)發(fā)達(dá)國家保持競爭優(yōu)勢，開拓市場的主要技術(shù)手段．1989年，美國國家工程科學(xué)院將CAD技術(shù)評為人類25年間（1965～1989）當(dāng)代十項(xiàng)最杰出工程技術(shù)成就之一。拉刀性能和質(zhì)量的優(yōu)劣，將直接影響工作效率、加工精度和表面質(zhì)量。本人授權(quán)　　 　 　大學(xué)可以將本學(xué)位論文的全部或部分內(nèi)容編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，可以采用影印、縮印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。盡我所知，除文中特別加以標(biāo)注和致謝的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過的研究成果，也不包含我為獲得 及其它教育機(jī)構(gòu)的學(xué)位或?qū)W歷而使用過的材料。對本文的研究做出重要貢獻(xiàn)的個(gè)人和集體，均已在文中以明確方式標(biāo)明。那么這個(gè)工具將徹底使我們從前些年的二維CAD“甩圖版”工程，提升到一個(gè)更高的層次，還設(shè)計(jì)的本來面目，真正體會(huì)到CAD帶來的巨大進(jìn)步。計(jì)算機(jī)輔助設(shè)計(jì)技術(shù)的引進(jìn)是近代工業(yè)史上的一次革命，它顯著的提高了制圖速度和制圖的質(zhì)量，縮短了新產(chǎn)品設(shè)計(jì)開發(fā)的時(shí)間。 為了適應(yīng)21世紀(jì)的制造模式，CAD/CAM集成系統(tǒng)關(guān)鍵技術(shù)主要有: 1集成化技術(shù) 在過去制造系統(tǒng)中僅強(qiáng)調(diào)信息的集成，這是不夠的，現(xiàn)在更強(qiáng)調(diào)技術(shù)、人和管理的集成。 6綜合可視化技術(shù) 是利用虛擬現(xiàn)實(shí)技術(shù)、多媒體技術(shù)及計(jì)算機(jī)仿真技術(shù)實(shí)現(xiàn)產(chǎn)品設(shè)計(jì)制造過程中的幾何仿真、物理仿真、制造過程仿真及使用過程仿真。 論文研究的主要內(nèi)容 通過對拉刀傳統(tǒng)設(shè)計(jì)和制造技術(shù)分析，在對基于特征的參數(shù)化技術(shù)和交互式繪圖技術(shù)的綜合運(yùn)用的基礎(chǔ)上，采用面向?qū)ο蟮哪K化編程技術(shù)對AUTOCAD進(jìn)行二次開發(fā)實(shí)現(xiàn)拉刀輔助設(shè)計(jì)設(shè)計(jì)。 同時(shí)，CAD又分為工作站式和微機(jī)式。這些操作在程序開發(fā)成功后向其它AutoCAD系統(tǒng)上安裝應(yīng)用，特別是需要大批安裝時(shí)，需要進(jìn)行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設(shè)置等繁瑣工作，如能令上述工作全部自動(dòng)進(jìn)行，使整個(gè)二次開發(fā)程序在無人干預(yù)的情況下嵌入系統(tǒng)，將大大提高工作效率。 3 .ObjectARX ObjectARX是一種嶄新的開發(fā)AutoCAD應(yīng)用程序的工具，她以C++為編程語言，采用先進(jìn)的面向?qū)ο蟮木幊淘?，提供可與AutoCAD直接交互的開發(fā)環(huán)境，能使用戶方便快捷地開發(fā)出高效簡潔的Auto CAD應(yīng)用程序。 5 .VBA VBA 即Mcrosoft office中的Visual Basic for Applications，它被集成到AutoCAD 2000中。 AutoLISP的缺點(diǎn)是：（1）功能單一，綜合處理能力差；（2）解釋執(zhí)行，程序運(yùn)行速度慢；（3）缺乏很好的保護(hù)機(jī)制，源程序保密性差；（4）LISP用表來描述一切，并不能很好地反映現(xiàn)實(shí)世界和過程，跟人的思維方式也不一致；（5）不能直接訪問硬件設(shè)備、進(jìn)行二進(jìn)制文件的讀寫。4 VLISP是AutoLISP的換代產(chǎn)品。ActiveX Automation是一套微軟標(biāo)準(zhǔn)，以前稱為OLE Automation技術(shù)。 該系統(tǒng)由拉刀工作部分設(shè)計(jì)模塊、校核模塊兩個(gè)基本模塊組成。隨著計(jì)算機(jī)的發(fā)展和普及,使用計(jì)算機(jī)來進(jìn)行輔助設(shè)計(jì)可以更好的促進(jìn)刀具設(shè)計(jì)和機(jī)械設(shè)計(jì)的發(fā)展。使用時(shí)，將已知的拉刀相關(guān)數(shù)據(jù)輸入對應(yīng)的欄目，再點(diǎn)擊確定按扭即可。讓人看了一目了然。選擇【插入/用戶窗體】菜單項(xiàng)，向程序中添加一個(gè)用戶窗體，在窗體中放置控件。 pt(0) = (Cos(af) * Rw b) + 70 pt(1) = (H + Tan(rf) * b) + 150 pt(2) = 0 pt為兩直線的交點(diǎn) addline ptst, pt addline pt, pten 調(diào)用了已知起點(diǎn)和終點(diǎn)畫直線的基準(zhǔn)函數(shù)addline。如果被拉屑孔的精度要求高，則校準(zhǔn)齒的齒數(shù)就應(yīng)該多些。常用的容屑槽有三種形式，如下。即。沒有標(biāo)注尺寸的產(chǎn)品設(shè)計(jì)是毫無意義的，是不可能加工出產(chǎn)品的。以下是標(biāo)注的一些程序代碼：Dim dimobj3 As AcadDimAlignedDim location3(0 To 2) As DoubleDim point6(0 To 2) As DoubleDim point7(0 To 2) As Doublepoint6(0) = pp2(0)point6(1) = pp2(1)point6(2) = 0point7(0) = pp6(0)point7(1) = pp6(1)point7(2) = 0location3(0) = point5(0)location3(1) = point5(1) + 28location3(2) = 0Set dimobj3 = _ (point6, point7, location3) = 8 = 標(biāo)注Dim dimobj4 As AcadDimRotatedDim location4(0 To 2) As DoubleDim point8(0 To 2) As DoubleDim point9(0 To 2) As DoubleDim rotangle3 As Doublerotangle3 = A0 * / 180point8(0) = pp6(0)point8(1) = pp6(1)point8(2) = 0point9(0) = pp8(0)point9(1) = pp8(1)point9(2) = 0location4(0) = point8(0)location4(1) = point8(1) + 15location4(2) = 0Set dimobj4 = _ (point8, point9, location4, rotangleatn3) = = 標(biāo)注Dim dimobj5 As AcadDimRadialDim center(0 To 2) As DoubleDim chordpoint(0 To 2) As DoubleDim leaderlen As Integercenter(0) = 100 + r + 5 * Pcenter(1) = 2 * fumiany / 3 k1 + r3 rcenter(2) = 0chordpoint(0) = pp4(0)chordpoint(1) = pp4(1)chordpoint(2) = 0leaderlen = 10Set dimobj5 = (center, chordpoint, leaderlen) = 標(biāo)注 = End sub在系統(tǒng)開發(fā)中，采用了技術(shù)要求填充分開的設(shè)計(jì)方案。通常需要人工逐項(xiàng)輸入標(biāo)題欄的各項(xiàng)內(nèi)容，很費(fèi)時(shí)間。 依照工程圖的生成模塊，在工程中插入一窗體，在其中放置如圖4所示的控件，各個(gè)文本框的名稱分別修改為txtdwgname,txtdwgscale, txtdwgserial, txtdesigner ,txtdesigndate,txtaudit,txtauditdate和txtdesigncorp,兩個(gè)命令按鈕的名稱分別修改為cmdok和cmdcancel。，取粗切齒后角倒棱寬，精切齒后角校準(zhǔn)齒。粗切齒與過渡齒齒距為取精切齒與與校準(zhǔn)齒齒距（用角標(biāo)表示精切齒的參數(shù)）② 容屑槽形狀及尺寸采用曲線齒背。，當(dāng)最小直徑時(shí)，弧形分屑槽槽數(shù)。綜合式拉刀粗切齒的切削厚度為齒升量的一倍，1mm長度刀刃上的切削力應(yīng)按確定。（11）拉刀其他部分。 UserForm1窗體 點(diǎn)擊OK，界面進(jìn)入下一個(gè)選擇圖幅窗體， 選擇圖幅窗體 單擊確定后進(jìn)入U(xiǎn)serForm2標(biāo)題攔窗體如下，根據(jù)實(shí)際情況填寫下面窗體。通過多次實(shí)例的使用證明，該系統(tǒng)基本上能滿足拉刀的工作部分設(shè)計(jì)及設(shè)計(jì)圖形的繪制。但限于各種條件的限制，該系統(tǒng)目前還不是很完善，需要進(jìn)一步工作的方向是: ，有的參數(shù)是借鑒于間接經(jīng)驗(yàn)初取的，隨著我國現(xiàn)代設(shè)計(jì)技術(shù)的發(fā)展和應(yīng)用，圓孔拉刀結(jié)構(gòu)尺寸參數(shù)設(shè)計(jì)的科學(xué)性、合理性需要進(jìn)一步提高。學(xué)位論文原創(chuàng)性聲明 本人鄭重聲明：所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下進(jìn)行的研究工作所取得的成果。本聲明的法律后果由本人承擔(dān)。本次畢業(yè)設(shè)計(jì)大概持續(xù)了半年，現(xiàn)在終于到結(jié)尾了。再次對周巍老師表示衷心的感謝。學(xué)友情深，情同兄妹。在我的十幾年求學(xué)歷程里，離不開父母的鼓勵(lì)和支持，是他們辛勤的勞作，無私的付出，為我創(chuàng)造良好的學(xué)習(xí)條件，我才能順利完成完成學(xué)業(yè)，感激他們一直以來對我的撫養(yǎng)與培育。另外，我還要感謝大學(xué)四年和我一起走過的同學(xué)朋友對我的關(guān)心與支持，與他們一起學(xué)習(xí)、生活，讓我在大學(xué)期間生活的很充實(shí)，給我留下了很多難忘的回憶。