付费找高手做寻边器2点校平工件

嚼出麦芽糖C

西门子840Dsl和fanuc系统，卧式加工中心，回转轴B轴，求通过平面上A点和B点直接把工件校平的宏程序！西门子的优先

半夜行空

1.程序走到m00停止，打到手轮
2.手轮摇到另一边，再打回mdi，继续运行程序
3.机床z轴抬高，b轴自动转平

半夜行空

%
O9020
#100=#5021
#101=#5023
M00
#102=#5021
#103=#5023
#104=ABS[#102-#100]
#105=ABS[#103-#101]
#106=ATAN[#105]/[#104]
IF[#102LT#100]GOTO1
IF[#103LT#101]THEN#106=#106
IF[#103GT#101]THEN#106=-#106
G91G0Z100.
B#106
M99
N1
IF[#103LT#101]THEN#106=-#106
IF[#103GT#101]THEN#106=#106
G91G0Z100.
B#106
M99
%

嚼出麦芽糖C

lmjams 发表于 2020-8-8 13:32
此程序的用法和法拉克的差不多，也打表，启动程序，手轮摇第二个位置，打表，启动程序，就找正了。原理和楼 ...

感谢大神分享，回头试一试

lmjams

此程序的用法和法拉克的差不多，也打表，启动程序，手轮摇第二个位置，打表，启动程序，就找正了。原理和楼上法拉克的都一样，只是西门子的有记录功能，所以用此程序时，第一次启动，记录第一个点，第二次启动记录第二个点，找正，转B轴，如果第三次启动，又重复了第一次。所以B轴旋转后就不要再启动这程序了。还有就是此程序最好是单独启动使用，不要作为子程序用，因为西门子的有记忆功能，作为单独使用，程序完了M30就相当于复位了。

lmjams

% _N_M110_MPF
R20=$AA_IW[Z]
R21=$AA_IW[B]
IF R30<>1 GOTO GG1
IF R30==1 GOTO II1
HH1:R10=$AA_IM[X]
R11=$AA_IM[Z]
IF R30==0 GOTO JJ1
GOTO ZZ1
II1:R12=$AA_IM[X]
R13=$AA_IM[Z]
R14=ABS(R12-R10)
R15=ABS(R13-R11)
IF R15<0.01 GOTO AA1
IF R13==R11 GOTO AA1
IF R12==R10 GOTO AA1
R16=ATAN2(R15,R14)
IF R16<0.001 GOTO AA1
IF R12<R10 GOTO BB1
IF R13<R11 GOTO CC1
IF R13>R11 GOTO DD1
EE3:G90 G01 Z=R20+200 F3000
B=R16+R21
R30=0
ZZ1:M30
AA1:R16=0
GOTO EE3
BB1:
IF R13<R11 GOTO EE1
IF R13>R11 GOTO FF1
CC1:R16=R16
GOTO EE3
DD1:R16=-R16
GOTO EE3
EE1:R16=-R16
GOTO EE3
FF1:R16=R16
GOTO EE3
GG1:R30=0
GOTO HH1
JJ1:R30=1
GOTO ZZ1
%

lmjams

wy31703359 发表于 2020-8-6 09:44
西门系统：两种方法，一种是探针有这个功能，而是用百分表两点计数可以实现，都不难

探针没玩过，百分表打两点自己计算还要旋转，还要考虑小数点取值，西门子系统走程序有自动记录位置功能，不好搞半自动找正的程序，像楼上那位搞得法拉克的半自动找正就相当方便，玩熟了后只要对表启动，再移动距离对表启动就好了。

wy31703359

西门系统：两种方法，一种是探针有这个功能，而是用百分表两点计数可以实现，都不难

wy31703359

lmjams 发表于 2020-8-3 22:11
可以搞，有空在机床上试了给你，主要西门子的机床系统变量都是英文的，不记得了

西门系统：两种方法，一种是探针有这个功能，而是用百分表两点计数可以实现，都不难

lmjams

可以搞，有空在机床上试了给你，主要西门子的机床系统变量都是英文的，不记得了

嚼出麦芽糖C

半夜行空 发表于 2020-6-22 12:40
%
O9020
#100=#5021

感谢大神，敢问西门子的好搞不

生活狠好

半夜行空 发表于 2020-6-22 12:40
%
O9020
#100=#5021

虽说看不懂但是好厉害的样子