Программирование с переменными

[gudstartup 746]

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

Хоть бы недельку выжидал.

Еще недавно я вообще не знал что можно чистить а после вашей подсказки вошел так сказать во вкус!

 

[andrey2147 172]

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

так сказать во вкус

Картинки через фотошоп прогоняйте с уменьшением размера и качества и места надолго хватит.

[S1mplygod 0]

Здравствуйте, такой вопрос, где и в каких переменных можно найти станочные координаты(машинные(G53)). Полазил по меню нашел значение 301. Но как оттуда именно выцепить значение Z? Чёт не пойму как тут картинку вставить с телефона.

[Александр1979 221]

3 часа назад, S1mplygod сказал:

Здравствуйте, такой вопрос, где и в каких переменных можно найти станочные координаты(машинные(G53)). Полазил по меню нашел значение 301. Но как оттуда именно выцепить значение Z? Чёт не пойму как тут картинку вставить с телефона.

 

[Гиперион 18]

20 часов назад, S1mplygod сказал:

Здравствуйте, такой вопрос, где и в каких переменных можно найти станочные координаты(машинные(G53)). Полазил по меню нашел значение 301. Но как оттуда именно выцепить значение Z? Чёт не пойму как тут картинку вставить с телефона.

Новичок не может вставлять файлы.

По теме ниже написали, в каких макросах находятся текущие координаты. Их можно как напрямую использовать, вызывая #5001 либо сначала назначать в пользовательские, типа - #501=#5001.

[Viktor2004 883]

1 час назад, Гиперион сказал:

501=#5001.

5021

[Гиперион 18]

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

5021

Я писал просто как пример, но да, вы правы. Спасибо что уточнили\поправили.

Изменено 17 апреля 2023 пользователем Гиперион

[333 0]

Доброе время суток!

Подскажите пожалуйста как мне объединить ети 2 макроса в один. Хочу написать макрос для резьбо-фрезерования отверстий расположенных на окружности .О0028-первый макрос резьбо-фрезеровани 

%

O0028

(FANUC-0M-CONTROLLER)

(INTERNAL-THREAD-MILLING)

(CALLED-AS-FOLLOWS)

(G66P0028 D25 F10 R5 T1.5 Z-25)

(D-MAJOR-DIA)

(F-FEED-RATE)

(R-REVOLUTIONS)

(T-PITCH)

(Z-DEPTH)

() 

(VALIDATE-INPUT) 

IF[#7EQ#0]GOTO7(MAJOR-DIA) 

IF[#9EQ#0]GOTO9(FEED-RATE) 

IF[#4311EQ#0]GOTO11(CRC-REGISTER)

IF[#18EQ#0]GOTO18(REVOLUTIONS) 

IF[#20EQ#0]GOTO20(PITCH) 

IF[#26EQ#0]GOTO26(Z-DEPTH) 

() 

(CALCULATE-AND-VALIDATE-LEAD-RADIUS) 

#23=[[[[#7/2]-#[2000+#4311]]/2]+#[2000+#4311]] 

IF[#23LT#[2000+#4311]]GOTO23 

() 

(SAVE-SYSTEM-VARS) 

#1=#5003(PRESENT-Z-POSITION) 

#2=#4003(POSITIONING-MODE) 

() 

(RAPID-TO-DEPTH) 

G0G90Z#18

() 

(RAMP-IN)

G1G17G41G91X-[[#7/2]-#23]Y-#23H#4311F#9

G2X-#23Y#23R#23

() 

(HELICAL-MOVE) 

#3=0 

WHILE[#3GE#26]DO1

I[#7/2]Z-#20 

#3=#3-1

END1 

() 

(RAMP-OUT) 

X#23Y#23R#23 

G1G40X[[#7/2]-#23]Y-#23

() 

(RAPID-TO-SAVED-Z-POSITION)

G0G90Z#1 

() 

(RESTORE-POSITIONING-MODE) 

IF[#2EQ90]GOTO99 

G91

GOTO99 

() 

(ALARM-MESSAGES) 

GOTO99 

N7#3000=7(INVALID MAJOR DIA, D VALUE)

GOTO99 

N9#3000=9(INVALID FEED RATE, F VALUE)

GOTO99 

N11#3000=11(INVALID REGISTER, H VALUE) 

GOTO99 

N18#3000=18(INVALID REVOLUTIONS, R VALUE)

GOTO99 

N20#3000=20(INVALID PITCH, T VALUE)

GOTO99 

N23#3000=23(TOOL DIA TO LARGE) 

GOTO99 

N26#3000=26(INVALID DEPTH, Z VALUE)

() 

(PROGRAM-END)

N99M99 

%

В него нужно добавить О0029 макрос расположения отверстий на окружности .О0029

G65P0029X0Y0I114A0B90H4

X-координата центра окружности

Y- координата центра окружности

I- радиус окружности расположения отверстий 

A- начальный угол 

B- угол повтора

H- количество отверстий

#3=#4003

IF[#3EQ90]GOTO1

#24=#5001+#24

#25=#5002+#25

N1WHILE[#11GT0]DO1

#5=#24+#4*COS[#1]

#6=#25+#4*SIN[#1]

G90X#5Y#6

#1=#1+#2

#11=#11-1

END1

G#3G80

M99

 

[A_1 231]

18.04.2023 в 17:38, 333 сказал:

Доброе время суток!

Подскажите пожалуйста как мне объединить ети 2 макроса в один. Хочу написать макрос для резьбо-фрезерования отверстий расположенных на окружности .О0028-первый макрос резьбо-фрезеровани

Здравствуйте. Я бы предложил перевернуть стандартный подход с ног на голову. То есть, вместо того, чтобы позиционировать инструмент к отверстиям и вызывать цикл для их обработки (сверление, фрезерование), наоборот, сначала вызвать модально подпрограмму с параметрами обработки отверстий (глубина, диаметр, шаг резьбы и так далее), а затем подпрограмму позиционирования инструмента к нужным координатам (используя подпрограмму типа Вашей O0029, или просто перечисляя нужные координаты). 

[333 0]

Помогите пожалуйста не могу написать макрос резьбо-фрезерования  .Реза должна от центра отверстия выйти на диаметр резьбы ,нарезать на нужную глубину потом вернутся в центре отверстия и выйти на z 100.И все должно быть с учётом коррекции на диаметр инструмента .Если я прав то это переменная #4307 .Вот макрос ,посмотрите где допустил ошибку .

%

O2727

(G65P2727X0Y0R0F600T1.5Z-5I50Q0E90M4)

(X0Y0-TOCHKA CENTRA OKRUGNOSTI)

(#100-DIAMETR REZB)

(R[#18]-BEZOPAS.RASTO.PO UMOLCHANIU 3 JHAGA REZB)

(F[#9]-PODAHA)

(T[#20]-SHAG)

(Z[#26]-GLUBINA REZB)

(I[#4]-RADIUS OKRUGNOST RASPOLOG.OTV.)

(Q[#17]-NACHAL UGOL)

(E[#8]-UGOL POVTOR)

(M[#13]-KOLICHEST.OTV)

#100=20

(PRVERKA VVODA)

IF[#100EQ#0]GOTO100(DIAM.REZB.)

IF[#9EQ#0]GOTO9(PODAHCA)

IF[#4307EQ#0]GOTO11(CRC-REGISTR)

IF[#20EQ#0]GOTO20(SHAG)

IF[#26EQ#0]GOTO26(Z-GLUBINA)

()

(RASCHET I PRVERKA-RADIUS)

#23=[#100/2]

IF[#23LT[#4307/2]]GOTO23

()

(SAVE-SYSTEM-VARS)

#1=#5003(PRESENT-Z-POSITION)

#2=#4003(POSITIONING-MODE)

IF[#2EQ90]GOTO1

#24=#5001+#24

#25=#5002+#25

N1WHILE[#13GT0]DO2

#5=#24+#4*COS[#17]

#6=#25+#4*SIN[#17]

G90X#5Y#6

#17=#17+#8

#13=#13-1

()

(RAPID-TO-DEPTH)

#18=#20+#20+#20

G0G90Z#18

()

(RAMP-IN)

G1G17G42G91X[[#100/2]-#23]Y#23F#9

G2X#23Y#23R#23

()

(VINTOVOE DVIGENIE)

#3=#18

WHILE[#3GE#26]DO1

#3=#3-#20

I[#100/2]Z-#20

END1

()

(RAMP-VIHOD)

X#23Y#23R#23

G1G40X[[#100/2]-#23]Y#23

()

(RAPID-TO-SAVED-Z-POSITION)

G0G90Z#1

END2

G#2G80

()

(RESTORE-POSITIONING-MODE)

IF[#2EQ90]GOTO99

G91

GOTO99

()

(ALARM-MESSAGES)

GOTO99

N100#3000=100(INVALID MAJOR DIA, D VALUE)

GOTO99

N9#3000=9(INVALID FEED RATE, F VALUE)

GOTO99

N11#3000=11(INVALID REGISTER, H VALUE)

GOTO99

N20#3000=20(INVALID PITCH, T VALUE)

GOTO99

N23#3000=23(TOOL DIA TO LARGE)

GOTO99

N26#3000=26(INVALID DEPTH, Z VALUE)

()

(PROGRAM-END)

N99M99

%

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

[Ander 122]

Зачем заморачиваться, всё-равно обкатывать будешь.

%
O2727
T20M6
S1500M3G43Z222H20D20
#1=0(start_angle)
#2=90(step_angle)
#3=4(N holes)
#4=20(D_tread)
#5=2(pitch)
#6=-20(depth)
#7=80(R circle_holes)
#8=0(X center)
#9=0(Y center)
#10=100(feed)
(--------------)
#13=#5*3(Z podhod 3 shaga)
#14=#6-#13(depth_tread)
#15=#4/2(R tread)
#16=Fix[ABS[#14/#5]](N turns)
G52 x#8 y#9
#26=#16
While [#3  Gt 0] Do 2
G17G90 G16
G0 X#7Y#1
G15
G43Z#13
G1G91 G41 X#15 F#10
WHILE [#26 GT 0] DO1
G3 I-#15J0 z-#5
#26=#26-1
END1
G1G40G90 X-#15
G0Z100
#3=#3-1
#1=#1+#2
#26=#16
END 2
G0Z222
G52X0Y0
M30
%

Изменено 28 апреля 2023 пользователем Ander

[Ander 122]

надо G90 переместить на следующий кадр.

........

END1
G1G40 X-#15
G0G90Z100

.........               

[VODKABALALAIKALAPTI 0]

Всех приветствую, никто не сталкивался с таким? Хочу поставить защиту на диапазон программ (параметры 3220-3223) выдаёт ошибку защита от записи, FANUC 18i-B

[VODKABALALAIKALAPTI 0]

19.06.2023 в 18:23, VODKABALALAIKALAPTI сказал:

Всех приветствую, никто не сталкивался с таким? Хочу поставить защиту на диапазон программ (параметры 3220-3223) выдаёт ошибку защита от записи, FANUC 18i-B

прошу прощения перепутал стойки, речь идёт о Fanuc 31i model B

[Viktor2004 883]

19.06.2023 в 20:23, VODKABALALAIKALAPTI сказал:

FANUC 18i-B

А на фото другой Фанук

[VODKABALALAIKALAPTI 0]

13 часов назад, Viktor2004 сказал:

А на фото другой Фанук

Выше вашей цитаты я написал что ошибся стойкой 

13 часов назад, Viktor2004 сказал:

А на фото другой Фанук

Просто перед тем как написать сюда я очень долго читал и пробовал но все равно не даёт поставить пароль,а в параметрах 3210-3211 все работает и блокирует программы 9000+ и 8000+, я так понял что параметры 3220 и 3221 тоже самое и что блокируют выборочный диапазон программ , правильно я понимаю ? 

13 часов назад, Viktor2004 сказал:

А на фото другой Фанук

Если это так, то в параметрах со значением psw, стоят нули а судя по мануалу это состояние разблокирования , но при попытке ввести диапазон программ в 3222-3223 пишет write protect 

[VODKABALALAIKALAPTI 0]

14 часов назад, Viktor2004 сказал:

А на фото другой Фанук

Вообщем я в лютом замешательстве, для чего нужно было делать две пары параметров psw и key и одна из них заблокирована, у меня на работе два станка с такой же стойкой , попробую на другом , но все равно хотелось бы копнуть проблему для саморазвития 

[Александр1979 221]

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

Вообщем я в лютом замешательстве, для чего нужно было делать две пары параметров psw и key и одна из них заблокирована, у меня на работе два станка с такой же стойкой , попробую на другом , но все равно хотелось бы копнуть проблему для саморазвития 

Это опция

[VODKABALALAIKALAPTI 0]

11 часов назад, Александр1979 сказал:

Это опция

Понял, спасибо большое 

[chelfkedah 0]

Привет, есть у кого универсальная программа с переменными резьбофрезой наружная резьба станок фанук фрезерный?