840D常用编程实例

. 使用200铣刀加工9002000平面.XPMN05 G00 G17 G54 G90 Z200N10 X-110 Y90N15 M3 S150 F500/N20 GOTOF AAAN25 Z4N30 G01 X2000N35 Y270N40 X0N45 Y450N50 X2000N55 Y630N60 X0N65 Y810N70 X2000N75 G00 Z100N80 X-110 Y90AAA:Z0N85 G01 X2000N90 Y270N95 X0N100 Y450N105 X2000N110 Y630N115 X0N120 Y810N125 X2000N130 G00 Z100 M05N135 M02图17利用无限循环，使用200铣刀加工9002000平面XPM1N05 G00 G17 G54 G90 Z200N10 X-110 Y90N15 M3 S150 F500N20 Z4N25 AAA: G01 X2000N30 Y=IC(180)N35 X0N40 Y=IC(180)N45 GOTOB AAAN50 M02图18(2)条件转向条件语句形式为：“IF 条件表达式 GOTOB/GOTOF 跳转标记名”。当条件满足，程序将会跳转到指定的目标。条件表达式所用的条件运算符包括： =（等于）、(不等于)、（大于）、=(大于等于)、(小于)、-10 GOTOB AAG00 Z100 M5M02左下角为：X0、Y0 上面为：Z020铣刀加工螺旋铣孔XKN05 T1N10 G00 G54 G90 Z200N15 M03 S2000 F500; 1N20 TRANS X100 Y100N25 R1=35N30 XK1N35 TRANS; 2N40 TRANS X100 Y900N45 R1=35N50 XK1N55 TRANS; 3N60 TRANS X750 Y900N65 R1=30N65 XK1N70 TRANS; 4N75 TRANS X750 Y100N80 R1=30N85 XK1N90 TRANS; 5TRANS X1400 Y100N100 R1=25N105 XK1N110 TRANS; 6TRANS X1400 Y900N120 R1=25N125 XK1N130 TRANSG00 Z200 M05M02子程序XK1X0 Y0Z5G01 G41 X19 D1Z0G03 X19 Y0 Z-20 I-19 J0 TURN=9G03 I-19G01 G40 X0G00 Z5G01 G41 X=R1 D1Z0G03 X=R1 Y0 Z-20 I= -R1 J0 TURN=9G03 I= -R1G01 G40 X0G00 Z200M17ZK(钻孔)N05 G00 G54 G90 Z100N10 X0 Y0 N15 M03 S500 F100N20 MCALL CYCLE83（100，0，5，-55，-8，2，1）N25 HOLES2（0，0，300，100，10，35）N30 MCALLN35 G00 Z100 M05M02GS(攻丝)N05 G00 G54 G90 Z100N10 X0 Y0 N15 M03 S50 F125N20 MCALL CYCLE840（100，0，5，-55，4，3，1）N25 HOLES2（0，0，300，100，10，35）N30 MCALLN35 G00 Z100 M05M02椭圆参数方程：X=30COS（） Y=20SIN（）程序如下O0001R1=0N005 G00 G54 G90 Z100N010 X60 Y0N015 M03 S600 F500N020 Z-5N025 G42 X45 Y-15N030 G02 X30 Y0 CR=15AA: R1=R1+1N035 G01 X=30*COS（R1） Y=20*SIN（R1）N040 IF R1360 GOTOB AAN045 G02 X45 Y15 CR=15N050 G00 G40 X60 Y0N055 Z200 M05M30G54 X0 Y0 孔中心，Z0 上表面。R4：角度变量（090）X=17-COS（R4）*6Z=6*（SIN（R4）-1）程序DYJ（倒圆角）N05 R4=0N10 G00 G54 G90 Z100N15 X0 Y0N20 Z3 M03 S4000 F1000AA：R4=R4+2N25 G01 Z=6*（SIN（R4）-1）N30 X=17-COS（R4）*6N35 G02 I= COS（R4）*6-17N40 IF R490 GOTOB AAN45 G00 Z100 M05N50 M02程序（使用变量）DYJ（倒圆角）R1=倒角孔直径R2=倒角圆半径R3=刀半径R4=角度变量N05 G00 G54 G90 Z200N10 X0 Y0N15 Z3 M03 S4000 F2000AA：R4=R4+2N20 G01 Z=（SIN（R4）-1）*（R2+R3）N25 X=R1/2+R2-COS（R4）*（R2+R3）N30 G02 I=COS（R4）*（R2+R3）-R1/2-R2N35 IF R490 GOTOB AAN40 G00 Z100 M05M02XYZN05 T1 G17N10 R1=0.01 R2=0N15 G00 G54 G90 Z100N20 X40 Y0N25 Z=R2N30 M3 S2000 F1000AA: G01 G42 X=R1 D1N35 G03 I-R1N40 R1=R1+0.5 R2=R2-1N45 G40 G01 X=40 Z=R2N50 IF R125 GOTOB AAN55 G00 Z100 M5M02设定；20中心为X0、Y0。 25尺寸右端为Z0。使用20、R0.8平面铣刀加工。程序：AAAN05 T1N10 G00 G54 G90 Z100N15 X0 Y0N20 M03 S3000 F500N25 Z5N30 G01 G41 X10 Y0 D1N35 Z0N40 G02 X10 Y0 Z-15 I-10 J0 TURN=14N45 I-10N50 G01 G40 X40N55 Y5N60 R1=0BB：R1=R1+0.5N65 Z=-15-COS（R1）10N70 G01 G41 X=10+SIN（R1）10 D1N75 Y0N80 G02 I=-10- SIN（R1）10N85 G01 Y-5N90 G40 X40N95 Y5N100 IF R190 GOTOB BBN105 G00 Z100 M05M02SRN05 R1=10（圆半径）N10 R2=4（刀半径）N15 R3=30（坐标旋转）N20 R10=0 （变量）N25 G00 G19 G54 G90 Z200N30 ROT Z=R3N35 X101 Y=-R1-R2N40 M3 S2000 F1500N45 Z=R1+5N50 G01 Z=-R2II：R10=R10-0.2N55 G01 X=101+R10N60 G02 Y=R1+R2 CR=R1+R2N65 R10=R10-0.2N70 G01 X=101+R10N75 G03 Y=-R1-R2 CR=R1+R2N80 IF R10=0 GOTOB II N85 ROTN90 G00 G17 Z200 M05M02DYJN05 T1N10 R1=30 R2=2 R3=4 R4=0N20 G00 G54 G90 Z200N25 X=R1+R3+3 Y5N30 M03 S3000 F2000N35 Z2AA：R4=R4+1.5N40 $TC_DP61，1=（R3+R2）COS（R4）-R2N45 G01 Z=（R2+R3）（SIN（R4）-1）N50 G42 X=R1 D1N55 Y20N60 G03 X20 Y30 CR=10N65 G01 X0N70 Y0N75 X30N80 Y5N85 X=R1+$TC_DP61，1N90 IF R4=90 GOTOB AAN95 G00 Z200 M05M02QQQN05 CFTCPN10 R1=0N15 G00 G54 G90 G64 Z100N20 X60 Y-60N25 M03 S3000 F2000AB：R1=R1+3N30 R2=SIN（R1）6N35 R3=COS（R1）6N40 $TC_DP61，1=（R2-2）N45 G01 Z=