《NC数控程序实例》word版.doc_第1页
《NC数控程序实例》word版.doc_第2页
《NC数控程序实例》word版.doc_第3页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

%_N_0104_MPF;$PATH=/_N_MPF_DIRN5G19G54G64N10R21=46.N15R34=0 R30=0 R36=0N20IF R70 GOTOF JP1N25R31 = TRUNC(360000 / R21 * R11) / 1000N30IF R22*R23+R13*R14+R15*R16+R17*R18+R19*R200 GOTOF STARTN35 R22=1 R23=0N40 START:N45 IF R34R11 GOTOF JP0N50 R34=0 R30=0N55 IF R6=0 GOTOF ENDN60 G91U = -R12/100F3000N65 IF R60 GOTOF JP0N70 IF R6=1 GOTOF ENDN75 R6=R6-1N80 JP0:N85 R35=R34 R32=R30 R34=R34+1N90 R30 = TRUNC(360000 / R21 * R34) / 1000N95 SK0:N110R32=R32+R31 R35=R35+R11 R36=0N115IF R32=360*R35/R21-0.0005 GOTOF JP3N135R32=R32+0.001 R31=R31+0.001N140JP3:N145IF R35=R21 GOTOF JP4N150IF R22=R35-R11-TRUNC(R35-R11)/(R22+R23)*(R22+R23) GOTOF SK1N155IF R35R13+R11 GOTOF NSK11N160IF R35R14+R13+R11 GOTOF SK1N165NSK11:N170IF R35R15+R11 GOTOF NSK12N175IF R35R16+R15+R11 GOTOF SK1N180NSK12:N185IF R35R17+R11 GOTOF NSK13N190IF R35R18+R17+R11 GOTOF SK1N195NSK13:N200IF R35R19+R11 GOTOF NSK14N205IF R35R20+R19+R11 GOTOF SK1N210NSK14:N215IF R8=0 GOTOF JP6N220IF R35=1 GOTOF SK1N225M01N230GOTOF SK1N235JP6:N240G1G91U = -R0/100F3000N245R0=0N250G1G90Z=-117.156-R4-R3*0.381097+R10F5000N255X=-82.5-R3/0.811776N260G91X-55.973U65.757Z0.N265X55.973U-65.757Z0.N270G0G90X=-82.5-R3/0.811776N275STOPREN280IF R7=R11 GOTOF JP5N340R33 = R33 + R30N345JP5:N350IF R22=R35-R11-TRUNC(R35-R11)/(R22+R23)*(R22+R23) GOTOF SK2N355IF R35R13+R11 GOTOF NSK21N360IF R35R14+R13+R11 GOTOF SK2N365NSK21:N370IF R35R15+R11 GOTOF NSK22N375IF R35R16+R15+R11 GOTOF SK2N380NSK22:N385IF R35R17+R11 GOTOF NSK23N390IF R35R18+R17+R11 GOTOF SK2N395NSK23:N400IF R35R19+R11 GOTOF NSK24N405IF R35R20+R19+R11 GOTOF SK2N410NSK24:N415IF R8=0 GOTOF JP7N420M01N425GOTOF SK2N430JP7:N435G1G91U = -R0/100F3000N440R0=0N445G1G90Z=-117.156-R4-R3*0.381097+R10F5000N450X=-82.5-R3/0.811776N455G91X-55.973U65.757Z0.N460X55.973U-65.757Z0.N465G0G90X=-82.5-R3/0.811776N470STOPREN475IF R8=0 GOTOF SK2N480R36=2N485GOTOF JP1N490SK2:N495IF R9=0 GOTOB NSK24N500G1G64G91U = R33F5000N505GOTOB STARTN510JP1:N515G0G90X0N520G90Y0F1000N525G158Y=-R3-R1/100Z=R4+R2/100-61.5N530G259RPL=0.N535G0Y3Z13N540G1Y0Z10N555G1Z-2N560IF R2=0 GOTOF JPXN565G158Y=-R3-R1/100Z=R4+R2/100-61.5N570G0Z-31.7N575G91Y-24.N580G1Y-3N585G0Y27.N590JPX:N595G158N600G0G

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论