cnc-club.ru

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

' macros aftaev
'=== Declaraciones ===
Dim Feed
Const DRO_X = 0
Const DRO_Y = 1
Const DRO_Z = 2

' запоминаем начальную скорость
Feed = FeedRate
' Проверяем включена кнопка поиск меалла on/off
' If GetUserLED(2222) Then
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Позиционируем датчик металла над проколом Y-10 X-35
Code "G0 Y" & GetDRO(DRO_Y)-10 & "G0 X" & GetDRO(DRO_X)-35 ' ??????????

While IsMoving() ' ждем выполнения
Sleep 100
Wend

Code "m7" 'включаем пнвмопривод
While IsMoving ()
Sleep 100
Wend


' Ищем металл
ActivateSignal(Output2) 
Code "G31 Z-50 F500"
While IsMoving()
Sleep 100
Wend
DeActivateSignal(Output2) 

Code "G92 Z0" ' обнуляем Z
Code "G0 Z4 F200" ' Подымаемся на Z+4
While IsMoving ()
Sleep 100
Wend

Code "m9" ' выключаем пневмопривод
While IsMoving ()
Sleep 100
Wend

' позиционируем резак на место
Code "G0 Y" & GetDRO(DRO_Y)+10 & "G0 X" & GetDRO(DRO_X)+35 ' возврат в точку прожига
' End If
Code "F" & Feed ' возращаем скорость F

While IsMoving()
Sleep 100
Wend

DoSpinCW()'запускаем плазму

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

Code "m23"

'Turn on torch (and preheat for oxy-fuel)
Sub Main()

  CuttingMode = GetUserDRO(1351)

  If CuttingMode > 0 Then 'OxyFuel Cutting modes
  	 ActivateSignal(9)    'Turn on preheat
  	 DoSpinCW()            'Turn on Oxy
  Else                    'Plasma cutting mode
	 DoSpinCW()
  End If
End Sub

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

'Turn off torch (and preheat for Oxy)
Sub Main()
  
  CuttingMode = GetUserDRO(1351)

  If CuttingMode > 0 Then 'OxyFuel Cutting modes
    DeactivateSignal(9)    'Turn off preheat  
  	DoSpinStop()            'Turn off Oxy
  Else                    'Plasma cutting mode
    DoSpinStop()
  End If
End Sub

Code "m22"

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

'This routine makes probing (if necessary) and piercing
Sub Main()

Dim PierceHeight, PierceDelay, CuttingHeight
Dim PlungeFeed, CuttingFeed
Dim TipHeight
Dim CurrentAbsInc
Dim ProbeLim
Dim CurrentFeed
Dim PreheatTime
Dim CuttingMode

ProbeLim = 200 '200mm probing distance

PierceHeight  = GetUserDRO(1328)
PierceDelay   = GetUserDRO(1329) * 1000
CuttingHeight = GetUserDRO(1330)
CuttingFeed   = GetUserDRO(1331)
PlungeFeed    = GetUserDRO(1327)
TipHeight     = GetUserDRO(1326)
CurrentFeed   = FeedRate
ProbeDistance = GetUserDRO(1339)
ProbePrevX    = GetUserDRO(1340)
ProbePrevY    = GetUserDRO(1341)
CuttingMode   = GetUserDRO(1351) '0 = Plasma, 1 = OxyFuel with controlled Axis Z, 2 = OxyFuel with external Axis Z
PreheatTime   = GetUserDRO(1352) * 1000


CurrX         = GetDRO(0)
CurrY         = GetDRO(1)
CurrZ         = GetDRO(2)

'Current state of G90/G91 mode
CurrentAbsInc = GetOEMLed(48)


If (CuttingMode < 2) Then 'Execute probing only if current mode is not using external Axis Z
  Distance = (ProbePrevX - CurrX) * (ProbePrevX - CurrX) + (ProbePrevY - CurrY) * (ProbePrevY - CurrY)
  If Distance > (ProbeDistance * ProbeDistance) Then
    SetUserDRO(1340, CurrX)
    SetUserDRO(1341, CurrY)

    'We need to do probing now
    If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
      Code "(Probe plate is grounded, check connection and try again)"
      Code "M30"
    Else  
      'Probe
      ProbingMaximum = CurrZ - ProbeLim
      Code "G90 G31 Z" &ProbingMaximum & "F" & PlungeFeed
      While IsMoving()'wait for the move to finish
      Wend

      code "G92 Z" &TipHeight
      sleep(500)
    End if
  End If
  'Goto pierce height
  code "G90 G0 Z" &PierceHeight & " F" & CuttingFeed
  While IsMoving() ' Wait for probe move to finish
  Wend
End if

If CuttingMode > 0 Then 'OxyFuel Cutting modes  
  ActivateSignal(9)    'Turn on preheat
  If PreheatTime > 0 Then
     Sleep(PreheatTime)
  End If
  DoSpinCW()            'Turn on Oxy
Else                    'Plasma cutting mode
  DoSpinCW()
End If

If PierceDelay > 0 Then
  code "G04 P" &PierceDelay
End If

If CuttingMode < 2 Then 'Not in External Axis Z Mode
	'Set cutting feed and ABS/REL mode
	'And goto cutting height
	If CurrentAbsInc Then
		code "G90 G0 Z" &CuttingHeight
	Else
		code "G91 G0 Z" &(CuttingHeight-PierceHeight)
	End If
Else
	'Only set cutting feed and ABS/REL mode (External Axis Z Mode)
	If CurrentAbsInc Then
	  Code "G90"
	else
	  Code "G91"
	End If
End If

End Sub