Цикл касания Reneshaw

[Metal_Cutter 124]

Добрый день, Уважаемые специалисты.

 

Есть у кого подпрограмма O9818 (4th axis measurement) для датчика Reneshaw OMP60. 

 

 

[Povar1 86]

O9818

[Metal_Cutter 124]

Спасибо. Очень выручили.

[lord68 0]

из названия полагаю что это подпрога чтобы првязать нули 4 оси. вопрос как это работает через какой цикл.

[Metal_Cutter 124]

5 часов назад, lord68 сказал:

из названия полагаю что это подпрога чтобы првязать нули 4 оси. вопрос как это работает через какой цикл.

Это и есть цикл, с помощью которого можно выставить параллельность поверхности заготовки относительно оси. Вызывается G65. Документация есть в свободном доступе.

[andrey2147 172]

В 02.07.2019 в 11:48, Povar1 сказал:

O9818

Глянул мельком, она обращается к ещё одной программе P9724,P9726 которые должны быть в директории.

Да и 5я ось присутсвует

Изменено 18 июня 2020 пользователем andrey2147

[Metal_Cutter 124]

10 часов назад, andrey2147 сказал:

Глянул мельком, она обращается к ещё одной программе P9724,P9726 которые должны быть в директории.

Да и 5я ось присутсвует

У меня на станке 42 программы. Некоторые правда нужны для изменения инструмента. 

Там и 6-я ось присутствует, цикл универсальный под любою кинематику.

[andrey2147 172]

1 час назад, Metal_Cutter сказал:

цикл универсальный под любою кинематику.

 Наивно.

[Metal_Cutter 124]

2 часа назад, andrey2147 сказал:

Наивно.

С вашей стороны

[Viktor2004 877]

6 часов назад, Metal_Cutter сказал:

У меня на станке 42 программы. Некоторые правда нужны для изменения инструмента. 

Инструмент обычно изменяется командой М6

[Metal_Cutter 124]

5 минут назад, Viktor2004 сказал:

Инструмент обычно изменяется командой М6

Опечатка. Тогда уж не изменяется, а сменяется.

[SERGEY MIKOLAEVICH 7]

O9818(REN 4TH AXIS Y MEASURE)
G65P9724 
IF[#25EQ#0]GOTO9 
IF[#26EQ#0]GOTO10
IF[#25EQ0]GOTO11 
N1 
#5=135 
WHILE[#5LE149]DO1
#[#5]=#0 
#5=#5+1
END1 
#3=4(4TH AXIS NUMBER)
#4=1(1=CW -1=CCW CORRECTION) 
IF[#17NE#0]GOTO2 
#17=10*#129
N2 
#10=#5042(Y) 
#12=#5043-#116(Z)
G31Y[#10+[#25/2]]F#119 
#149=1 
IF[ABS[#5062-[#10+[#25/2]]]GE#123]GOTO12 
G65P9726Z#26Q#17 
IF[#149NE0]GOTO12
#30=#126(Z1) 
G0Y#10 
G31Y[#10-[#25/2]]F#119 
#149=1 
IF[ABS[#5062-[#10-[#25/2]]]GE#123]GOTO12 
G65P9726Z#26Q#17 
IF[#149NE0]GOTO12
#31=#126(Z2) 
G0Y#10 
#29=[#31-#30]*#4 
G65P9731Y[#29]X[#25](ATAN) 
#16=#118 
N3 
#139=#16+#[5040+#3]
#143=#29 
#144=#16(ANG ERR)
IF[#23EQ#0]GOTO35
G65P9730A[#139-#16]Q#2W#23 
N35
IF[#2EQ#0]GOTO5
IF[ABS[#144]LT#2]GOTO4 
#148=4 
N4 
IF[#120AND4EQ4]GOTO5 
IF[ABS[#144]LT#2]GOTO5 
#[3006-[[#120AND8]/8*6]]=1(ANGLE OUT OF TOL) 
N5 
IF[#19EQ#0]GOTO100 
IF[#19EQ0]GOTO7
#32=0
IF[#120AND8EQ8]GOTO6 
IF[#19LT100]GOTO55 
#19=#19-100
#32=1780 
IF[#19LE48]GOTO55
#32=8780 
N55
#[5200+#3+[#19*20]+#32]=#[5020+#3]-#[5040+#3]+#16-#[5200+#3] 
GOTO100
N6 
IF[#19GT100]GOTO66 
IF[#3GT4]GOTO55
#[2400+[#3*100]+#19]=#[5020+#3]-#[5040+#3]+#16-#[2400+[#3*100]]
GOTO100
N66
#19=#19-100
#32=1780 
IF[#19LE48]GOTO68
#32=8780 
N68
IF[#3GT4]GOTO55
#[5200+#3+[#19*20]+#32]=#[5020+#3]-#[5040+#3]+#16-#[2400+[#3*100]] 
GOTO100
N7 
IF[#3GT4]GOTO75
IF[#120AND8EQ8]GOTO8 
N75
#[5200+#3]=#[5200+#3]+#16
GOTO100
N8 
#[2400+[#3*100]]=#[2400+[#3*100]]+#16
GOTO100
N9 
#3000=91(Y INPUT MISSING)
N10
#3000=91(Z INPUT MISSING)
N11
#3000=91(Y0 INPUT NOT ALLOWED) 
N12
G0Z#12 
Y#10 
IF[#149EQ2]GOTO13
#3000=92(PROBE OPEN) 
N13
#3000=93(PROBE FAIL) 
N100 
#149=0 
M99