840D常用编程实例

1、N75 G00 Z100N80 X-110 Y90AAA:Z0N85 G01 X2000N90 Y270N95 X0N100 Y450N105 X2000N110 Y630N115 X0N120 Y810N125 X2000N130 G00 Z100 M05N135 M02使用200铳刀加工900X2000平面XPMN05 G00 G17 G54 G90 Z200N10 X-110 Y90N15 M3 S150 F500/N20 GOTOF AAAN25 Z4N30 G01 X2000N35 Y270N40 X0N45 Y450N50 X2000N55 Y630N60 X0N65 Y810N7

2、0 X2000图17利用无限循环，使用200铳刀加工900X2000平面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/GOTOFB转标记名”。当条件满足，程序将会跳转到指定的目标。条件表达式所用的条件 运算符包括：=（等于）、（不等于）、 （大于）、=（大于等于）、 （小于）、=（小于等于）、AND与、OR或、N

3、OT非、XOR异或。例如：使用变量编程加工抛物线 Y=102 ）,）图19PWXR1 = 10G00 G54 G90 Z1001500X10 Y50M3 S1000 F200Z0AA: R1 =G01 X=R1 Y=POT(R2)/IF R1>-10 GOTOB AAG00 Z100 M5M02上面为：Z020铳刀加工左下角为：X0、Y0螺旋铳孔XKN15 M03 S2000 F500N05 T1；1N10 G00 G54 G90 Z200N20 TRANS X100 Y100N80 R1=30XK1N25 R1=35N85 XK1X0 Y0N30 XK1N90TRANSZ5N35TRA

4、NS;5G01 G41 X19 D1;2TRANS X1400 Y100Z0N40 TRANS X100 Y900N100 R1=25G03 X19 Y0 Z-20 I-19 J0 TURN=9N45 R1=35N105 XK1G03 I-19N50 XK1N110 TRANSG01 G40 X0N55TRANS;6G00 Z5;3TRANS X1400 Y900G01 G41 X=R1 D1N60 TRANS X750 Y900N120 R1=25Z0N65 R1=30N125 XK1G03 X=R1 Y0 Z-20 I= -R1 J0 TURN=9N130 TRANSG03 I= -R1G

5、00 Z200 M05G01 G40 X0N65 XK1M02G00 Z200N70TRANSM17;4N75 TRANS X750 Y100子程序ZK。占孔)N05 G00 G54 G90 Z100N10 X0 Y0N15 M03 S500 F100N20 MCALL CYCLE83100, 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 Y0N15 M03 S50 F125N20 MCALL CYCLE84010

6、0, 0, 5, -55, 4, 3, 1)N25 HOLES2(0, 0, 300, 100, 10, 35)N30 MCALLN35 G00 Z100 M05M02三=二三椭圆参数方程：X=30X COS ( O)程序如下O0001R1=0N005 G00 G54 G90 Z100N010 X60 Y0N015 M03 S600 F500N020 Z-5N025 G42 X45 Y-15N030 G02 X30 Y0 CR=15AA: R1=R1+1Y=20X SIN (O)N035 G01 X=30*COS R1) Y=20*SIN (R1)N040 IF RK 360 GOTOB AA

7、N045 G02 X45 Y15 CR=15N050 G00 G40 X60 Y0N055 Z200 M05M3008G54 X0 Y0孔中心，Z0上表面。R4:角度变量(0°90° )X=17-COS(R4) *6Z=6* (SIN (R4) -1)AA: R4=R4+2N25 G01 Z=6* (SIN (R4)-1)N30 X=17-COSR4) *6N35 G02 I= COSR4)*6-17N40 IF R欠 90 GOTOB AAN45 G00 Z100 M05N50 M02程序DYJ(倒圆角)N05 R4=0N10 G00 G54 G90 Z100N15 X0

8、 Y0N20 Z3 M03 S4000 F1000程序（使用变量）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=R/12+R2-COS（ R4） *（ R2+R3）N30 G02 I=CO（ SR4） *（ R2+R3） -R1/2-R2N35 IF R4： 90 GOTOB AAN40 G00 Z100 M05M02XYZN05 T1 G17N10 R1= R2=

9、0N15 G00 G54 G90 Z100N20 X40 Y0N25 Z=R2N30 M3 S2000 F1000AA: G01 G42 X=R1 D1N35 G03 I-R1N40 R1=R1+ R2=R2-1N45 G40 G01 X=40 Z=R2N50 IF RK 25 GOTOB AAN55 G00 Z100 M5M0250设定；20中心为 X0、Y0o25尺寸右端为Z0O 使用20、平面铳刀加工。程序:AAAN05 T1N10 G00 G54 G90 Z100BB:R1=R1 +N15 X0 Y0N65 Z=-15-COS (R1) X 10N20 M03 S3000 F500N7

10、0 G01 G41 X=10+SIN (R1) X 10 D1N25 Z5N75 Y0N30 G01 G41 X10 Y0 D1N80 G02 I=-10- SIN (R1) X 10N35 Z0N85 G01 Y-5N90 G40 X40N95 Y5N40 G02 X10 Y0 Z-15 I-10 J0 TURN=14N45 I-10N50 G01 G40 X40N55 Y5N100 IF RK90 GOTOB BBN105 G00 Z100 M05N60 R1=0M02AA-ASRN05 R1=10（圆半径）N10 R2=4（刀半径）N15 R3=30（坐标旋转）N20 R10=0 （变量

11、）N25 G00 G19 G54 G90 Z200N30 ROT Z=R3N35 X101 Y=-R1-R2N40 M3 S2000 F1500N45 Z=R1+5N50 G01 Z=-R2II: R10=N55 G01 X=101+R10N60 G02 Y=R1+R2 CR=R1+R2N65 R10=N70 G01 X=101+R10N75 G03 Y=-R1-R2 CR=R1+R2N80 IF R10> =0 GOTOB IIN85 ROTN90 G00 G17 Z200 M05M02DYJN05 T1N10 R1=30 R2=2 R3=4 R4=0N20 G00 G54 G90 Z

12、200N25 X=R1+R3+3 Y5N30 M03 S3000 F2000N35 Z2AA: R4=R4+N40 $TC_DP61 1= (R3+R2 X 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) X 6N35 R3=COSR1) X6N40 $TC_DP61 1= (R2-2)N