cnc-club.ru

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

If IsLoading() Then
  ' do now't, program loading
Else

' dim some vars

  Dim next_tool As Integer
  Dim current_tool As Integer
  Dim steps_per_tool As Integer
  Dim steps_after_pawl As Integer
  Dim max_tools As Integer
  Dim holdingDRO As Integer
  Dim rotateCW As Integer
  Dim moves As Integer
  Dim fast_feed As Integer
  Dim slow_feed As Integer
  Dim axis As String
  Dim zero As Integer
  Dim to_pawl As Integer

' set up some vars

  zero = 0
  axis = "a" ' change to what ever axis you use for tool changer
  rotateCW = 0 ' set to 1 for CCW and 0 for CW rotation
  max_tools = 6 ' number of tools on turret
  steps_per_tool= 60 ' set to what ever it needs to be
  steps_after_pawl = 25 ' set to amount to clear pawl
  steps_to_lock_back_on_pawl =25 ' number of steps to lock onto pawl
  holdingDRO=1050 ' or what ever you have set screen dro to
  next_tool = GetSelectedTool()
  current_tool = GetUserDRO(holdingDRO)
  fast_feed = 18000 ' set to safe rapid rotation speed
  slow_feed = 9000 ' set to safe creep speed back onto pawl.

' do some tool changing

     If next_tool > max_tools Then
    Message "Zadan bolshii instryment!"
    Code "M30"
    End
  End If 
  If next_tool<1 Then
    Message "Zadan menshii instryment!"
    Code "M30"
    End
  End If
  If next_tool=current_tool Then
    Message "Instryment yge vibran!"
    

  Else
  ' lets do some changing
  ActivateSignal(Output1)


    If next_tool>current_tool Then moves=next_tool-current_tool  
    If next_tool<current_tool Then moves=max_tools-current_tool+next_tool
    rapid_move = (moves * steps_per_tool) + steps_after_pawl
    to_pawl = zero - steps_to_lock_back_on_pawl
    If rotateCW =1 Then
      rapid_move = zero - rapid_move
      to_pawl =  Abs(to_pawl)
    End If
    Code "G92 " & axis & "0"
    Code "G91 G94 G61"
    Code "G01 " & axis & rapid_move & "F" & fast_feed
    Code "G04 P5"
    While IsMoving()
    Wend
    Code "G01 " & axis & to_pawl &  "F" & slow_feed
    Code "G04 P550"

    While IsMoving()
    
    Wend
    SetCurrentTool next_tool
    SetUserDRO holdingDRO, next_tool
    Code "G90" ' back to absolute movement
    
Code "G90G95"


  DeActivateSignal(OUTPUT1)
message "Select Tool " & select_tool & " Complete" 

End   
        
    
    
  End If
  
  
End If
' end of tool change