840D常用编程实例.docx
《840D常用编程实例.docx》由会员分享,可在线阅读,更多相关《840D常用编程实例.docx(17页珍藏版)》请在冰豆网上搜索。
840D常用编程实例
使用Φ200铣刀加工900×2000平面
XPM
N05G00G17G54G90Z200
N10X-110Y90
N15M3S150F500
/N20GOTOFAAA
N25Z4
N30G01X2000
N35Y270
N40X0
N45Y450
N50X2000
N55Y630
N60X0
N65Y810
N70X2000
N75G00Z100
N80X-110Y90
AAA:
Z0
N85G01X2000
N90Y270
N95X0
N100Y450
N105X2000
N110Y630
N115X0
N120Y810
N125X2000
N130G00Z100M05
N135M02
图17
利用无限循环,使用Φ200铣刀加工900×2000平面
XPM1
N05G00G17G54G90Z200
N10X-110Y90
N15M3S150F500
N20Z4
N25AAA:
G01X2000
N30Y=IC(180)
N35X0
N40Y=IC(180)
N45GOTOBAAA
N50M02
图18
(2)条件转向
条件语句形式为:
“IF条件表达式GOTOB/GOTOF跳转标记名”。
当条件满足,程序将会跳转到指定的目标。
条件表达式所用的条件运算符包括:
==(等于)、<>(不等于)、>(大于)、>=(大于等于)、<(小于)、<=(小于等于)、AND与、OR或、NOT非、XOR异或。
例如:
使用变量编程加工抛物线Y=0.5X
图19
PWX
R1=10
G00G54G90Z100
X10Y50
M3S1000F200
Z0
AA:
R1=R1-0.1
G01X=R1Y=POT(R1)/2
IFR1>-10GOTOBAA
G00Z100M5
M02
左下角为:
X0、Y0
上面为:
Z0
Φ20铣刀加工
螺旋铣孔
XK
N05T1
N10G00G54G90Z200
N15M03S2000F500
;1
N20TRANSX100Y100
N25R1=35
N30XK1
N35TRANS
;2
N40TRANSX100Y900
N45R1=35
N50XK1
N55TRANS
;3
N60TRANSX750Y900
N65R1=30
N65XK1
N70TRANS
;4
N75TRANSX750Y100
N80R1=30
N85XK1
N90TRANS
;5
TRANSX1400Y100
N100R1=25
N105XK1
N110TRANS
;6
TRANSX1400Y900
N120R1=25
N125XK1
N130TRANS
G00Z200M05
M02
子程序
XK1
X0Y0
Z5
G01G41X19D1
Z0
G03X19Y0Z-20I-19J0TURN=9
G03I-19
G01G40X0
G00Z5
G01G41X=R1D1
Z0
G03X=R1Y0Z-20I=-R1J0TURN=9
G03I=-R1
G01G40X0
G00Z200
M17
ZK(钻孔)
N05G00G54G90Z100
N10X0Y0
N15M03S500F100
N20MCALLCYCLE83(100,0,5,-55,,-8,,2,,,1)
N25HOLES2(0,0,300,100,10,35)
N30MCALL
N35G00Z100M05
M02
GS(攻丝)
N05G00G54G90Z100
N10X0Y0
N15M03S50F125
N20MCALLCYCLE840(100,0,5,-55,,,4,3,1)
N25HOLES2(0,0,300,100,10,35)
N30MCALL
N35G00Z100M05
M02
椭圆参数方程:
X=30×COS(Θ)Y=20×SIN(Θ)
程序如下
O0001
R1=0
N005G00G54G90Z100
N010X60Y0
N015M03S600F500
N020Z-5
N025G42X45Y-15
N030G02X30Y0CR=15
AA:
R1=R1+1
N035G01X=30*COS(R1)Y=20*SIN(R1)
N040IFR1<360GOTOBAA
N045G02X45Y15CR=15
N050G00G40X60Y0
N055Z200M05
M30
G54X0Y0孔中心,Z0上表面。
R4:
角度变量(0°~90°)
X=17-COS(R4)*6
Z=6*(SIN(R4)-1)
程序
DYJ(倒圆角)
N05R4=0
N10G00G54G90Z100
N15X0Y0
N20Z3M03S4000F1000
AA:
R4=R4+2
N25G01Z=6*(SIN(R4)-1)
N30X=17-COS(R4)*6
N35G02I=COS(R4)*6-17
N40IFR4<90GOTOBAA
N45G00Z100M05
N50M02
程序(使用变量)
DYJ(倒圆角)
R1=倒角孔直径
R2=倒角圆半径
R3=刀半径
R4=角度变量
N05G00G54G90Z200
N10X0Y0
N15Z3M03S4000F2000
AA:
R4=R4+2
N20G01Z=(SIN(R4)-1)*(R2+R3)
N25X=R1/2+R2-COS(R4)*(R2+R3)
N30G02I=COS(R4)*(R2+R3)-R1/2-R2
N35IFR4<90GOTOBAA
N40G00Z100M05
M02
XYZ
N05T1G17
N10R1=0.01R2=0
N15G00G54G90Z100
N20X40Y0
N25Z=R2
N30M3S2000F1000
AA:
G01G42X=R1D1
N35G03I-R1
N40R1=R1+0.5R2=R2-1
N45G40G01X=40Z=R2
N50IFR1<25GOTOBAA
N55G00Z100M5
M02
设定;Φ20中心为X0、Y0。
25尺寸右端为Z0。
使用Φ20、R0.8平面铣刀加工。
程序:
AAA
N05T1
N10G00G54G90Z100
N15X0Y0
N20M03S3000F500
N25Z5
N30G01G41X10Y0D1
N35Z0
N40G02X10Y0Z-15I-10J0TURN=14
N45I-10
N50G01G40X40
N55Y5
N60R1=0
BB:
R1=R1+0.5
N65Z=-15-COS(R1)×10
N70G01G41X=10+SIN(R1)×10D1
N75Y0
N80G02I=-10-SIN(R1)×10
N85G01Y-5
N90G40X40
N95Y5
N100IFR1<90GOTOBBB
N105G00Z100M05
M02
SR
N05R1=10(圆半径)
N10R2=4(刀半径)
N15R3=30(坐标旋转)
N20R10=0(变量)
N25G00G19G54G90Z200
N30ROTZ=R3
N35X101Y=-R1-R2
N40M3S2000F1500
N45Z=R1+5
N50G01Z=-R2
II:
R10=R10-0.2
N55G01X=101+R10
N60G02Y=R1+R2CR=R1+R2
N65R10=R10-0.2
N70G01X=101+R10
N75G03Y=-R1-R2CR=R1+R2
N80IFR10>=0GOTOBII
N85ROT
N90G00G17Z200M05
M02
DYJ
N05T1
N10R1=30R2=2R3=4R4=0
N20G00G54G90Z200
N25X=R1+R3+3Y5
N30M03S3000F2000
N35Z2
AA:
R4=R4+1.5
N40$TC_DP6[1,1]=(R3+R2)×COS(R4)-R2
N45G01Z=(R2+R3)×(SIN(R4)-1)
N50G42X=R1D1
N55Y20
N60G03X20Y30CR=10
N65G01X0
N70Y0
N75X30
N80Y5
N85X=R1+$TC_DP6[1,1]
N90IFR4<=90GOTOBAA
N95G00Z200M05
M02
QQQ
N05CFTCP
N10R1=0
N15G00G54G90G64Z100
N20X60Y-60
N25M03S3000F2000
AB:
R1=R1+3
N30R2=SIN(R1)×6
N35R3=COS(R1)×6
N40$TC_DP6[1,1]=(R2-2)
N45G01Z=R3-6
N50G42X34D1
N55Y0
N60G03X0Y34CR=34
N65X0Y26CR=4
N70G02X-26Y0CR=-26
N75G03X-34CR=4
N80G03X34Y0CR=34
N85G01G40X60
N90Y-60
N95IFR1<90GOTOBAB
N100G90G0Z150M05
M30