cnc-club.ru

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

Rem	VBScript Для корректировки длинны инструмента 
'STEPMOTOR [14.11.2011]	
'Скрипт работает в метрической системе координат

        PlateOffset=2.33 'толщина платы мм.
        Zup=50		   'Расстояние на которое отойдет фреза после коррекции
        MaxZPlus=250	 'максимальный ход станка по оси Z мм.

        Sleep 100			'Пауза 0,1 сек.
        CurrentFeed = GetOemDRO(818) 	'Запомнить текущюю скорость, для того чтобы восстановить после коррекции.
        
        Code "F300"			'Задать скорость подачи до касания инструментом

            ZNew = GetDro(2) - MaxZPlus	  'опустить инструмент до касания
            Code "G31Z" &ZNew
            While IsMoving()		'Подождать пока произойдет касание платы.
            Wend
        
            ZNew = GetVar(2002) 		'читать точку касания
            Code "G0 Z" &ZNew + 3		'отьехать вверх на 3мм от точки касания
            While IsMoving ()
            Wend	

        Code "F50"			'замедлить подачу до 50мм\мин
        ZNew = GetDro(2) - 6		
        Code "G31Z" &ZNew   'опустить инструмент до касания
        While IsMoving()		'Подождать пока произойдет касание платы.
        Wend

        If PlateOffset <> 0 Then
            Call SetDro (2, PlateOffset)	'записать в окно Z толщину платы, тем самым откорректировав позицию по Z
            Code "G4 P0.25" 		'пауза для успешной записи значения в DRO
            ZNew = PlateOffset + Zup		'вычислени точки подьема
            Code "G0 Z" &ZNew 		'поднять на высоту отхода после коррекции
            While IsMoving ()
            Wend
            Code "(Z axis is now zero !)" 	'послать сообщение в статус
        
       End If

        Code "F" &CurrentFeed 		'Возвращаем установленное значение подачи
        Sleep 100