Перевод в переменные

[slawik 3]

Уважаемые Гуру, подскажите пожалуйста, как написать, чтобы FANUC читал последовательность кадров из вызываемой программы, например, "G00 Xnn Znn; G01 Xnn Znn", но при этом не воспринимал эту последовательность как подачу, а переводил значения X,Z,R в переменные. Хочу попробовать написать собственный цикл обработки (макрос, вызываемый G-кодом).

Изменено 31 августа 2011 пользователем slawik

[Спим 23]

Пример программы спиральной обработки отверстия на фрезерном станке от минимального до максимального диаметра на указанную глубину. Вольный аналог стандартной G13 Haas

0. сохранить программы в памяти фанука под именами O13, O100 и O101 соответственно, если номера заняты - менять вызов подпрограмм

1. вызов по типу подпрограммы:

G65P13ZzQqRrIiDdTtCcSsMm

аргументы, обязательные к написанию:

Z - глубина кармана, мм, фрезу перед началом цикла выставить на 0,1 мм выше поверхности

Q - шаг по глубине, мм, должен быть кратен глубине, например, при Z=10, Q=10, 5, 2.5, 2, 1.25, 1 и т.д...

R - шаг по радиусу спирали, мм

I - диаметр кармана, мм

D - № интсрумента

T - кол-во зубов фрезы

C - подача на зуб, мм/зуб

S - скорость резания, м/мин

M - максимальные обороты шпинделя, об/мин

пример программы с использованием подпрограммы:

%

O100;

G65P13Z10.Q2.R5.I50.D3.T4C0.1S100.M1500;

M30;

% пример программы с использованием G-кода:

%

O101;

G13Z10.Q2.R5.I50.D3.T4C0.1S100.M1500;

M30;

%

- сохранить программу O0013 под номером O9013;

- в параметре №6053 установить значение 13;

%

O0013 (SPIRAL MACRO)

#26= ABS[#26]

#17= ABS[#17]

#22=#17

IF [#26 EQ #0] GOTO 1

IF [#17 EQ #0] GOTO 1

IF [#18 EQ #0] GOTO 1

IF [#4 EQ #0] GOTO 1

IF [#7 EQ #0] GOTO 1

IF [#20 EQ #0] GOTO 1

IF [#3 EQ #0] GOTO 1

IF [#19 EQ #0] GOTO 1

IF [#13 EQ #0] GOTO 1

IF [#17 GT #26] GOTO 2 (Z LESS THAN E)

#33= #4001 ()

#32= #4003

#31= #[13000+#7] (RADIUS FREZY IZ KORREKTORA)

#30= [160*#19]/[#31] (OBOROTY SPINDEL)

IF [#30 GT #13] GOTO 8

S#30 M3

#29= #30*#20*#3 ()

GOTO 9

N8 S#13 M3

#29= #13*#20*#3

N9 #27= #18/12

#10= #5041 (POZICIYA X V SISTEME ZAGOTOVKI)

#12= #5042 (POZICIYA Y V SISTEME ZAGOTOVKI)

#5= #5043-#5083 (POZICIYA Z V SISTEME ZAGOTOVKI - KORREKTOR)

#16= 0

G17

N7 #14=#17

WHILE [#26 GE #14] DO 1

IF [#31 GE [[#11/2]-.05]] GOTO 4

#28= [#11/2]-#31

G91 G0 Z-[.1+#17]

G90 X[[#10+#28]-.05]

G1 X[#10+#28] F#29

GOTO 5

N4 G91 G1 Z-[.1+#17] F[#29/2]

#28= 0

N5 #15=[[#4/2]-#28-#31]/#18*360 (VYCHISLENIE MAX UGLA SPIRALI)

#1=30

#28= #28+#27

WHILE [#15 GT #1] DO 2

#24= #10+#28*COS[#1]

#25= #12+#28*SIN[#1]

#2= [#28/[#28+#31]]*#29

G90 G3 X#24 Y#25 R#28 F#2

#1= #1+30

#28= #28+#27

END 2

#28= [#4/2]-#31

#24= #10+#28*COS[#15]

#25= #12+#28*SIN[#15]

#2= [#28/[#28+#31]]*#29

G3 X#24 Y#25 R#28 F#2

X#24 Y#25 I-[#28*COS[#15]] J-[#28*SIN[#15]]

#15= #15+15

#24= #10+#28*.98*COS[#15]

#25= #12+#28*.98*SIN[#15]

X#24 Y#25 R[#28*.98]

IF [#26 EQ #17] GOTO 6

IF [#26 EQ #14] GOTO 6

IF [#16 EQ #1] GOTO 6

G91 G0 Z.1 G90 X#10 Y#12

#14= #14+#17

END 1

#17= [#26-[#14-#17]]

#16= 1

GOTO 7

N6 G0 Z#5 X#10 Y#12

#17= #22

GOTO 3

N1 #3000= 0(SPIRAL POCK. COMMAND INCOMPL.)

N2 #3000= 0(E EXCEEDS Z)

N3 G#33 G#32 M99

%

[slawik 3]

Спасибо, так вводить переменные (перечисляя их в кадре с G65 или новоиспечённом Gxx) я уже умею. Я имел ввиду другое: В основной программе я хочу использовать G65, стойка вызывает мой макрос, а макрос вызывает ту программу, откуда он был вызван, находит последовательность с кадра N по кадр N+nn, где указан контур обработки (как это сделано в G71, G72 и т.д.), но не выполняет эти движения, а переводит значения в нужные мне переменные, выходит обратно в макрос по M99 и уже там работает с ними по нужному мне алгоритму и совершает нужные мне движения, отличные от тех, которые я написал в последовательности с N по N+nn.

Возможно это?

[slawik 3]

Может кто-нибудь знает, где можно найти текст G71 (если таковой существует в виде макроса) для примера?

[tikito 14]

а для чего все эти заморочки?

[slawik 3]

а для чего все эти заморочки?

Цикл обработки, который смешает G71, G72 и G75.

[A_1 231]

Может кто-нибудь знает, где можно найти текст G71 (если таковой существует в виде макроса) для примера?

Я видел текст программы CYCLE95 - аналог G71/G72 в Sinumerik. Разобраться в нем - не реально.

Вам, наверно, нужно найти фануковский аналог синумериковской Read

[slawik 3]

Я видел текст программы CYCLE95 - аналог G71/G72 в Sinumerik. Разобраться в нем - не реально.

Вам, наверно, нужно найти фануковский аналог синумериковской Read

Хотя-бы одним глазком взглянуть на такой текст

В Сименсах циклы заданы макропрограммами, или зашиты в BIOS ? Что такое READ? Это функция, считывающая последовательность символов в тексте?

[A_1 231]

READ: чтение строк в файле (от ПО 5.2)

Программирование

READ(var int error, string[160] file, int line, int number, var

string[255] result[])

Команда READ считывает одну или несколько строк в указанном файле и фиксирует

считанную информацию в поле типа STRING. Каждая считанная строка занимает в этом

поле один элемент поля.

я использую эту команду для определения и подготовки следующего инструмента.

[slawik 3]

я использую эту команду для определения и подготовки следующего инструмента.

Помню, в Turbo C 2.0 было что-то похожее. На Фануке скорее всего работать не будет, по крайней мере, в книжках мне нигде не попадалось, хотя попробовать всё же стоит.

[slawik 3]

я использую эту команду для определения и подготовки следующего инструмента.

Можете показать, как выглядит кусок программы?

[A_1 231]

Можете показать, как выглядит кусок программы?

Основная программа:

N2070 Tlch1("M05",0,0)

N2080 TlprepAuto(3)

...

N2250 Home

N2260 Tlch1("M15",0,0)

N2270 TlprepAuto(4)

...

В кадре N2080 берётся в захват инструмент "M15"

Подпрограмма TlprepAuto:

Proc TlprepAuto(INT Num)

; Automatic preparing the tool on text of the program

; Extern TlprepAuto(INT)

; TlprepAuto(+-2147483647)

Def Int N_Stroki,Int_erg

Def Int N_first,N_last

Def Int Error

Def String[255] Next_Tool

Def String[255] Result[1]

N_Stroki=0

Repeat

N_Stroki=N_stroki+1

Read(Error,$P_Prog[0],N_Stroki,1,Result)

Int_erg=MATCH(Toupper(Result[0]),"TLPREPAUTO("<<Num<<")")

Until (Int_erg>=0) or (Error==21)

If Error==21 Gotof EndSub

Repeat

N_Stroki=N_stroki+1

Read(Error,$P_Prog[0],N_Stroki,1,Result)

Int_erg=MATCH(Toupper(Result[0]),"TLCH1")

Until (Int_erg>=0) or (Error==21)

If Error==21 Gotof EndSub

N_first=Index(Result[0],"(")

N_last=Index(Result[0],",")

If (N_first<0) or (N_last<0)

Tlprep1

Else

Next_Tool=Substr(Result[0],N_first+2,N_last-N_first-3)

Tlprep1(Next_Tool)

Endif

EndSub:

M17

[A_1 231]

Читать текст программы может также система FMS-3200:

Оператор getstring

Функция: Вызывает чтение очередного кадра, находящегося в программе ниже вызова

подпрограммы, содержащей оператор getstring.

Описание: a$=getstring

В строковую переменную a$ пересылается текст следующего кадра.

Примечания:

- оператор может использоваться только в подпрограмме, при этом каждый раз

происходит чтение следующего кадра, находящегося в программе, из которой бы-

ла вызвана данная подпрограмма;

- после использования оператора точка возврата из подпрограммы по функции М99

сдвигается на следующий кадр;

- для восстановления точки возврата в исходное состояние необходимо использо-

вать оператор restore.

Пример:

N100P50

N101G1X100F200

N102Y100

N103Z100

N104X0Y0Z0

Подпрограмма 50:

a$=getstring - в переменной a$ текст кадра N101

b$=getstring - в переменной b$ текст кадра N102

c$=getstring - в переменной c$ текст кадра N103

M99 – возврат в программу на кадр N104

[A_1 231]

На Fanuc'e из-за отсутствия функции чтения текста программы в документации, есть идея подготавливать инструмент, через обучение. При первом прохождении программы подпрограмма смены инструмента записывает последовательность вызываемых инструментов, например в переменные #601-#699, и при следующих прогонах программы подпрограмма смены инструмента переключается в режим чтения этих переменных и заранее готовит следующий инструмент.

[A_1 231]

Cycle95.zip

[slawik 3]

Cycle95.zip

Спасибо, посмотрел...

Похоже, в Сименсах программирование больше приближено к языкам программирования персональных компов, Fanuc, видимо, сосредоточил своё внимание исключительно на металлообработке... Разобраться без документации действительно не реально.

Буду пробовать пока писать цикл с заданием точек и радиусов непосредственно перед вызовом макроса через #n

Макрос будет анализировать точки, если R=0 - значит прямая, выводим её уравнение по двум точкам, если R>0, выводим уравнение окружности. Уравнения нужны для определения координат крайних точек в проходах цикла путём подстановки известных текущих координат.

Если интерес к этому занятию не пропадёт, и отработаю макрос в таком виде, тогда уже буду заморачиваться другими видами ввода переменных.

Кому интересно, могу держать в курсе...

[A_1 231]

Кому интересно, могу держать в курсе...

Задача довольно трудная. успехов!