【正文】 ation3) = 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)開(kāi)發(fā)中，采用了技術(shù)要求填充分開(kāi)的設(shè)計(jì)方案。該樣式控制著標(biāo)注的特征，如顏色、文字樣式和線形比例等，它不支持厚度信息。線性標(biāo)注包括對(duì)齊、旋轉(zhuǎn)和坐標(biāo)標(biāo)注。工程零件圖的尺寸自動(dòng)標(biāo)注仍然是一個(gè)值得研究的重要課題。沒(méi)有標(biāo)注尺寸的產(chǎn)品設(shè)計(jì)是毫無(wú)意義的，是不可能加工出產(chǎn)品的。 根據(jù)已確定的齒距P和槽深h，即可按有關(guān)資料查出容屑槽的各尺寸。 容屑系數(shù)K的具體數(shù)值隨加工材料性質(zhì)和齒升量不同而異。切屑層的縱剖面積F切屑層為 式中ac——切屑厚度（mm），對(duì)于普通拉屑式拉刀， ；對(duì)于綜合拉屑式拉刀，； = 拉屑長(zhǎng)度。即。由于切屑卷曲不緊密，故應(yīng)使容屑槽的有效容積V槽大于切屑體積V屑，即容屑系數(shù)K應(yīng)為。 容屑槽按其深度不同又可以分為淺槽、基本槽和深槽三種，可根據(jù)具體情況來(lái)選用。（2） 齒背為曲線的槽形： 由前刀面與兩個(gè)圓弧組成這種槽形有利于卷屑，適用于拉屑韌性材料。常用的容屑槽有三種形式，如下。故切屑寬度較大的拉刀，在切屑齒的切屑刃上都要做出交錯(cuò)分布的分屑槽，將切屑分成許多小段。 分屑槽的作用是減少切屑寬度，便于切屑容納在容屑槽中。最后一個(gè)精切齒重磨后因其直徑減小了，于是第一個(gè)校準(zhǔn)齒就變?yōu)樾碌淖詈笠粋€(gè)精切齒，以后再重磨后，如此類推。如果被拉屑孔的精度要求高，則校準(zhǔn)齒的齒數(shù)就應(yīng)該多些。為了便于制造，校準(zhǔn)齒的前角、齒距與齒形均可做成與精切齒相同。（3）本程序所有的關(guān)鍵代碼均在窗體的【OK】按鈕單擊事件中完成，下面是圓體成形車刀工作部分的一些程序代碼。 添加過(guò)程對(duì)話框在該輔助設(shè)計(jì)系統(tǒng)中，基準(zhǔn)函數(shù)就是與系統(tǒng)提供的方法參數(shù)一致的函數(shù)，其他的函數(shù)均調(diào)用基準(zhǔn)函數(shù)創(chuàng)建對(duì)象，創(chuàng)建Addline基準(zhǔn)函數(shù)代碼為： Public Function addline(ByVal ptst As Variant, ByVal pten As Variant) As AcadLine 39。 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)畫(huà)直線的基準(zhǔn)函數(shù)addline。Getpointar函數(shù)根據(jù)一點(diǎn)以及未知點(diǎn)相對(duì)于已知點(diǎn)的極坐標(biāo)，計(jì)算未知點(diǎn)的直角坐標(biāo)，其實(shí)現(xiàn)代碼為：Public Function getpointar(ByVal ptbase As Variant, ByVal angle As Double, ByVal length As Double) As Variant Dim pt(0 To 2) As Double pt(0) = ptbase(0) + length * Cos(angle) pt(1) = ptbase(1) + length * Sin(angle) pt(2) = 0 getpointar = ptEnd Function 其中：ptbase為已知的基點(diǎn)，length,angle為未知點(diǎn)相對(duì)于已知點(diǎn)的極坐標(biāo)，length * Cos(angle)即為未知點(diǎn)相對(duì)于已知點(diǎn)在X方向移動(dòng)的距離，length * Sin(angle)為未知點(diǎn)相對(duì)于已知點(diǎn)在Y方向移動(dòng)的距離。 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)距離。 創(chuàng)建點(diǎn)的基本函數(shù)。選擇【插入/用戶窗體】菜單項(xiàng)，向程序中添加一個(gè)用戶窗體，在窗體中放置控件。（1）以下為參數(shù)計(jì)算的一些程序代碼。數(shù)據(jù)計(jì)算按鈕則采用拉COMMAND控件，編入適當(dāng)代碼使得計(jì)算準(zhǔn)確，設(shè)計(jì)符合要求。其中各頁(yè)面大量使用拉TEXT和LABEL控件,通過(guò)LABERL控件來(lái)對(duì)數(shù)據(jù)說(shuō)明，利用TEXT控件來(lái)進(jìn)行數(shù)據(jù)的輸入、輸出，直觀、簡(jiǎn)便。讓人看了一目了然。 參數(shù)畫(huà)圖 以下是是設(shè)計(jì)拉刀過(guò)程的圖框。 確定拉刀總長(zhǎng)度時(shí)應(yīng)考慮拉床工作范圍及拉刀制造的可能性，若設(shè)計(jì)的拉刀太長(zhǎng)，可設(shè)成兩把以上的成套拉刀。 （2）校準(zhǔn)部 有幾個(gè)校準(zhǔn)齒其直徑都相同，基本上等于拉屑后的孔徑，它們起校準(zhǔn)與修光作用，并作為精切齒的后備齒。使用時(shí)，將已知的拉刀相關(guān)數(shù)據(jù)輸入對(duì)應(yīng)的欄目，再點(diǎn)擊確定按扭即可。數(shù)據(jù)輸出框是將計(jì)算機(jī)計(jì)算的相關(guān)數(shù)據(jù)輸入到對(duì)應(yīng)的欄目。 拉刀的工作部分是拉刀的重要部分，工作部分設(shè)計(jì)模塊分有以下輸入框?，F(xiàn)把該系統(tǒng)的幾個(gè)基本模塊和幾個(gè)關(guān)鍵技術(shù)作一個(gè)簡(jiǎn)介。隨著計(jì)算機(jī)的發(fā)展和普及,使用計(jì)算機(jī)來(lái)進(jìn)行輔助設(shè)計(jì)可以更好的促進(jìn)刀具設(shè)計(jì)和機(jī)械設(shè)計(jì)的發(fā)展。且長(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ù)成果。拉刀性能和質(zhì)量的優(yōu)劣，將直接影響加工效率、加工精度和表面質(zhì)量。： 拉削是利用多刀齒的拉刀對(duì)工件進(jìn)行切削加工。 該系統(tǒng)由拉刀工作部分設(shè)計(jì)模塊、校核模塊兩個(gè)基本模塊組成。 3. 系統(tǒng)開(kāi)發(fā) 本系統(tǒng)的總體功能目標(biāo)是實(shí)現(xiàn)圓孔拉刀的參數(shù)化計(jì)算機(jī)輔助設(shè)計(jì)。 經(jīng)過(guò)上述個(gè)種工具的優(yōu)缺點(diǎn)對(duì)比，選定VBA為本次二次開(kāi)發(fā)設(shè)計(jì)的開(kāi)發(fā)工具。AutoCAD從R14開(kāi)始增加了作為ActiveX Automation服務(wù)器應(yīng)用程序的功能，使得許多面向?qū)ο缶幾g語(yǔ)言和應(yīng)用程序可以通過(guò)ActiveX與AutoCAD進(jìn)行通信，并操縱AutoCAD的許多功能。ActiveX Automation是一套微軟標(biāo)準(zhǔn)，以前稱為OLE Automation技術(shù)。但它在速度、暴露性、功能和要求使用上比較弱，同時(shí)也存在編程錯(cuò)誤的潛在性。作為開(kāi)發(fā)工具，VLISP提供了一個(gè)完整的集成開(kāi)發(fā)環(huán)境（IDE），包括編譯器、調(diào)試器和其他工具，可以提高二次開(kāi)發(fā)的效率 。VLISP對(duì)語(yǔ)言進(jìn)行了擴(kuò)展，可以通過(guò)Microsoft ActiveX Automation接口與對(duì)象交互。4 VLISP是AutoLISP的換代產(chǎn)品。ARX的“暴露性”參數(shù)顯示了用戶編程錯(cuò)誤的可能嚴(yán)重性。3 ARX 程序本質(zhì)上Windows動(dòng)態(tài)連接庫(kù)（DLL）程序，與AutoCAD共享地址空間，直接調(diào)用AutoCAD的核心函數(shù)，可直接訪問(wèn)AutoCAD數(shù)據(jù)庫(kù)的核心數(shù)據(jù)結(jié)構(gòu)和代碼，以便能夠在運(yùn)行期間擴(kuò)展AutoCAD固有的類及其功能，創(chuàng)建能夠全面享受AutoCAD固有命令特權(quán)的新命令。2 ADS優(yōu)越之處在于：（1）具備錯(cuò)綜復(fù)雜的大規(guī)模處理能力；（2）編譯成機(jī)器代碼后執(zhí)行速度快；（3）編譯時(shí)可以檢查出程序設(shè)計(jì)語(yǔ)言的邏輯錯(cuò)誤；（4）程序源代碼的可讀性好于AutoLISP。 AutoLISP的缺點(diǎn)是：（1）功能單一，綜合處理能力差；（2）解釋執(zhí)行，程序運(yùn)行速度慢；（3）缺乏很好的保護(hù)機(jī)制，源程序保密性差；（4）LISP用表來(lái)描述一切，并不能很好地反映現(xiàn)實(shí)世界和過(guò)程，跟人的思維方式也不一致；（5）不能直接訪問(wèn)硬件設(shè)備、進(jìn)行二進(jìn)制文件的讀寫(xiě)。通過(guò)VBA的強(qiáng)大編程功能講設(shè)計(jì)做成設(shè)計(jì)模塊，并利用AUTOCAD的強(qiáng)大圖形輸出功能將拉刀設(shè)計(jì)圖輸出。 VBA是非常流行的應(yīng)用程序開(kāi)發(fā)語(yǔ)言VASUAL BASIC 的子集，VBA簡(jiǎn)單易學(xué)，但功能強(qiáng)大。VBA和AutoCAD 2000中強(qiáng)大的ActiveX自動(dòng)化對(duì)象模型的結(jié)合，代表了一種新型的定制AutoCAD的模式構(gòu)架。 5 .VBA VBA 即Mcrosoft office中的Visual Basic for Applications，它被集成到AutoCAD 2000中。其特點(diǎn)為自身是AutoCAD 2000中默認(rèn)的代碼編輯工具；用它開(kāi)發(fā)AutoLISP程序的時(shí)間被大大地縮短，原始代碼能被保密，以防盜版和被更改；能幫助大家使用ActiveX對(duì)象及其事件；使用了流行的有色代碼編輯器和完善的調(diào)試工具，使大家很容易創(chuàng)建和分析LISP程序的運(yùn)行情況。ObjectARX 還可以按需要加載應(yīng)用程序；使用ObjectARX進(jìn)行應(yīng)用開(kāi)發(fā)還可以在同一水平上與Windows系統(tǒng)集成，并與其它Windows應(yīng)用程序?qū)崿F(xiàn)交互操作。ObjectARX從本質(zhì)上講，是一種特定的C++編程環(huán)境，它包括一組動(dòng)態(tài)鏈接庫(kù)（DLL），這些庫(kù)與AutoCAD在同一地址空間運(yùn)行并能直接利用AutoCAD核心數(shù)據(jù)結(jié)構(gòu)和代碼，庫(kù)中包含一組通用工具，使得二次開(kāi)發(fā)者可以充分利用AutoCAD的開(kāi)放結(jié)構(gòu)，直接訪問(wèn)AutoCAD數(shù)據(jù)庫(kù)結(jié)構(gòu)、圖形系統(tǒng)以及CAD幾何造型核心，以便能在運(yùn)行期間實(shí)時(shí)擴(kuò)展AutoCAD的功能，創(chuàng)建能全面享受AutoCAD固有命令的新命令。 3 .ObjectARX ObjectARX是一種嶄新的開(kāi)發(fā)AutoCAD應(yīng)用程序的工具，她以C++為編程語(yǔ)言，采用先進(jìn)的面向?qū)ο蟮木幊淘?，提供可與AutoCAD直接交互的開(kāi)發(fā)環(huán)境，能使用戶方便快捷地開(kāi)發(fā)出高效簡(jiǎn)潔的Auto CAD應(yīng)用程序。 2 .ADS ADS的全名是AutoCAD Development System，它是AutoCAD的C語(yǔ)言開(kāi)發(fā)系統(tǒng)，ADS本質(zhì)上是一組可以用C語(yǔ)言編寫(xiě)AutoCAD應(yīng)用程序的頭文件和目標(biāo)庫(kù)，它直接利用用戶熟悉的各種流行的C語(yǔ)言編譯器，將應(yīng)用程序編譯成可執(zhí)行的文件在AutoCAD環(huán)境下運(yùn)行，這種可以在AutoCAD環(huán)境中直接運(yùn)行的可執(zhí)行文件叫做ADS應(yīng)用程序。它是一種表處理語(yǔ)言，是被解釋執(zhí)行的，任何一個(gè)語(yǔ)句鍵入后就能馬上執(zhí)行，它對(duì)于交互式的程序開(kāi)發(fā)非常方便。它允許用戶和開(kāi)發(fā)者采用高級(jí)編程語(yǔ)言對(duì)其進(jìn)行擴(kuò)充和修改，即二次開(kāi)發(fā)，能最大限度地滿足用戶的特殊要求。這些操作在程序開(kāi)發(fā)成功后向其它AutoCAD系統(tǒng)上安裝應(yīng)用，特別是需要大批安裝時(shí)，需要進(jìn)行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設(shè)置等繁瑣工作，如能令上述工作全部自動(dòng)進(jìn)行，使整個(gè)二次開(kāi)發(fā)程序在無(wú)人干預(yù)的情況下嵌入系統(tǒng)，將大大提高工作效率。（3），如在啟動(dòng)時(shí)立即裝入一些文件等。 開(kāi)發(fā)工具的選擇 AutoCAD的二次開(kāi)發(fā)主要涉及以下內(nèi)容：（1）編寫(xiě)各種用戶自定義函數(shù)并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。微機(jī)式功能上稍顯劣勢(shì)，但現(xiàn)在高端配置的微機(jī)性能已遠(yuǎn)遠(yuǎn)超過(guò)原來(lái)的工作站，并已接近現(xiàn)在的低檔工作站性能，微機(jī)已有很好的運(yùn)算和圖形處理能力，能勝任二維繪圖工作和一般的三維CAD和CAE/CAPP/CAM工作，價(jià)格的低廉更是非常的適合個(gè)人實(shí)際使用。 同時(shí)，CAD又分為工作站式和微機(jī)式。 目前，在我國(guó)市場(chǎng)上銷售的各類CAD軟件中，最有代表性的CAD系統(tǒng)是美國(guó)Autodesk公司開(kāi)發(fā)的具有三維功能的通用二維CAD繪圖軟件AutoCAD，是當(dāng)前最普及的二維CAD平臺(tái)軟件之一。 3研究利用VBA開(kāi)發(fā)工具，實(shí)現(xiàn)由拉刀自動(dòng)生成符合機(jī)械制圖要求的二維工程技術(shù)圖樣的功能。 為了實(shí)現(xiàn)這個(gè)目標(biāo)，本文圍繞建立圓孔拉刀設(shè)計(jì)平臺(tái)展開(kāi)深入地研究，主要研究?jī)?nèi)容如下: 1分析拉刀工作部分的設(shè)計(jì)過(guò)程，選取相關(guān)數(shù)據(jù)并建立設(shè)計(jì)流程，實(shí)現(xiàn)拉刀工作部形分的結(jié)構(gòu)尺寸設(shè)計(jì)計(jì)算自動(dòng)化。 論文研究的主要內(nèi)容 通過(guò)對(duì)拉刀傳統(tǒng)設(shè)計(jì)和制造技術(shù)分析，在對(duì)基于特征的參數(shù)化技術(shù)和交互式繪圖