cnc-club.ru

Код: Выделить всё

; перед запуском программы подвести ось х на 55мм
O<clamp> sub
M66 E0 L0
O<M66> if [#5399 LE 0.1]
M64 P05
O<M66> else
M66 E0 L0
O<M66> endif
O<clamp> endsub

G90
G4 P10
O104 repeat [100]     ; начало цикла (100раз)
M64 P02               ; включение реле для проверки отсутствия метчиков в зоне резания
M64 P01               ; включение приводов шпинделей
G1 F200 A-45          ; поворот стола
O<clamp> call   
M65 P02               ; выключение реле проверки отсутствия метчиков в зоне резания
M4 S7000              ; задание направления и скорости вращения резьборезных бабок
M64 P05               ; включение реле (тормоз) 
M64 P04               ; включение реле (резбьбонарезание)
G4 P1                 ; выдержка времяни для процесса нарезания резьбы  
M65 P04               ; выключение реле резьбонарезания
M3 S5000              ; реверс шпинделя резьбонарезания
G0 G90 X115           ; быстрое перемещение фрезы к зоне резания 
G1 X70 Y-25 Z-25 F200 ; сверление и фрезование  
G0 X-185 Y25 Z25      ; возврат инструмента - вывод из зоны резания
M65 P05               ; выключение реле тормоза 
G4 P1                 ; пауза - время растормаживания стола
O104 endrepeat        ; конец цикла
M65 P01               ; выключение приводов шпинделей
M2

Код: Выделить всё

O<clamp> sub
M66 E0 L0
O<m66> while [#5399 GT 0.1]
M66 E0 L0
O<m66> endwhile
G4 P1
M64 P05
O<clamp> endsub

G90
O104 repeat [3] 
G1 F200 A-45
O<clamp> call
G4 P2
M65 P05
O104 endrepeat
m2