三菱和发那科半自动分中程序，你还为分中错误发愁吗？

%
O001（）
#5201=0
#5202=0
#5203=0
#101=[？+15.]（X-L）长
#102=[？+15.]（Y-L）宽
#103=150（Z）
（手动碰边X方向右手边）
G0 G91 Z#103  （以下全部 打单节执行）
#110=#5021
X-#101
Z-#103（手动碰边X方向）
#111=#5021
#112=[#111-#110]/2.0
X#112
#5221=#5021
（手动移动自Y面向人一边并碰边）
G0 G91 Z#103
#120=#5022
Y-#102
Z-#103（手动碰边Y方向）
Z#103
#121=#5022
#122=[#121-#120]/2.0
Y#122
#5222=#5022
G0 G91 G28 Z0.
G0 G90 G54 X0. Y0.
%
以上程序适合不能在边中间位置分中的工件
%
O001（）
#5201=0
#5202=0
#5203=0
#520=54（G54-G59）
#521=0（0-1）
#101=[？+15.]（X-L）长
#102=[？+15.]（Y-L）宽
#103=150（Z）
IF[#521 EQ 1] GOTO2
GOTO1
（手动碰边X方向右手边）
N1
G0 G91 Z#103  （以下全部 打单节执行）
#110=#5021
X-#101
Z-#103（手动碰边X方向）
#111=#5021
#112=[#111-#110]/2.0
X#112
（手动移动自Y面向人一边并碰边）
G0 G91 Z#103
#120=#5022
Y-#102
Z-#103（手动碰边Y方向）
Z#103
#121=#5022
#122=[#121-#120]/2.0
Y#122
GOTO2
N2
IF[#520 EQ 54]GOTO10
IF[#520 EQ 55]GOTO11
IF[#520 EQ 56]GOTO12
IF[#520  EQ 57]GOTO13
IF[#520  EQ 58]GOTO14
IF[#520 EQ  59]GOTO15
GOTO9
N10
G10 P1X[#5021] Y[#5022]
N11
G10 P2 X[#5021] Y[#5022]
N12
G10 P3 X[#5021] Y[#5022]
N13
G10 P4 X[#5021] Y[#5022]
N14
G10 P5 X[#5021] Y[#5022]
N15
G10 P6X[#5021] Y[#5022]
GOTO9
N9
G0 G91 G28 Z0.
G0 G90 G#520 X0. Y0.
%

这个程序适合可以在边中间位置分中的工件
#520设置你所需要抄数的工件坐标系，直接修改为G54-G55

如果出现方向走反的情况，直接修改红色位置，负改正，正改负即可。
#101和#102“？”号处填写工件在机床上的X和Y尺寸，15是分中棒尺寸加大5

此程序以包含自动计算和抄数。

顶个你！
实际工作中估计没多少人敢用，工件可不是咱自己的，不小心弄坏了，得赔。。。
还是眼睛看着弄实在

工件尺寸还得卡准，碰到异形的呢，个人觉得还没手动来得快和放心！

这个在模胚厂用得

自己写的应该鼓励，反正我不开机。不用分了

1# huafengdir

嗨，这里是cam，这种东西没人几个玩的。
咱们操机的谢谢你了，感觉数控机床很强大的，奥，你更强大。

机台要是有自动2分之一就好了。你们公司的机器有吗？

有呀  就是G0G91X[100/2];就可以啦  很简单的呀

进明 发表于 2010-3-4 08:38
工件尺寸还得卡准，碰到异形的呢，个人觉得还没手动来得快和放心！

进明大大有点"水"哦,这个不许要你卡数准确,需要输入工件数据是为了避免分中过程中碰撞工件.

没搞过操机