840D常用编程实例

使用Φ200铣刀加工900×2000平面XPM
N05 G00 G17 G54 G90 Z200 N10 X-110 Y90
N15 M3 S150 F500
/N20 GOTOF AAA
N25 Z4
N30 G01 X2000
N35 Y270
N40 X0
N45 Y450
N50 X2000
N55 Y630
N60 X0
N65 Y810
N70 X2000 N75 G00 Z100
N80 X-110 Y90 AAA:Z0
N85 G01 X2000
N90 Y270
N95 X0
N100 Y450
N105 X2000
N110 Y630
N115 X0
N120 Y810
N125 X2000
N130 G00 Z100 M05 N135 M02
图17
利用无限循环，使用Φ200铣刀加工900×2000平面XPM1
N05 G00 G17 G54 G90 Z200
N10 X-110 Y90
N15 M3 S150 F500
N20 Z4
N25 AAA: G01 X2000
N30 Y=IC(180)
N35 X0
N40 Y=IC(180)
N45 GOTOB AAA
N50 M02
图18
(2)条件转向
条件语句形式为：“IF 条件表达式 GOTOB/GOTOF 跳转标记名”。

当条件满足，程序将会跳转到指定的目标。

条件表达式所用的条件运算符包括： ==（等于）、<>(不等于)、>（大于）、>=(大于等于)、<(小于)、<=(小于等于）、AND 与、OR 或、NOT 非、XOR 异或。

例如：使用变量编程加工抛物线 Y=0.5X2
图19
PWX
R1=10
G00 G54 G90 Z100
X10 Y50
M3 S1000 F200
Z0
AA: R1=R1-0.1
G01 X=R1 Y=POT(R1)/2 IF R1>-10 GOTOB AA G00 Z100 M5
M02
左下角为：X0、Y0 上面为：Z0
Φ20铣刀加工螺旋铣孔
XK
N05 T1
N10 G00 G54 G90 Z200
N15 M03 S2000 F500
; 1
N20 TRANS X100 Y100 N25 R1=35
N30 XK1
N35 TRANS
; 2
N40 TRANS X100 Y900 N45 R1=35
N50 XK1
N55 TRANS
; 3
N60 TRANS X750 Y900 N65 R1=30
N65 XK1
N70 TRANS
; 4
N75 TRANS X750 Y100N80 R1=30
N85 XK1
N90 TRANS
; 5
TRANS X1400 Y100
N100 R1=25
N105 XK1
N110 TRANS
; 6
TRANS X1400 Y900
N120 R1=25
N125 XK1
N130 TRANS
G00 Z200 M05
M02
子程序
XK1
X0 Y0
Z5
G01 G41 X19 D1
Z0
G03 X19 Y0 Z-20 I-19 J0 TURN=9
G03 I-19
G01 G40 X0
G00 Z5
G01 G41 X=R1 D1
Z0
G03 X=R1 Y0 Z-20 I= -R1 J0 TURN=9
G03 I= -R1
G01 G40 X0
G00 Z200
M17
ZK(钻孔)
N05 G00 G54 G90 Z100
N10 X0 Y0
N15 M03 S500 F100
N20 MCALL CYCLE83（100，0，5，-55，，-8，，2，，，1）N25 HOLES2（0，0，300，100，10，35）
N30 MCALL
N35 G00 Z100 M05
M02
GS(攻丝)
N05 G00 G54 G90 Z100
N10 X0 Y0
N15 M03 S50 F125
N20 MCALL CYCLE840（100，0，5，-55，，，4，3，1）
N25 HOLES2（0，0，300，100，10，35）
N30 MCALL
N35 G00 Z100 M05
M02
椭圆参数方程：X=30×COS（Θ） Y=20×SIN（Θ）程序如下
O0001
R1=0
N005 G00 G54 G90 Z100
N010 X60 Y0
N015 M03 S600 F500
N020 Z-5
N025 G42 X45 Y-15
N030 G02 X30 Y0 CR=15
AA: R1=R1+1
N035 G01 X=30*COS（R1） Y=20*SIN（R1）N040 IF R1＜360 GOTOB AA
N045 G02 X45 Y15 CR=15
N050 G00 G40 X60 Y0
N055 Z200 M05
M30
G54 X0 Y0 孔中心，Z0 上表面。

R4：角度变量（0°～90°）
X=17-COS（R4）*6
Z=6*（SIN（R4）-1）
程序
DYJ（倒圆角）
N05 R4=0
N10 G00 G54 G90 Z100
N15 X0 Y0
N20 Z3 M03 S4000 F1000
AA：R4=R4+2 N25 G01 Z=6*（SIN（R4）-1）N30 X=17-COS（R4）*6
N35 G02 I= COS（R4）*6-17 N40 IF R4＜90 GOTOB AA
N45 G00 Z100 M05
N50 M02
程序（使用变量）
DYJ（倒圆角）
R1=倒角孔直径
R2=倒角圆半径
R3=刀半径
R4=角度变量
N05 G00 G54 G90 Z200
N10 X0 Y0
N15 Z3 M03 S4000 F2000
AA：R4=R4+2
N20 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-R2 N35 IF R4＜90 GOTOB AA
N40 G00 Z100 M05
M02
XYZ
N05 T1 G17
N10 R1=0.01 R2=0
N15 G00 G54 G90 Z100
N20 X40 Y0
N25 Z=R2
N30 M3 S2000 F1000 AA: G01 G42 X=R1 D1
N35 G03 I-R1
N40 R1=R1+0.5 R2=R2-1 N45 G40 G01 X=40 Z=R2 N50 IF R1＜25 GOTOB AA N55 G00 Z100 M5
M02
设定；Φ20中心为X0、Y0。

25尺寸右端为Z0。

使用Φ20、R0.8平面铣刀加工。

程序：
AAA
N05 T1
N10 G00 G54 G90 Z100
N15 X0 Y0
N20 M03 S3000 F500
N25 Z5
N30 G01 G41 X10 Y0 D1
N35 Z0
N40 G02 X10 Y0 Z-15 I-10 J0 TURN=14 N45 I-10
N50 G01 G40 X40
N55 Y5
N60 R1=0BB：R1=R1+0.5
N65 Z=-15-COS（R1）×10
N70 G01 G41 X=10+SIN（R1）×10 D1 N75 Y0
N80 G02 I=-10- SIN（R1）×10
N85 G01 Y-5
N90 G40 X40
N95 Y5
N100 IF R1＜90 GOTOB BB
N105 G00 Z100 M05
M02
SR
N05 R1=10（圆半径）
N10 R2=4（刀半径）
N15 R3=30（坐标旋转）
N20 R10=0 （变量）
N25 G00 G19 G54 G90 Z200 N30 ROT Z=R3
N35 X101 Y=-R1-R2
N40 M3 S2000 F1500
N45 Z=R1+5
N50 G01 Z=-R2
II：R10=R10-0.2
N55 G01 X=101+R10
N60 G02 Y=R1+R2 CR=R1+R2 N65 R10=R10-0.2
N70 G01 X=101+R10
N75 G03 Y=-R1-R2 CR=R1+R2 N80 IF R10＞=0 GOTOB II N85 ROT
N90 G00 G17 Z200 M05
M02
DYJ
N05 T1
N10 R1=30 R2=2 R3=4 R4=0
N20 G00 G54 G90 Z200
N25 X=R1+R3+3 Y5
N30 M03 S3000 F2000
N35 Z2
AA：R4=R4+1.5
N40 $TC_DP6[1，1]=（R3+R2）×COS（R4）-R2 N45 G01 Z=（R2+R3）×（SIN（R4）-1）
N50 G42 X=R1 D1
N55 Y20
N60 G03 X20 Y30 CR=10
N65 G01 X0
N70 Y0
N75 X30
N80 Y5
N85 X=R1+$TC_DP6[1，1]
N90 IF R4＜=90 GOTOB AA
N95 G00 Z200 M05
M02
QQQ
N05 CFTCP
N10 R1=0
N15 G00 G54 G90 G64 Z100
N20 X60 Y-60
N25 M03 S3000 F2000
AB：R1=R1+3
N30 R2=SIN（R1）×6
N35 R3=COS（R1）×6
N40 $TC_DP6[1，1]=（R2-2）N45 G01 Z=R3-6
N50 G42 X34 D1 N55 Y0
N60 G03 X0 Y34 CR=34 N65 X0 Y26 CR=4
N70 G02 X-26 Y0 CR=-26 N75 G03 X-34 CR=4
N80 G03 X34 Y0 CR=34 N85 G01 G40 X60
N90 Y-60
N95 IF R1＜90 GOTOB AB N100 G90 G0 Z150 M05 M30
（注：专业文档是经验性极强的领域，无法思考和涵盖全面，素材和资料部分来自网络，供参考。

可复制、编制，期待你的好评与关注）。