Системные переменные 802D sl

[zarathustra 1]

Всё, разобрался как писать свои собственные циклы. Сам написал файлы COV.COM и UC.COM. Написал три цикла - всё работает как надо.

Мне уже сименс больше нравится чем фанук. Всем спасибо за помощь.

[Ander 122]

а можешь более подробно написать свои действия и хотя бы пример своего цикла? Я пытался - и мимо....

[zarathustra 1]

Вот сама программа цикла глубокого сверления _DDRILL.SPF:

;CYCLE OF DEEP DRILL

PROC _DDRILL(REAL Z_1,REAL Z_2,REAL POD_,REAL _Q_)

DEF REAL ZNACH,GG60,SFTBR,GLU1,GLU2,OBOROT

MSG("DEEP DRILL Z="<<Z_2<<" Q="<<_Q_)

GG60=$P_GG[10]

ZNACH=$AA_IW[Z];KOORD Z

SFTBR=$P_GG[21]

OBOROT=$P_S[1]

OBOROT=180./OBOROT

SOFT

G60

G0Z=Z_1

GLU1=Z_1-_Q_

STRTDR:

G1Z=GLU1 F=POD_

G4F=OBOROT

G0Z=Z_1

GLU2=GLU1+0.35

G0Z=GLU2

GLU1=GLU1-_Q_

IF GLU1>Z_2 GOTOB STRTDR

G1Z=Z_2 F=POD_

G4F=OBOROT*2.

G0Z=ZNACH

IF GG60<1.5

G60

ELSE

G64

ENDIF

IF SFTBR<1.5

BRISK

ELSE

SOFT

ENDIF

MSG()

M2

Вот файл COV.COM (он на 4 цикла уже):

S2.0.0\DRILL\C1(_DRILL)

S3.0.0\DDRILL\C2(_DDRILL)

S4.0.0\RASTOR\C3(_RASTOR)

S5.0.0\SPIRALHR\C4(_SPIRHR)

Файл UC.COM:

//C1(_DRILL) DRILL

(R/-1000 1000/0/Z_NACH_SV)[Z_1/Z_1]

(R/-1000 1000/0/Z_KON_SV)[Z_2/Z_2]

(R/0 10000/0/PODACHA)[F_/F_]

//C2(_DDRILL) DEEP DRILL

(R/-1000 1000/0/Z_NACH_SV)[Z_1/Z_1]

(R/-1000 1000/0/Z_KON_SV)[Z_2/Z_2]

(R/0 10000/0/PODACHA)[F_/F_]

(R/0 1000/0/Z_SV)[Q_/Q_]

//C3(_RASTOR) RAST ORIENT

(R/-1000 1000/0/Z_NACH_R)[Z_1/Z_1]

(R/-1000 1000/0/Z_KON_R)[Z_2/Z_2]

(R/0 10000/0/PODACHA)[F_/F_]

(R/0 1000/0/SM_)[sM_/SM_]

//C4(_SPIRHR) SPIRAL HORIZ

(R/-1000 1000/0/D_NACH)[D_1/D_1]

(R/-1000 1000/0/D_KON)[D_2/D_2]

(R/-1000 1000/0/Z_NACH)[Z_1/Z_1]

(R/-1000 1000/0/Z_KON)[Z_2/Z_2]

(R/0 1000/0/SM_R)[sMR/SMR]

(R/0 1000/0/SM_Z)[sMZ/SMZ]

(R/0 10000/0/PODACA_MI)[FMI/FMI]

(R/0 10000/0/PODAC_MA)[FMA/FMA]

(R/0 360/0/UG_0)[uG0/UG0]

Все эти файлы в юзерской папке (название не помню).

Более-менее понятно расписано в "руководстве по программированию SINUMERIK 840D/810D/FM-NC ЦИКЛЫ".

Скачал отсюда

<noindex>http://clck.yandex.ru/redir/AiuY0DBWFJ4ePa...no=0&b64e=2</noindex>

Главное после создания или изменения файлов COV.COM и UC.COM сделать перезагрузку. И желательно перед перезагрузкой копию их сохранить под другим именем чтоб их заново не писать. А то если какая ошибка то при попытке их открыть вся система зависает. Помогает только перезагрузка с последующим удалением этого файла. Пока экспериментировал 3 раза така беда была.

Зато теперь цикл глуб. сверления вызываю так:

_DDRILL(2,-20,3)

Сверлить от 2 до -20 по 3мм за проход.

И ничего не надо объявлять в начале программы - красота.

А вот стандартные циклы так занести не удалось(я их нашёл) - нет доступа в папку. Хотя пароль SUNRISE вводил. Но теперь они мне в принципе и не нужны.

[Dingoff 0]

Народ! Ссылки не работают, вторую думаю найду, а в первой, про матчасть ,что было?

 

Стойка 802d  полностью голая, хорошо хоть макросы понимает)

[Avenger86 0]

А у меня вопрос по поводу переноса КС. В хайде можно ручками в стойке добавить в готовую программу по встроенному циклу, или объявить переменную и в DL каждого инструмента эту переменную ввести. Задача - не привязывать разные по высоте заготовки, для торцевания, а после обмера штангелем вводить высоту в программу. Как это сделать в Siemens?

[A_1 231]

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

А у меня вопрос по поводу переноса КС. В хайде можно ручками в стойке добавить в готовую программу по встроенному циклу, или объявить переменную и в DL каждого инструмента эту переменную ввести. Задача - не привязывать разные по высоте заготовки, для торцевания, а после обмера штангелем вводить высоту в программу. Как это сделать в Siemens?

Здравствуйте. Можно воспользоваться R-переменными и командой TRANS:

R1=60
R2=75
TRANS Z=R1; смещение СК по Z НА величину R1
TRANS Z=R2