Доворот для токарного станка CTX Beta 1250 TC

[Алдар 0]

Здравствуйте, у меня возникла проблема на работе. Сам недавно работаю оператором. Была у нас программа для доворота детали по нулям. А, все операторы что работали ушли с этого станка и я остался один. Связался с прошлым оператором он говорит что была инструкция, инструкция была потеряна, без нее не получается написать запуск подпрограммы для доворота. Через MDA.

Ниже представлена  подпрограмма для доворота 

 

Программа

LC40F

 

; R1-Y¶

DEF REAL _X1, _X2, _Y1, _Y2, _C¶

DIAMOF¶

M120¶

L770("X", $AA_IW[X], $AA_IW[X]-20.,0)¶

_X1=R50¶

_Y1=$AA_IW[Y]¶

STOPRE¶

G1F1000Y=IC(R1) ¶

L770("X",$AA_IW[X] , $AA_IW[X]-20.,0)¶

_X2=R50¶

_Y2=$AA_IW[Y]¶

STOPRE¶

_C=ATAN2(_Y2- _Y1, _X2-_X1)¶

$P_UIFR[$P_UIFRNUM, C4, TR]=_C+90.+$AA_IW[C4]¶

M121¶

RET¶

¶

==eof==

 

Как ее запустить помогите прошу пришли детали, а я не умею читать циклы, а больше на все заводе не умеют их писать

[Vladislav-dobrynin 171]

LC40F

 

; R1-Y¶                                                          - в параметр R1 необходимо занести значение расстояния между точками измерения вдоль оси Y

DEF REAL _X1, _X2, _Y1, _Y2, _C¶

DIAMOF¶

M120¶                                                           - включение щупа 

L770("X", $AA_IW[X], $AA_IW[X]-20.,0)¶       - измерение первой точки в направлении Х, результат измерения по оси X в присваивается в R50

_X1=R50¶                                                      - первая координата катета по Х как результат измерения 

_Y1=$AA_IW[Y]¶                                           - первая координата катета по Y как текущее положение по оси

STOPRE¶

G1F1000Y=IC(R1) ¶                                         - перемещение по Y на величину заданную в R1

L770("X",$AA_IW[X] , $AA_IW[X]-20.,0)¶        - измерение второй точки в направлении Х, результат измерения по оси X в присваивается в R50

_X2=R50¶                                                       - вторая координата катета по Х как результат измерения 

_Y2=$AA_IW[Y]¶                                             - первая координата катета по Y как текущее положение по оси

STOPRE¶

_C=ATAN2(_Y2- _Y1, _X2-_X1)¶                                       - расчет угла для поворота оси С через полученные катеты треугольника

$P_UIFR[$P_UIFRNUM, C4, TR]=_C+90.+$AA_IW[C4]¶   - осуществление базового поворота оси С в текущем нуле детали 

M121¶                                                                             - отключение щупа

RET¶

¶

 

Итого - данная подпрограмма производит измерения двух точек вдоль оси Х, расположенных на расстоянии R1 вдоль оси Y, в результате измерений производится расчет угла доворота кромки детали до машинной оси Х, результат вносится в привязку оси С в текущий ноль детали. 

 

Как запускать:

1) Заходим в таблицу нулей детали, в текущем нуле детали обнуляем привязку по оси C

2) Переходим в JOG и маховичком подводим измерительный щуп в позицию вблизи первой токи измерения.

3) Вносим в параметр R1 визуально измеренное расстояние вдоль Y до позиции второго измерения .

4) Переходим в AUTO, выбираем программу LC40F. Нажимаем на кнопку Start 

5) После измерений, заходим в таблицу нулей детали, смотрим произведенную привязку по оси C