盤形凸輪輪廓數(shù)控編程說(shuō)明書

1、盤形凸輪輪廓數(shù)控編程說(shuō)明書引言：隨著計(jì)算機(jī)的應(yīng)用日益廣泛，在凸輪機(jī)構(gòu)的設(shè)計(jì)中采用計(jì)算機(jī)輔助設(shè)計(jì)的方法已日益普遍。它不僅使設(shè)計(jì)工作量大為減少，設(shè)計(jì)速度大為提高，而且可大大提高凸輪廓線的設(shè)計(jì)精度，從而更好的滿足設(shè)計(jì)要求。凸輪的分類：1 .凸輪按形狀分類可以分為：盤狀凸輪(platecam)：具有變化半徑盤狀體，從動(dòng)在垂直于凸輪的平面內(nèi)作移動(dòng)或擺動(dòng)。楔形移動(dòng)凸輪(wedgecam)：將盤形凸輪一個(gè)扇形部分繞在圓錐上錐形凸輪，即在圓錐體上開(kāi)有曲線槽，從動(dòng)件運(yùn)動(dòng)與圓柱凸輪相同。柱狀凸輪(cylindricalcam)：移動(dòng)凸輪繞在圓柱體上一圓柱凸輪。實(shí)際上是在圓柱體上開(kāi)有曲線槽端面上做成曲面形狀，從動(dòng)件

2、與在凸輪軸同一平面或平行平面內(nèi)移動(dòng)，擺動(dòng)。2 .按從動(dòng)件與凸輪的接觸形式分類可以分為：尖底從動(dòng)件(aknifeedgefollower)：點(diǎn)接觸,易磨損，傳力不大。2.滾子從動(dòng)件(arollerfollower)：線接觸：磨損小，傳力大平底從動(dòng)件(aflat-facefollower)：平面接觸，接觸處易形成油膜，高速。7/283 .按從動(dòng)件的運(yùn)動(dòng)形式分類可以分為：往復(fù)移動(dòng)凸輪機(jī)構(gòu)(reciprocating)擺動(dòng)凸輪機(jī)構(gòu)(oscillating)4 .按鎖合方法分類可以分為：力封閉(彈簧、重力)形封閉(槽形、等寬矩形、等徑、共枕)凸輪設(shè)計(jì)的現(xiàn)狀傳統(tǒng)的盤形凸輪設(shè)計(jì)主要有圖解法和解析法。圖解法直

3、觀簡(jiǎn)單，但是手工作圖選取的等分?jǐn)?shù)有限、精度差。以此為基礎(chǔ)的手工畫線加工表面精度都比較低。對(duì)于從動(dòng)件運(yùn)動(dòng)規(guī)律復(fù)雜，精度要求高的凸輪，手工操作難以勝任。隨著計(jì)算機(jī)技術(shù)的日益發(fā)展，用解析法使繪制從動(dòng)件運(yùn)動(dòng)規(guī)律復(fù)雜，精度要求高的凸輪成為可能，并得到日益廣泛的應(yīng)用。本人這次嘗試在解析法的基礎(chǔ)上，借助VB6.0編制了一個(gè)簡(jiǎn)化的對(duì)心滾子從動(dòng)件盤形凸輪設(shè)計(jì)軟件。一個(gè)凸輪機(jī)構(gòu)的完整設(shè)計(jì)過(guò)程大體包括以下內(nèi)容：1 .根據(jù)使用場(chǎng)合和工作要求，選擇凸輪機(jī)構(gòu)的類型2 .根據(jù)工作要求選擇或設(shè)計(jì)從動(dòng)件的運(yùn)動(dòng)規(guī)律3 .根據(jù)機(jī)構(gòu)的具體結(jié)構(gòu)條件，初選凸輪的基圓半徑設(shè)計(jì)的目標(biāo)是保證凸輪機(jī)構(gòu)在既滿足工作對(duì)從動(dòng)件的運(yùn)動(dòng)要求乂具有良好的受

4、力狀況的前提下，機(jī)構(gòu)的結(jié)構(gòu)盡可能緊湊。凸輪機(jī)構(gòu)計(jì)算機(jī)輔助設(shè)計(jì)在很大程度上彌補(bǔ)了單一CAD系統(tǒng)的不足。因此，凸輪機(jī)構(gòu)計(jì)算機(jī)輔助設(shè)計(jì)的發(fā)展空間是十分巨大的。1數(shù)控技術(shù)課程設(shè)計(jì)的目的：數(shù)控技術(shù)課程設(shè)計(jì)是機(jī)電專業(yè)教學(xué)活動(dòng)的一個(gè)重要的實(shí)踐環(huán)節(jié)，是對(duì)學(xué)生所學(xué)數(shù)控技術(shù)課程和其它有關(guān)課程知識(shí)和技能的一次綜合性練習(xí)，旨在使之鞏固，充實(shí)，系統(tǒng)化，并得到進(jìn)一步擴(kuò)展。課程設(shè)計(jì)是培養(yǎng)學(xué)生理論聯(lián)系實(shí)際，解決生產(chǎn)實(shí)際問(wèn)題的機(jī)會(huì)。通過(guò)對(duì)數(shù)控機(jī)床典型部件的結(jié)構(gòu)設(shè)計(jì)和零件編程的集體問(wèn)題的解決，使學(xué)生對(duì)數(shù)控機(jī)床的結(jié)構(gòu)原理，設(shè)計(jì)方法以及用編程方法處理實(shí)際問(wèn)題的一般步驟和集體技巧得到訓(xùn)練，提高運(yùn)用所學(xué)專業(yè)知識(shí)分析問(wèn)題和解決問(wèn)題的能力。

5、2設(shè)計(jì)任務(wù)：平面凸輪的數(shù)控加工程序的編制：設(shè)有凸輪如圖1所示。凸輪轉(zhuǎn)角t與從動(dòng)件位移s的關(guān)系即凸輪輪廓的展成平面圖如圖2所示。要求分析凸輪的曲線規(guī)律，設(shè)計(jì)一個(gè)軟件能夠用于平面凸輪的參數(shù)化繪圖和生成數(shù)控加工的代碼。即：1 .有一個(gè)凸輪設(shè)計(jì)的友好界面；圖12 .能夠按照用戶要求生成凸輪的曲線輪廓，對(duì)于非圓幾何形狀可采用直線或圓弧逼近的方法生成曲線；3 .能夠生成數(shù)控代碼；圖2凸輪設(shè)計(jì)中涉及的有關(guān)參數(shù)可自行設(shè)定，或參考圖2中的參數(shù)。3設(shè)計(jì)的主要問(wèn)題：(1.如何通過(guò)計(jì)算機(jī)得出用戶所需的凸輪圖形。在數(shù)控編程的學(xué)習(xí)中，我們學(xué)習(xí)過(guò)幾種非圓曲線逼近的方法：1)等間距直線逼近法，2)等弦長(zhǎng)直線逼近法，3)等誤差

6、直線逼近法,4)圓弧逼近法。鑒于等間距直線逼近法比較簡(jiǎn)單、易懂，而其余三種方法非常復(fù)雜，故本人采用了等間距直線逼近法作曲線的形狀。下而對(duì)此方法作簡(jiǎn)要介紹：等間距直線逼近法是使每一個(gè)程序段中的某一個(gè)坐標(biāo)的增量相等。右圖表示加工一個(gè)凸輪時(shí)，x坐標(biāo)按等間距分段時(shí)結(jié)點(diǎn)的分布情況。將xlx7的值代入方程y=f(x),可求得ylyl4的值，從而得到結(jié)點(diǎn)A1A14的坐標(biāo)值。把A1A2、A2A3A14A1用直線連起來(lái)，即可得到曲線圖形。間距大小一般根據(jù)零件加工精度要求憑經(jīng)驗(yàn)選取。求出結(jié)點(diǎn)坐標(biāo)后再驗(yàn)算逼近誤差是否小于允許值。等間距法計(jì)算簡(jiǎn)單，但由于取定的間距應(yīng)保證曲線曲率最大處的逼近誤差小于允許值，所以程序可能

7、過(guò)多。因?yàn)槟壳皵?shù)控機(jī)床的精度一般為0.01,故在本軟件中，我采用的間距為0.1mm,即x軸每隔0.1mm取一個(gè)點(diǎn)，(如圖代碼，endl是指所畫圓弧的開(kāi)始點(diǎn)，str是終點(diǎn)，step。.1指每0.1個(gè)單位畫一個(gè)點(diǎn)，利用循環(huán)語(yǔ)句畫出所要求曲線)Fori=0To(endl-str)Step0.1X=iY=h-h*(endl-str)-i),2/(endl-str)2FrmView.FicView2.FSet優(yōu)RGB0,0)ptx(low)=(radius+(Gao+Y)*SinCQtuan+i)*PI/180)pty(low)=fradms+(Gao+Y)*Cos(Qtuan+i)*FI/180)Fr

8、mView.FicViewl.FSet(ptx(low)ptyCLow)RGB(1000,口0),as(2.如何得到NC加工代碼。要生成NC代碼，可以用AutoCAD內(nèi)嵌的Autolisp進(jìn)行轉(zhuǎn)化成DXF文件，然后把此文件導(dǎo)入MsterCAM中生成NC代碼。但這樣很麻煩！由于題目的凸輪加工也比較簡(jiǎn)單，所以我決定用VB直接編寫NC代碼，以便本軟件更加人性化。當(dāng)然，編寫出來(lái)的代碼，不能像MasterCAM生成的那樣完善。不過(guò)，無(wú)論你用哪種方法得到NC代碼,其主體部分肯定相同的。所以，對(duì)于自行編寫出的NC代碼，我們稍加修改也一樣可以達(dá)到目的。(見(jiàn)主要程序說(shuō)明或所附源代碼)4凸輪曲線及輸入?yún)?shù)的確定：

9、凸輪從動(dòng)件的運(yùn)動(dòng)規(guī)律所用數(shù)學(xué)表達(dá)式的形式常用的主要有多項(xiàng)式運(yùn)動(dòng)規(guī)律和三角函數(shù)運(yùn)動(dòng)規(guī)律兩大類。I多項(xiàng)式運(yùn)動(dòng)規(guī)律sC()+C5+.+Cnn(11)式中5為凸輪的轉(zhuǎn)角；S為凸輪從動(dòng)件位移；c。、6、。2、為待定系數(shù)。而常用的有以下幾種多項(xiàng)式運(yùn)動(dòng)規(guī)律。(1)一次多項(xiàng)式運(yùn)動(dòng)規(guī)律(速度為常數(shù))s=C0+v=coCx(1-2)dt=蟲=0dt圖3-7等速運(yùn)動(dòng)規(guī)律設(shè)取邊界條件盤形凸輪輪廓數(shù)控編程說(shuō)明書在起點(diǎn)處5=0,5=0.在終點(diǎn)處萬(wàn)=。0，s=h.則由式（1-2）可得q=o,chb/b。,故從動(dòng)件推程的運(yùn)動(dòng)方程為s=/?5/5。,回程時(shí)h取負(fù)值。二次多項(xiàng)式運(yùn)動(dòng)規(guī)律（加速度為常數(shù)）等加速運(yùn)動(dòng)方程：/北字等減速

10、運(yùn)動(dòng)方程：s=h2”區(qū)）/缶；圖3-8等加速等減速運(yùn)動(dòng)規(guī)律n三角函數(shù)運(yùn)動(dòng)規(guī)律余弦加速度運(yùn)動(dòng)規(guī)律(簡(jiǎn)諧運(yùn)動(dòng)規(guī)律)(2)從動(dòng)件的加速度余弦規(guī)律變化，其運(yùn)動(dòng)方程為:3) )s=Zzlcos(5/)/2圖3-9余弦加速度運(yùn)動(dòng)規(guī)律、人，4) 正弦加速度運(yùn)動(dòng)規(guī)律(擺線運(yùn)動(dòng)規(guī)律)從動(dòng)件的加速度按正弦規(guī)律變化，其運(yùn)動(dòng)方程為：s=/方)-S111(27/否C/2兀、9/28盤形凸輪輪廓數(shù)控編程說(shuō)明書圖3-10正弦加速度運(yùn)動(dòng)規(guī)律其中：等速運(yùn)動(dòng)：極大的沖擊；等加速、等減速：沖擊較大；余弦加速度運(yùn)動(dòng)：沖擊力較?。徽壹铀俣冗\(yùn)動(dòng)：沒(méi)沖擊。由于凸輪的曲線函數(shù)還有很多，如五項(xiàng)式、高次方、諧波等，在此不作為設(shè)計(jì)的范圍，而對(duì)于

11、凸輪的具體運(yùn)用場(chǎng)合如對(duì)心直推，偏置直動(dòng)推桿盤狀凸輪機(jī)構(gòu)，擺動(dòng)推桿，平底推桿等情況也不予考慮，同時(shí)也忽略了對(duì)設(shè)計(jì)完成的凸輪的沖擊力情況的討論。5設(shè)計(jì)的思路及步驟：基于上述觀點(diǎn)，在輸出DXF文件方面，在此本人用第二種方法,直接編寫DXF文件。而題目要求此軟件要有一個(gè)友好的界面，VisualBasic語(yǔ)言完全能達(dá)到這個(gè)要求。軟件實(shí)現(xiàn)的功能是接受用戶輸入，作出平面凸輪圖形，輸出DXF文件及NC代碼。具體的步驟是一、設(shè)計(jì)用戶界面。在VisualBasic6.0中，界面的設(shè)計(jì)是輕而易舉的事情。在這二、就不加以介紹，而我這次設(shè)計(jì)的“平面凸輪計(jì)算機(jī)輔助設(shè)計(jì)”軟件界而有兩類，一是接受用戶輸入凸輪的主參數(shù)及圖形的

12、窗口，二是導(dǎo)出NC代碼的數(shù)控參數(shù)輸入窗口。主界而如下圖:接受用戶輸入，生成凸輪圖形。在軟件中，我提供了凸輪設(shè)計(jì)中所用到的最基本的五條曲線方程11 / 28盤形凸輪輪廓數(shù)控編程說(shuō)明書給用戶選擇，曲線方程的重復(fù)無(wú)限次。其中的關(guān)鍵的如何把輸入的方程首尾相接，形成凸輪。而我是從凸輪的展開(kāi)圖入手的。因?yàn)橐斎氲那€都有一個(gè)共同特征，x=0時(shí)，f(x)=O。所以我編程時(shí)使上一次輸入曲線的末點(diǎn)坐標(biāo)成為下一次輸入曲線的原點(diǎn)，問(wèn)題就解決了。即如下代碼：設(shè)定范圍area=Vai(NuinEnd)tch=tch+h(NumEnd是指本次輸入曲線的終點(diǎn)，area是指后一條曲線的開(kāi)始點(diǎn)，即把本次的終點(diǎn)作為后段曲線始點(diǎn))

13、如下圖：L-Em.f曲線類型L口X正弦加速度運(yùn)動(dòng)方程輸S=h6/6o-sin(27T5/8o)/2H葉加田和軍J角度范圉后段始點(diǎn)余您加速度運(yùn)動(dòng)方程S=h 1-cos ( h S / 6 o) /2然后把展開(kāi)圖的直角坐標(biāo)系轉(zhuǎn)換為平面圖的極坐標(biāo)系即可得到凸輪真實(shí)的圖形。為了下一步輸入DXF文件及NC代碼，所以我定義了一個(gè)全局靜態(tài)數(shù)組把作圖時(shí)得到的點(diǎn)保存起來(lái)。一、輸入DXF圖形交換文件及NC加工代碼。有了上面留下來(lái)的點(diǎn)的數(shù)值，只要編寫好接口程序，就可以得到DXF文件，NC代碼了。中以循環(huán)的方法可以很容易實(shí)現(xiàn)。如代碼：=G-adius+(Gao+)*Sin(Huan+i)+PI/180)G曲瀛京1嗎*

14、:家叫？U篇得3黑IrSetLptx(lowptyljLowJRGB(.1000,0J“編NC代碼時(shí)所取的點(diǎn)MMBaiMMMBFori=1To3599JzPrint#1?”?。籐TrimCRTrim(j/ZGOl;K;LTrim(RTrim(Format$l：?X(i)?#.#);_Y;LTrimCRTrim(Format$(pzy(i),NN#.NN片j)至于DXF文件的格式請(qǐng)參閱“設(shè)計(jì)的主要問(wèn)題”部分。24 / 286流程圖:五流程圖選擇保存路徑導(dǎo)出曲線圖7使用步驟說(shuō)明及效果圖:輸入凸輪各基本參數(shù)基本參數(shù)輸入基圓半徑I5um升程mm段數(shù)確定重役參數(shù)2、選擇運(yùn)動(dòng)曲線類型選擇輸入曲線的類型;3

15、、輸入NC加工參顯示槿式.I線4、選擇NC代碼保存路徑5、生成NC代碼B凸輪代碼1-記事本文件編輯（1）格式查看幫助N1OOG17G40G49G80N101t106T01N102G0OG90G5UD01X.Y.Z50Sie00M3N103Z2F250M10UG01Z-2F100N105G81X.V.M106G81X.V.N107G81X.V.N108G01X.V.N109G01X.V.N110G81X.V.N111G01X.V.M112G81X.V.H113G81X.V.H114G01X.V.H115G01X.V.8設(shè)計(jì)心得體會(huì)：在完成數(shù)控技術(shù)課程設(shè)計(jì)之際，本人想談?wù)勛约旱囊恍┬牡皿w會(huì)。首先要

16、衷心感謝老師給予的指導(dǎo)，同時(shí)由于本人的水平有限，所以大部分的設(shè)計(jì)是參考師兄的成果。在此，我要感謝他們。課程設(shè)計(jì)的過(guò)程中，因?yàn)閷I(yè)基礎(chǔ)不好，本人遇到了很多麻煩。為此，本人翻閱了很多書籍。譬如說(shuō)上個(gè)學(xué)期學(xué)的機(jī)械原理這本書，了解凸輪的機(jī)構(gòu)及其設(shè)計(jì)。然后是江志文先生主編的VisualBasic程序設(shè)計(jì)教程。弄清楚凸輪設(shè)計(jì)中使用的插補(bǔ)原理的相關(guān)程序。我得到了很多同學(xué)的幫助，在此，我衷心的感謝他們！作為機(jī)械工程系的將要畢業(yè)的學(xué)生，我覺(jué)得能做類似的課程設(shè)計(jì)是十分有意義，而且是十分必要的。在已度過(guò)的大三的時(shí)間里我們大多數(shù)接觸的是專業(yè)基礎(chǔ)課。我們?cè)谡n堂上掌握的僅僅是專業(yè)基礎(chǔ)課的理論面，如何去鍛煉我們的實(shí)踐面？我

17、想這個(gè)數(shù)控技術(shù)的課程設(shè)計(jì)就為我們提供了良好的實(shí)踐平臺(tái)，使我們學(xué)會(huì)綜合運(yùn)用我們學(xué)過(guò)的專業(yè)知識(shí)做學(xué)問(wèn)，使我們學(xué)會(huì)通過(guò)查閱資料的方法去解決現(xiàn)實(shí)生活中遇到的問(wèn)題.為了讓自己的設(shè)計(jì)更加完善，更加符合工程標(biāo)準(zhǔn)，一次次翻閱機(jī)械設(shè)計(jì)手冊(cè)是十分必要的，同時(shí)也是必不可少的。我們是在作設(shè)計(jì)，但我們不是藝術(shù)家。他們可以拋開(kāi)實(shí)際，盡情在幻想的世界里翱翔，我們是工程師，一切都要有據(jù)可依.這次課程設(shè)計(jì)大作業(yè)讓我深刻領(lǐng)會(huì)到：我們平時(shí)要認(rèn)真對(duì)待我們的專業(yè)課程，要有嚴(yán)謹(jǐn)?shù)膶W(xué)習(xí)態(tài)度。譬如說(shuō)這次作業(yè)中，在VB編程中浪費(fèi)了很多時(shí)間，假如當(dāng)初的VB基礎(chǔ)比較好的話，就不至于這樣。所以，我們不但要學(xué)號(hào)專業(yè)知識(shí)，而且要多學(xué)專業(yè)知識(shí)，以有利于以

18、后個(gè)人的發(fā)展！由于時(shí)間較緊，設(shè)計(jì)難免有許多不足的地方。譬如畫凸輪的函數(shù)方程式有限,缺乏具體分析其函數(shù)式的組合情況，有時(shí)生成的凸輪曲線之間連接處并非圓滑過(guò)渡，會(huì)帶來(lái)很大的沖擊力，因此要進(jìn)行后處理才能使用。在判斷輸入?yún)?shù)是否合理，和一些出錯(cuò)處理上還不夠完善，因此還有很多地方需要改進(jìn)的。還請(qǐng)老師批評(píng)指正！9我的意見(jiàn)和建議:首先，由于關(guān)于這方面的課程設(shè)計(jì)比較陌生，希望老師能夠多點(diǎn)抽時(shí)間指導(dǎo)我們。其次，由于課程設(shè)計(jì)任務(wù)較重，如果幾個(gè)同學(xué)組合完成就更好了。附部分源程序模塊OptionExplicitPublicptx(3600)AsDouble曲線存儲(chǔ)點(diǎn)數(shù)組Publicpty(3600)AsDouble由

19、于存儲(chǔ)最終輸出的點(diǎn)Pub1ic1owAsDoub1e，數(shù)組下標(biāo)PubliccountnumAsInteger，存儲(chǔ)當(dāng)前為第幾段曲線輸入的值PublicConstPI=3.14159PublicareaAsDouble，存儲(chǔ)角度范圍的值PublicschAsDouble總升程PublictchAsDouble，輸入曲線的推程Pub1icHuanAsDoub1e5坐標(biāo)變換數(shù)據(jù)Pub1icGaoAsDoub1ePublicalAsString,a2Asstring,a3AsstringPublicblAsDoub1ePub1icsavetimeAsDoub1ePubliciAsDoubleFrmVi

20、ew主窗口OptionExplicitDimj%PublicbchAsString,zbxAsString,NIAsInteger,sdAsStringPrivateSubCmbSlect_Click()選擇曲線類型SelectCaseCmbSlect.ListindexCase。等加速運(yùn)動(dòng)dengjiasu.NumStr.Text=清空Text文本框dengjiasu.NumEnd.Text二dengjiasu.NumH.Text二dengjiasu.NumStr.Text=area設(shè)定default范圍dengjiasu.NumStr.Enabled=Falsedengjiasu.NumE

21、nd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionThen,最后一段曲線dengjiasu.NumEnd.Text=360輸入時(shí)，自動(dòng)輸入dengjiasu.NumEnd.Enabled=False默認(rèn)值dengjiasu.NumH.Text二一blEndlfdengjiasu.ShowlCasel等速運(yùn)動(dòng)dengsu.NumStr.Text二dengsu.NumEnd.Text二dengsu.NumH.Text二dengsu.NumStr.Text=areadengsu.NumStr.Enabled=Falsedengsu.NumEnd.En

22、abled=TrueIfCountAll.Caption=CountNow.CaptionThendengsu.NumEnd.Text=360dengsu.NumEnd.Enabled=Falsedengsu.NumH.Text二一blEndlfdengsu.ShowlCase2,正弦加速度運(yùn)動(dòng)sinx.NumStr.Text二sinx.NumEnd.Text二sinx.NumH.Text二sinx.NumStr.Text=areasinx.NumStr.Enabled=Falsesinx.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.Capti

23、onThensinx.NumEnd.Text=360sinx.NumEnd.Enabled=Falsesinx.NumH.Text二一blEndlfsinx.ShowlCaseS）余弦加速度運(yùn)動(dòng)Cosx.NumStr.Text二Cosx.NumEnd.Text二Cosx.NumH.Text=Cosx.NumStr.Text=areaCosx.NumStr.Enabled=FalseCosx.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionThenCosx.NumEnd.Text=360Cosx.NumEnd.Enabled=False

24、Cosx.NumH.Text二一blEndlfCosx.ShowlCase4,等減速運(yùn)動(dòng)dengjiansu.NumStr.Text二dengjiansu.NumEnd.Text二dengjiansu.NumH.Text二dengjiansu.NumStr.Text=areadengjiansu.NumStr.Enabled=Falsedengjiansu.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionThendengjiansu.NumEnd.Text=360dengjiansu.NumEnd.Enabled=Falsedengj

25、iansu.NumH.Text二一blCommonDialogl.InitDir=c:CommonDialogl.FileName二凸輪代碼1.ncCommonDialogl.Filter=nc文件(*.nc)I*.nc|文本(*.txt)I*,txt|所有文件(*.*)|*.*CommonDialogl.DefaultExt二CommonDialogl.Action=2OpenCommonDialogl.FileNameForOutputAs#1j=100絕對(duì)坐標(biāo)編程IfOptionl.Value=TrueThenNC代碼的開(kāi)始部分PrintSl,Print#l,，N，;LTrim(RTri

26、m(j);，G17G40G49G80/，j=j+lPrintitl,，V;LTrim(RTrim(j);“MO6T01j=j+lPrint#l,，V;LTrim(RTrim(j);GOOG90G54”;bch;_DOIX;RTrim(LTrim(Format$(ptx(0),#.#)；_Y，z.RTrim(LTrim(Format$(pty(0),#)LTrim(RTrim(Vai(Text6)S”;LTrim(RTrim(Vai(Text4);M3”產(chǎn)j+1Print#1,;LTrim(RTrim(j);Z2”;LTrim(RTrim(Vai(Text2)sd=Val(Text8)ForM=

27、lToVal(Text8)j=j+lPrintiil,;LTrim(RTrim(j)LTrim(RTrim(Vai(Text7);LTrim(RTrim(Text1)j=j+l主要走刀部分Fori=lTo3599Printftl,V;LTrim(RTrim(j);，?GOrz;_;X”;LTrim(RTrim(Format$(ptx(i),#.#)Y;LTrim(RTrim(Format$(pty(i),#.#)j=j+lNextisd=sd+Val(Text7)NextMPrint#1,N;LTrim(RTrim(j);“G00;G40”;LTrim(RTrim(Vai(Text6)j=j+

28、lPrint#l,N;LTrim(RTrim(j);M05”j=j+lPrint”，N；LTrim(RTrim(j);“M02PrintSl,Close#lElse相對(duì)坐標(biāo)編程IfOption2.Value=TrueThenPrintSl,Print#l,，N，;LTrim(RTrim(j);，G17G40G49G80/，j=j+lPrintitl,，V;LTrim(RTrim(j);“MO6T01j=j+lPrint#l,;LTrim(RTrim(j);GOOG91G54”;bch;D01X”;RTrim(LTrim(ptx(0)；,Y；RTrim(LTrim(pty(0);LTrim(RTrim