




版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡(jiǎn)介
1、凸輪設(shè)計(jì)原、凸輪的分類直動(dòng)推桿(作往復(fù)直線運(yùn)動(dòng)往復(fù)擺動(dòng)(作往復(fù)擺動(dòng)、推桿的運(yùn)動(dòng)規(guī)律2從動(dòng)件行程hφuφsφd和進(jìn)休止角φd可以略小些,因?yàn)榛爻桃话悴皇枪ぷ餍谐?,壓力角可以大些?-11-2、運(yùn)動(dòng)曲線類型的方程表達(dá)式s CC2...C
(1-sC0v
adv (1-2 0,s0 0,sh則由式(1-2)C00C1h/0,故從動(dòng)件推程的運(yùn)動(dòng)方程為sh ,回程時(shí)h0等加速運(yùn)動(dòng)方程: 2h2/0 h )2/ 圖1-4等加速等運(yùn)動(dòng)規(guī)sh[1cos(/0)]/1-5sh[(/0)sin(2/0)/21–62、NC代碼生成的程序、凸輪曲線的數(shù)學(xué)近方法等間距直線圖2-1推桿平面圖曲線近原理將x1~x3600的值代入方程y=f(x),可求得y1~y3600的值,從而得到結(jié)點(diǎn)A1~A3600Picture23600A1~A2、A2~A3…A3600~A1用直線連起來,即可得到推桿平面圖曲線圖形。圖2-2凸輪曲線近原理在本中,采用的間距為0.1度,即推桿平面圖的x軸每隔0.1度取一個(gè)(如以下代碼,end1是指所畫圓弧的開始點(diǎn),str是終點(diǎn),step0.1指每0.1Fori=0To(end1-str)StepX=p=i-SelectCaseQxxze.ListIndexCase0Y=h*i/(end1-str)Case1Y=h*(i^2)/((end1-str)^2)Case2Y=h-h*((end1-str)-i)^2/(end1-str)^2Case3Y=h*((i/(end1-str))-Sin(2*PI*i/(end1-str))/*
CaseY=h*(1-Cos(PI*i/(end1-str)))/2EndSelectFormzhu.Picture2.PSet(X,Y),RGB(1000,0,Formzhu.Picture2.PSet(X,Y),RGB(1000,0,ptx(M)=(radius+(Gao+Y))*Sin((Huan+i)*PI/180)pty(M)=(radius+(Gao+Y))*Cos((Huan+i)*PI/180)ptx(N)=((Gao+Y)+radius)*Sin((Huan+p)*PI/180)pty(N)=((Gao+Y)+radius)*Cos((Huan+p)*PI/ M=M+N=N+、NC加工代碼生成VBForM=1Toj=j+"F";LTrim(RTrim(Val(Text1)))j=j+Fori=1ToPrint#1,"N";LTrim(RTrim(j));"G01";"X";-ptx(i-1)),"###.###")));"Y";LTrim(RTrim(Format$((pty(i)-pty(i-1)),"###.###")))j=j+1選擇完成選擇完成導(dǎo)出曲線導(dǎo)出曲線3、界面設(shè)計(jì)開發(fā)工具的選擇VisualBasic編程語(yǔ)言是一個(gè)面象的集成開發(fā)系統(tǒng),它繼承了事件驅(qū)動(dòng)、動(dòng)態(tài)數(shù)據(jù)驅(qū)動(dòng)等先進(jìn)的開發(fā)技術(shù)。VisualBasic可以在程序中用中文注釋,這在國(guó)家尤為重要。 以選擇了VisualBasic作為開發(fā)工具。人機(jī)界面的確定由輸入?yún)?shù)類型和輸出順序布局:凸輪基本參數(shù)輸入?yún)^(qū)域位于界面的右上按3-1功能模塊的劃分4、使用說明及測(cè)試情、使用說明輸入加工參數(shù),并選擇坐標(biāo)系和刀具補(bǔ)償,可生成顯示NC代碼,確定后,可以 作、測(cè)試情況:、運(yùn)行后的,登陸界4-14-24-34-4、選擇第一段曲線類型并輸入范圍和升程,確定后在Picture1和4-5、選擇第二段曲線類型并輸入范圍和升程,確定后在Picture1和4-6、選擇第三段曲線類型并輸入范圍和升程,確定后在Picture1和4-7、選擇第四段曲線類型并輸入范圍和升程,確定后在Picture1和4-84-9后點(diǎn)擊生成NC代碼顯示NC代碼,點(diǎn)擊確定保存到指定的文件夾!4-10NC4-114-124-13退出 5、設(shè)計(jì)小結(jié)VB附PrivateSubFormzhu.InR.Text= '清空TlcshuFormzhu.InN.Text=low '數(shù)據(jù)初始area=b1= Formzhu.Picture2.ScaleLeft20初始化坐標(biāo)系Formzhu.Picture2.ScaleTop=18Formzhu.Label20.Visible=False Formzhu.Label21.Visible=FalseFormzhu.Label22.Visible=FalseFormzhu.Label13.Visible=FalseFormzhu.Label14.Visible=FalseFormzhu.Label15.Visible=FalseFormzhu.Label16.Visible=FalseFormzhu.Label18.Visible=FalseFormzhu.Label23.Visible=FalseFormzhu.Label24.Visible=FalseFormzhu.InR.Enabled=TrueFormzhu.InH.Enabled=Formzhu.InN.Enabled=TrueFormzhu.Queding.Enabled=TrueFormzhu.Qxzshu.Caption=0Formzhu.Qxdxu.Caption=0Formzhu.Qxxze.Enabled=FalseFormzhu.Timer2.Enabled=TrueFormzhu.Timer3.Enabled=FalseQxcshu.ForeColor=&H0&Formzhu.Timer4.Enabled=FalseDcgneng.ForeColor=&H0&Option1.Value=Truemand3.Enabled=EndDimstrAsDouble,end1AsDouble,hAsDimiAsDouble,radiusAsDouble,savetimeAsDoubleDimXAsDouble,YAsDoubleIfQxzshu.Caption=Qxdxu.Captionmand3.Enabled=FalseFormzhu.Timer3.Enabled=FalseQxcshu.ForeColor=&H0&Formzhu.Timer4.Enabled=TrueEndIfIsNumeric(Numqdian)AndIsNumeric(Numzdian)AndIsNumeric(NumH)str=Val(Numqdian):end1=Val(Numzdian):h=Val(NumH)radius=Val(Formzhu.InR)low=10*M=N=low+Fori=0To(end1-str)Step0.1X=ip=i-Case0Y=h*i/(end1-str)Case1Y=h*(i^2)/((end1-str)^2)Case2Y=h-h*((end1-str)-i)^2/(end1-str)^2Case3Y=h*((i/(end1-str))-Sin(2*PI*i/(end1-str))/(2*PI))Case4Y=h*(1-Cos(PI*i/(end1-str)))/2EndSelectFormzhu.Picture2.PSet(X,Y),RGB(1000,0,Formzhu.Picture2.PSet(X,Y),RGB(1000,0,ptx(M)=(radius+(Gao+Y))*Sin((Huan+i)*PI/180)pty(M)=(radius+(Gao+Y))*Cos((Huan+i)*PI/180)ptx(N)=((Gao+Y)+radius)*Sin((Huan+p)*PI/180)pty(N)=((Gao+Y)+radius)*Cos((Huan+p)*PI/180)Formzhu.Picture1.Line(ptx(M),pty(M))-(ptx(N),pty(N)),RGB(1000,0,0)M=M+N=N+Formzhu.Qxxze.Enabled=IfFormzhu.Option2.Value=TrueThenFormzhu.Timer1.Enabled=TrueFormzhu.Timer1.Enabled=FalseEndIfIfFormzhu.Option1.Value=TrueThenFormzhu.Option2.Visible=TrueFormzhu.Timer1.Enabled=Falsesavetime=Timer'記下開始的時(shí)間WhileTimersavetime0.0001快速顯示savetimeTimerWhileTimersavetime0.01循環(huán)等待EndIfNextFormzhu.Qxxze.Enabled=True'顯示當(dāng)前為第幾條曲IfFormzhu.Qxzshu.Caption=Formzhu.Qxdxu.CaptionThenFormzhu.Label5.Visible=Truecountnum=countnum+1End'設(shè)定范tch=tch+hFormzhu.Picture2.ScaleTopschtchHuan=Val(Numzdian)Gao=Gao+a1=Numqdian:a2=Numzdian:a3=NumHSelectCaseQxxze.ListIndexCaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _Endb1=b1+IfGao>Val(Formzhu.InH)MsgBox超出總升程,請(qǐng)重新輸入!low '數(shù)據(jù)初始area=b1= Formzhu.Picture2.ScaleLeft20初始化坐標(biāo)系Formzhu.Picture2.ScaleTop=18Formzhu.InR.Enabled=TrueFormzhu.InH.Enabled=TrueFormzhu.InN.Enabled=TrueFormzhu.Queding.Enabled=TrueFormzhu.Qxzshu.Caption=0Formzhu.Qxdxu.Caption=0Formzhu.Qxxze.Enabled=FalseFormzhu.Option1.Value=TrueEndIfMsgBox("范圍出錯(cuò)!"),16Formzhu.Numzdian.TextEndIfMsgBox("輸入為空或有字符,請(qǐng)重新輸入!")EndIfEndPrivateSubCommand4_Click()OnErrorResumeNext Statici%DimFileSelect$=i%+j%=i%CommonDialog1.Action=2Picture2.Picture=Picture2.ImageSavePicturePicture2.Picture,EndOnErrorResumeNextStaticDimFileSelect$=i%+j%=i%CommonDialog2.Action=2Picture1.Picture=Picture1.ImageSavePicturePicture1.Picture,FileSelect$EndFormzhu.Numqdian.Text= '清空TextFormzhu.NumH.Text=""Formzhu.Numqdian.Text= '設(shè)定defaultFormzhu.Numqdian.Enabled=FalseFormzhu.Numzdian.Enabled=IfQxzshu.Caption=Qxdxu.CaptionThen Formzhu.Numzdian.Text="360" Formzhu.Numzdian.Enabled=False Formzhu.NumH.Text=-b1EndPrivateSubDimc1AsInteger,c2AsInteger,cAsIfVal(InR)<=0ThenInR=""ElseIfVal(InH)<=0InH=""ElseIfVal(InN)<=1InN=""ElseIfIsNumeric(InR.Text)And_IsNumeric(InH)AndIsNumeric(InN.Text)ThenFormzhu.InR.Enabled=FalseFormzhu.InH.Enabled=FalseFormzhu.InN.Enabled=FalseFormzhu.Queding.Enabled=FalseFormzhu.Qxxze.Enabled=Truemand3.Enabled=TruePicture1.Visible=TruePicture3.Visible=TruePicture2.Visible=True'確定Formzhu.Picture1,Picture2.Picture3c1=Val(InR)c2=c=1.2*(c1+c2)Formzhu.Picture1.Scale(-c,c)-(c,-c)Picture1.Line(0,-1.2*(c1+c2))-(0,1.2*(c1+c2)),RGB(0,128,Picture1.Line(-1.2*(c1+c2),0)-(1.2*(c1+c2),0),RGB(0,128,Fori=1ToPicture1.Line(0+i*((c1+c2)/10),0)-(0+i*((c1+c2)/10),c/50),RGB(0,128,0) Picture1.Line(0-i*((c1+c2)/10),0)-(0-i*((c1+c2)/10),c/50),128,Picture1.Line(0,0+i*((c1+c2)/10))-(c/30,0+i*((c1+c2)/10)),RGB(0,128,0)Picture1.Line(0,0-i*((c1+c2)/10))-(c/30,0-i*((c1+c2)/10)),RGB(0,128,0)Picture1.Line(11.3*(c1+c2)/10,1)-(12*(c1+c2)/10,0),RGB(0,128,'畫箭Picture1.Line(11.3*(c1+c2)/10,-1)-(12*(c1+c2)/10,0),RGB(0,128,'畫箭Picture1.Line(-1,11.3*(c1+c2)/10)-(0,12*(c1+c2)/10),RGB(0,128,Picture1.Line(1,11.3*(c1+c2)/10)-(0,12*(c1+c2)/10),RGB(0,128,NextFormzhu.Label20.Visible=True Formzhu.Label21.Visible=TrueFormzhu.Label22.Visible=TrueFormzhu.Label13.Visible=TrueFormzhu.Label14.Visible=TrueFormzhu.Label15.Visible=TrueFormzhu.Label16.Visible=TrueFormzhu.Label18.Visible=TrueFormzhu.Label23.Visible=TrueFormzhu.Label24.Visible=TrueFormzhu.Picture2.Scale(-20,c2)-(540,0)Picture2.ScaleHeight=-1.1*c2Picture2.ScaleTop=c2Picture2.Line(0,0)-(0,c2),RGB(0,128,Fori=1ToPicture2.Line(0,0+i*(c2/4))-(5,0+i*(c2/4)),RGB(0,128,0)NextiPicture2.Line(0,0)-(540,0),RGB(0,128,Fori=1ToPicture2.Line(0+i*(360/8),0)-(0+i*(360/8),c2/24),RGB(0,128,NextPicture2.Line520,c212)-(540,0RGB(0,128 '畫箭Picture2.Line520,c212)-(540,0RGB(0,128 '畫箭Formzhu.Timer2.Enabled=FalseTlcshu.ForeColor=&H0&Formzhu.Timer3.Enabled=TrueFormzhu.Qxzshu.CaptionInN.TextFormzhu.Qxdxu.Caption=1countnum=tch=0:sch=Val(InH)Huan=0:Gao=0Formzhu.Picture3.Print" ";"基圓半徑";":";InR.TextFormzhu.Picture3.Print" ";"升程";":";InH.TextFormzhu.Picture3.Print" ";"曲線段數(shù)";":";InN.Text'在Formzhu.Picture1Formzhu.Picture1.DrawStyle=Formzhu.Picture1.Circle(0,0),Val(InR),RGB(0,0,Formzhu.Picture1.DrawStyle=0MsgBox("輸入為空,或字符,請(qǐng)重新輸入"),16EndIfEndPrivateSubTimer4_Timer()IfDcgneng.ForeColor=&HFFFF&ThenDcgneng.ForeColor=&H0&jj=j+Dcgneng.ForeColor=&HFFFF&EndIfEndPrivateSubIfIsNumeric(Text1)AndIsNumeric(Text2)AndIsNumeric(Text3)And_IsNumeric(Text4)AndIsNumeric(Text5)AndIsNumeric(Text6)And_IsNumeric(Text7)AndIsNumeric(Text8)ThenDimiAsInteger,jAsDouble,fName2AsCommonDialog1.InitDir="c:\"CommonDialog1.Filternc文件(*.nc)|*.nc|文本(*.txt)|*.txt|所有文件CommonDialog1.Action=2OpenCommonDialog1.FileNameForOutputAsj='絕對(duì)坐標(biāo)編IfOption1.ValueTrueThen'NC代碼的開始部分Print#1,j=j+Print#1,"N";LTrim(RTrim(j));Print#1,"N";LTrim(RTrim(j));"G00G90G54";bch;_LTrim(RTrim(Val(Text6)));_j=j+1sd=Val(Text8)ForM=1ToVal(Text8)j=j+1LTrim(RTrim(Val(Text7)));_"F";j=j+Fori1To3599Print#1,"N";LTrim(RTrim(j));"G01";j=j+1NextNextMPrint#1,"N";LTrim(RTrim(j));"G00";"G40";j=j+1Print#1,"N";LTrim(RTrim(j));Print#1,"%"'相對(duì)坐標(biāo)編IfOption2.Value=TrueThenPrint#1,"%"j=j+j=j+1 "S";LTrim(RTrim(Val(Text4)));"M3"j=j+sd=Val(Text8)ForM=1ToVal(Text8)j=j+1"F";LTrim(RTrim(Val(Text1)))j=j+Fori=1ToPrint#1,"N";LTrim(RTrim(j));"G01";"X";LTrim(RTrim(Format((ptx(i)-ptx(i-1)),"###.###")));_"Y";LTrim(RTrim(Format$((pty(i)-pty(i-1)),"###.###")))j=j+1Nextsd=sd+Nextj=j+1j=j+1Print#1,"%"EndIfEndIfMsgBox("有字符或其它錯(cuò)誤,請(qǐng)檢查")EndIfEnd9、導(dǎo)出NC代碼模塊程序EndIfIsNumeric(Text1)AndIsNumeric(Text2)AndIsNumeric(Text3)And_IsNumeric(Text4)AndIsNumeric(Text5)AndIsNumeric(Text6)And_IsNumeric(Text7)AndIsNumeric(Text8)ThenDimiAsInteger,jAsDouble,fName2Asj='絕對(duì)坐標(biāo)編IfOption1.Value=TrueList1.AddItemj=j+1j=j+1List1.AddItem"N"<rim(RTrim(j))&"G00G90G54"&bch&_"D01X"&RTrim(LTrim(Format$(ptx(0),"###.###")))&_"Y"&RTrim(LTrim(Format$(pty(0),"###.###")))&"Z"&_LTrim(RTrim(Val(Text6)))&_j=j+1List1.AddItem"N"<rim(RTrim(j))&"Z2"&"F"&sd=ForM=1ToVal(Text8)j=j+1List1.AddItem"N"<rim(RTrim(j))&"G01Z-"<rim(RTrim(Val(Text7)))&_"F"&j=j+'主
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025年洗滌劑用4A沸石合作協(xié)議書
- 農(nóng)村新型生態(tài)農(nóng)業(yè)模式開發(fā)合作協(xié)議
- 產(chǎn)品代理銷售合同附加條款及條件
- 農(nóng)村基礎(chǔ)設(shè)施改造及維護(hù)合同書
- 金融科技產(chǎn)業(yè)創(chuàng)新發(fā)展合作合同
- 精密機(jī)械制造項(xiàng)目采購(gòu)合同
- 2025年非調(diào)質(zhì)鋼合作協(xié)議書
- 農(nóng)村新型經(jīng)營(yíng)主體培育與推進(jìn)協(xié)議
- 公文處理的效果評(píng)估試題及答案
- 企業(yè)經(jīng)營(yíng)戰(zhàn)略合作協(xié)議書
- 蓉城小史官考試試題及答案
- GA∕T 1622-2019 法庭科學(xué) 生物檢材中沙蠶毒素、殺蟲雙、殺蟲環(huán)和殺螟丹檢驗(yàn) 氣相色譜、氣相色譜-質(zhì)譜和液相色譜-質(zhì)譜法
- 國(guó)際商事仲裁法
- 區(qū)域電力系統(tǒng)規(guī)劃設(shè)計(jì)開題報(bào)告
- 汽車維修管理制度管理辦法匯編
- 半剛性路面基層材料培訓(xùn)資料
- 02-新版3合1及50430內(nèi)審檢查表
- 全國(guó)普通高等學(xué)校本專科畢業(yè)生就業(yè)協(xié)議書(填寫模板)
- ERP生產(chǎn)管理系統(tǒng)用戶手冊(cè)(共51頁(yè))
- 封條模板(A3紙)
- 無機(jī)化學(xué) 第18章 氫和稀有氣體
評(píng)論
0/150
提交評(píng)論