自动分中宏程式培训讲学.doc

自动分中宏程式

精品文档
自 动 分 中 宏 程 式
%
O0001
(X)#1=500.0
(Y)#2=250.0
#3=1
#500=54
#510=0
#4=100.0
#5=0
#6=30.0
S600M03
#10=5.0
#23=20000`
#5201=0
#5202=0
#5203=0
M0
N1
#7=1
IF[#510GE40]GOTO40
#101=#5201
G0G91Z#4
X[#1+#6]
G1Z-#5F#23
M0
#111=#5021
G0G91#4
X-[[#111-#101]/2]
GOTO500
N2
#7=2
#511=#510-[FIX[#510/10]*10]
IF[#511GT4]GOTO#511
#102=#5022
G0G91Z#4
Y[#2+#6]
G1Z-#5F#23
M0
#112=#5022
G0G91Z#4
Y-[[#112-#102]/2]
GOTO500
N40
IF[#510GE60]GOTO60
G0G91Z#4
X-[#1/2+#10]
GOTO500
N60
G0G91Z#4
X[#1/2+#10]
GOTO500
N5
G0G91Z#4
Y[#2/2+#10]
GOTO500
N7
G0G91Z#4
Y-[#2/2+#10]
GOTO500
N500
#550=#[5020+#7]
GOTO#500
N54
#554=#111-#101-10
#564=#112-#102-10
#[5220+#7]= #550
#[5240+#7]= #550
#[5260+#7]= #550
#[5280+#7]= #550
IF[#7NE1]GOTO9
M0
IF[#7EQ1]GOTO2
N55
#[5240+#7]= #550
#[5260+#7]= #550
IF[#7NE1]GOTO9
M0
GOTO2
N56
#[5260+#7]= #550
IF[#7NE1]GOTO9
M0
GOTO2
N57
#[5280+#7]= #550
IF[#7NE1]GOTO99
N58
#[5300+#7]= #550
IF[#7NE1]GOTO99
N59
#[5320+#7]= #550
IF[#7NE1]GOTO99
M0
GOTO2
N9
IF[#3EQ1]GOTO99
#3=#3-1
#500=#500+1
M0
GOTO1
N99
M5
G0G91G28Z0
M30
%

7

参数说明：

工 件

#1=X
#2=Y
6
4
#3=工件件数
#500=起始坐标
#510=取数形式
#4=主轴抬高量
5
#5=主轴下降量
#6=离板距离
分中时注意事项：
X轴优先，先左后右
Y轴在后，先外后里
1、#510=0 四面分中；
2、基准角取数
（45）；（65）；（47）；（67）；

#10=分中棒半径

收集于网络，如有侵权请联系管理员删除