排式刀库自动换刀培训.docx

排式刀库ATC宏程序和PLC介绍
ATC的流程
ATC宏程序执行流程
ATC的PLC执行逻辑
C ATC换刀开始D
PLC逐行扫描头部
运动到当前刀放刀位置
门打开
刀库门打开？
运动到放刀安全位置
R190***********************************************）
G00G53X[#[1530+#8006]]Y[#[1540+#8006]] （移动到该点）
G00G53Z[#1882] （Z轴运动到放刀点的安全点）
CMD[STOP]
N250
（*********判断刀库门是否完全打开******* ************************************************ ******）
#60=0
WHILE[[[#1512NEO]AND[#1513NE1]]OR[#1902NEO]]DO 1（判断刀库门是否充分打开）
SLEEP 1
（刀库门打开超时）
IF[#60 GT 1250]ERROR 82
#60=#60+l
END1
N300
（*********Z 轴动到刀＞|^^^******************************************************************） G01G53Z#1881F#1880
CMD[STOP]
N350
（告诉PLC要松刀）
（********* 松刀并延时 *************************************************************************） #1904=1
（松刀延时，保证充分松刀）
CMD[STOP] SLEEP 5
N400
（*********判 断主车由;^刀 否 功 ************* ****************************************** ********） #60=0 WHILE[[#1904NEO]OR[#1525NE1]] DO 1 （判断主轴是否松刀）
（松刀超时出错报警）
SLEEP 1
IF[#60 GT 1250]ERROR 58 #60=#60+1
END1
（Z轴运动到放刀点的安全点）
N450
G00G53Z[#1922]
N500
（*********^^动到刀点y z）＞|^_^**********************************************************）
G00G53X[#[1530+#33512]]Y[#[1540+#33512]] （移动到该换刀点）
CMD[STOP]
N550
（*********z 车由 动到 刀/^_^** ****************************************************** **********） G01G53Z#1881F#1880
CMD[STOP]
N510
#1905=1 ' ' （告诉PLC要夹刀了）
CMD[STOP] SLEEP 5
N600
（*********判断轴 ^^刀 否 功*****************