840D常用编程实例

1、使用200铳刀加工900 X 2000平面XPMN05 GOO G17 G54 G90 Z200N75 GOO Z100N10 X-110 Y90N80 X-110 Y90N15 M3 S150 F500AAA:Z0/N20 G0T0F AAAN85 G01 X2000N25 Z4N90 Y270N30 G01 X2000N95 X0N35 Y270N100 Y450N40 X0N105 X2000N45 Y450N110 Y630N50 X2000N115 X0N55 Y630N120 Y810N60 X0N125 X2000N65 Y810N130 GOO Z100 M05N70 X200

2、0N135 M02图17利用无限循环,使用200铳刀加工900 X 2000平面XPM1N05 GOO G17 G54 G90 Z200N10 X-110 Y90N15 M3 S150 F500N20 Z4N25 AAA： G01 X2000N30 Y= 10(180)N35 X0N40 Y= 10(180)N45 G0T0B AAAN50 M02图18（2）条件转向条件语句形式为：“IF条件表达式GOTOB/GOTOF跳转标记名”。当条件满足，程序将会跳转到指定的目标。条件表达式所用的条件 运算符包括：二二（等于）、（不等于）、 （大于）、二（大于等于）、 （小于）、二（小于等于）、AND与

3、、OR或、NOT非、XOR异或。例如：使用变量编程加工抛物线Y=10（2 ）,）Y图19PWXR1=10GOO G54 G90 Z100X10 Y50M3 S1000 F200ZOAA： R1=GO1 X=R1 Y=POT (R1)/2IF R1>-10 GOTOB AAGOO Z1OO M5M02左下角为：XO. YO 上面为：ZO<P20铳刀加工螺放铳孔XKN05 T1N10 GOO G54 G90 Z200N15 M03 S2000 F500;1N20 TRANS X100 Y100N25 R1=35N30 XK1N35 TRANS；2N40 TRANS X100 Y900N

4、45 R1=35TRANS X1400 Y100Z5N50 XK1N100 R1=25G01 G41 X19 D1N55 TRANSN105 XK1ZO;3N110 TRANSG03 X19 YO Z-20 1-19 JO TURN二9N60 TRANS X750 Y900；6G03 1-19N65 R1=30TRANS X1400 Y900G01 G40 XON120 R1=25GOO Z5N125 XK1G01 G41 X=R1 D1N65 XK1N130 TRANSZON70 TRANSGOO Z200 M05G03 X二R1 YO Z-20 l= -R1 JO TURN二9；4M02G

5、03 l= -R1N75 TRANS X750 Y100G01 G40 XON80 R1=30GOO Z200N85 XK1子程序M17N90 TRANSXK1；5XO YOZK (钻孔)N05 GOO G54 G90 Z1OON1O XO YON15 M03 S500 F1OON20 MCALL CYCLE83 (100, 0, 5, -55, -8, 2, 1)N25 H0LES2 (0, 0, 300, 100, 10, 35)N30 MCALLN35 GOO Z100 M05M02GS (攻丝)N05 GOO G54 G90 Z1OON1O XO YON15 M03 S50 F125N

6、20 MCALL CYCLE840 (100, 0, 5, -55, 4, 3, 1)N25 H0LES2 (0, 0, 300, 100, 10, 35)N30 MCALLN35 GOO Z100 M05M02Y=20XSIN (©)椭圆参数方程：X=30XCOS (®) 程序如下00001R1 二 0N005 GOO G54 G90 Z100N010 X60 YON015 M03 S600 F500N020 Z-5N025 G42 X45 YT5N030 G02 X30 YO CR=15AA： R1=R1+1N035 G01 X=30*C0S (R1) Y=20*SIN

7、 (R1)N040 IF RK360 GOTOB AAN045 G02 X45 Y15 CR=15N050 GOO G4O X60 YON055 Z200 M05M30030G54 XO YO孔中心，ZO上表而。R4：角度变量(0°90° )X=17-COS (R4) *6Z=6* (SIN (R4) -1)N30 X二17-COS (R4) *6N35 G02 l= COS (R4) *6-17N40 IF R4<90 GOTOB AAN45 GOO Z100 M05N50 M02程序DYJ (倒圆角)N05 R4二0N10 GOO G54 G90 Z100N15

8、XO YON20 Z3 M03 S4000 F1000AA: R4二R4+2程序（使用变量）N25 G01 Z=6* (SIN (R4) T)DYJ (倒圆角)R1二倒角孔直径R2二倒角圆半径R3二刀半径R4二角度变量N05 GOO G54 G90 Z200N10 XO Y0N15 Z3 M03 S4000 F2000AA: R4二R4+2N20 G01 Z= (SIN (R4) -1) * (R2+R3)N25 X=R1/2+R2-C0S (R4) * (R2+R3)N30 G02 I =COS (R4) * (R2+R3)-R1 /2-R2N35 IF R4<90 GOTOB AAN

9、40 GOO Z100 M05M02XYZN05 T1 G17N10 R1= R2二0N15 GOO G54 G90 Z1OON20 X4O YON25 Z=R2N30 M3 S2000 F1OOOAA： GO1 G42 X二R1 D1N35 G03 I-R1N4O R1=R1+ R2二R2TN45 G4O GO1 X=4O Z=R2N50 IF RK25 GOTOB AAN55 GOO Z1OO M5M0250设定：020中心为X0、YOo25尺寸右端为Z0。使用20、平面铳刀加工。程序：AAAN05T1N10GOO G54G90 Z100BB：R1=R1+N15X0 Y0N65Z二-15-

10、C0S (RD X10N20M03 S3000 F500N70G01G41 XhO+SIN (RD X10 D1N25Z5N75Y0N30G01 G41X10 Y0 D1N80G02I =-10- SIN (R1) X10N35Z0N85G01Y-5N40G02 X10Y0 Z-15 1-10 JO TURN=14N90G40X40N451-10N95Y5N50G01 G40X40N100 IFR1<90 GOTOB BBN55Y5N105 GOO Z100 M05N60R1=0M02A-AASRN05 R1=10 （圆半径）N10 R2=4 （刀半径）N15 R3=30 （坐标旋转）N

11、20 R10=0 （变量）N25 GOO G19 G54 G90 Z200N30 ROT Z=R3N35 X101 Y=-R1-R2N40 M3 S2000 F1500N45 Z=R1+5N50 G01 Z=-R2II: R10=N55 G01 X=1O1+R1ON60 G02 Y二R1+R2 CR=R1+R2N65 R10=N70 G01 X=1O1+R1ON75 G03 Y=-R1-R2 CR二R1+R2N80 IF R10>=0 GOTOB I IN85 ROTN90 GOO G17 Z200 M05M02DYJN05 T1N10 R1=30 R2=2 R3=4 R4二0N20 G

12、OO G54 G90 Z200N25 X二R1+R3+3 Y5N30 M03 S3000 F2000N35 Z2AA: R4二R4+N4O $TC DP61, 1= (R3+R2) XCOS (R4) -R2N45 GO1 Z= (R2+R3) X (SIN (R4) -1)N50 G42 X=R1 D1N55 Y20N60 G03 X20 Y30 CR=1ON65 GO1 XON70 YON75 X30N80 Y5N85 X二R1+$TC_DP61, 1N90 IF R4<=90 GOTOB AAN95 GOO Z200 M05M02AQQQN55 YON05 CFTCPN60 G03 XO Y34 CR=34N10 R1=0N65XO Y26 CR二4N15 GOO G54 G90 G64 Z1OON70 G02 X-26 YO CR二-26N20 X60 Y-60N75 G03 X-34 CRMN25 M0