做批量产品的福利-自动设置矩阵坐标系的宏程序

腊月的猴子

%
7004(#21=X_number #22=Y_number #24=X_length #25=Y_length)
#21=9.（产品在X方向上的个数）
#22=5.（产品在Y方向上的个数）
#24=120.（产品在X方向上的距离）
#25=100.（产品在Y方向上的距离）
G0G90G54X0Y0（定位到右下角的基准点，基准坐标系为G54）
#5=#21*#22
IF[#5GT48]THEN#3000=1(NUMBER_ERR_#21_#22)
#6=1.
WHILE[#6LE#5]DO1
#33=FUP[#6/#21]
#31=#33/2
#32=FIX[#31]
#32=#31-#32
IF[#32EQ0.5]GOTO100
IF[#32EQ0]GOTO200
N100
#29=0
#24=ABS[#24]
GOTO300
N200
#29=0-[#21-1]*ABS[#24]
#24=-ABS[#24]
N300
#7=#6-#21*[#33-1]
#1=#29-[#7-1]*#24
#2=0+[#33-1]*#25
G0X#1Y#2
G90G10L20P#6X#5021Y#5022Z0.0
#6=#6+1
END1
M30
%

电视机在哪里

谢谢分享，如果能加上注释就更好了，要不不知道怎么用的、

腊月的猴子

D:\Documents\自动设置矩阵坐标系-Model.jpg

腊月的猴子

详细说明

骄阳似我H

这个是用来做什么的呢？调用程序吗

hzqwjx

还有能不能来个坐标备份，如果一个产品有8手，这8手的坐标分别不一样，可不可以自动把我分好中的8个坐标（G54 G55 G56 G57 G58 G59 G54.1P1 G54.1P2 ）XYZ坐标抄到P20后面做备份。这样坐标改了之后还可以找回原来的坐标。

hzqwjx

抄到G54.1P20  G54.1P21  G54.1P22 G54.1P23 G54.1P24 G54.1P25 G54.1P26 G54.1P27

hzqwjx

还有比如我有两种间距呢？   X0. X80 然后把这两个分别加210.
X0 X80   X210 X290 X420 X500 X630 X710

房小箭

程序放在那里呢

l铁匠l

如果是标准阵列的话用自坐标G52就能搞定了,不需要那么多的编程坐标!