I appreciate all help!!!

Hello everyone! I am retrofitting my CHNC4, I am working on the lathe portion now. Currently there are 4 wires coming off the lathe encoder.

Here is the output states of each wire to what tool it is at.


Output 6 is the output to start and stop the turret.

Tool   pin 2   pin 3   pin 4   pin 5
1   1   0   0   0
2   0   1   0   0
3   1   1   0   0
4   0   0   1   0
5   1   0   1   0
6   0   1   1   0
7   1   1   1   0
8   0   0   0   1


Here is the script I started. However I have 2 questions:

Question #1: What do I need to add to the script to update the current tool and tool offset to reflect selected tool?

Question #2: How would I be able to compare the signals for example when I get to tool 7 when pin 2,3, and 4 are HI? To tell mach, yes you are at tool 7 because all states are HI? I tried to put Active1 & active2 etc etc when the 2 or more signals need to be compared. However when I emulate an active state on those inputs, mach does not activate output6 or stop when I hit the emulated key (it shows on the diagnostic screen that it is active when I hit the key)

If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   END
    End If
 
 
 If GetSelectedTool = 1 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active1) Then Exit Do
   Loop
    DeActivateSignal(Active1)
       Message("Tool#1 Loaded")
   End If
 
 If GetSelectedTool = 2 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active2) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If
   
 If GetSelectedTool = 3 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active1) & IsActive(Active2) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If   

 If GetSelectedTool = 4 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active3) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If   
   
 If GetSelectedTool = 5 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active1) & IsActive(Active3) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If   
   
 If GetSelectedTool = 6 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active2) & IsActive(Active3) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If   
   
 If GetSelectedTool = 7 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active1) & IsActive(Active2) & IsActive(Active3) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If   
   
 If GetSelectedTool = 8 Then
 Message "Moving to Tool# " &GetselectedTool()

    Do
     ActivateSignal(OutPut6)
   If IsActive(Active4) Then Exit Do
   Loop
    DeActivateSignal(OutPut6)
       Message("Tool#1 Loaded")
   End If      
   
     End    

Hi,
i have written down a small test script, not tested:

Sub Main()
' -------------------------------------------------------------------------------
' TPS 09.10.2015  
' simple Test for Toolchange
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4


'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   END
End If
 
Dim ActTurretPos as long
ActTurretPos = 0

Message "Moving to Tool# " &GetselectedTool()

   ActivateSignal(OutPut6)
   While ActTurretPos <> tool
      ActTurretPos = GetTurret()  
   Wend
   ActivateSignal(OutPut6)
   Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
  
End Sub

  

'function to get the actual turret positiom
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurrent + 1
    End if
    
    If IsActive(Input1) Then
        GetTurret = GetTurrent + 2
    End if

    If IsActive(Input1) Then
        GetTurret = GetTurrent + 4
    End if

    If IsActive(Input1) Then
        GetTurret = GetTurrent + 8
    End if
    
End Function
    


Regards Thomas

Hi Thanks for the response, that does not seem to work....

so what is happening,

can you see Input1 - Input4 changing in diagnostic screen,
when it rotates ?

Thomas

Hello,

I can see the 4 inputs, but your code seems off, you are only looking for one input for each tool change, input1

look at your code

Hi,

found a mistake in my code:

Sub Main()
' -------------------------------------------------------------------------------
' TPS 09.10.2015  
' simple Test for Toolchange
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4


'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   END
End If
 
Dim ActTurretPos as long
ActTurretPos = 0

Message "Moving to Tool# " &GetselectedTool()

   ActivateSignal(OutPut6)
   While ActTurretPos <> tool
      ActTurretPos = GetTurret()  
   Wend
   ActivateSignal(OutPut6)
   Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
  
End Sub

  

'function to get the actual turret positiom
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End if
    
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End if

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End if

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End if
    
End Function
    


copy and paste error

pls copy code again, did an other change.


Sub Main()
' -------------------------------------------------------------------------------
' TPS 09.10.2015 
' simple Test for Toolchange
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4


'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   END
End If
 
Dim ActTurretPos as long
ActTurretPos = 0

Message "Moving to Tool# " &GetselectedTool()

   ActivateSignal(OutPut6)
   While ActTurretPos <> tool
      ActTurretPos = GetTurret() 
   Wend
   ActivateSignal(OutPut6)
   Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
   
End Sub

 

'function to get the actual turret positiom
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End if
   
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End if

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End if

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End if
   
End Function
   



Seems to work, can you add a time out incase it doesnt see the code?

And It still would need a deactivate output 6, so the turret stops LOL

I mean see the input, (so turret does just keep spinning and spinning and spinning)

 

ok,

here with DeActivate(Output6) and timeout,
hope it works.

Sub Main()
' -------------------------------------------------------------------------------
' TPS 09.10.2015  
' simple Test for Toolchange
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4


'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   END
End If
 
Dim ActTurretPos as long
ActTurretPos = 0

Starttime = Timer

Message "Moving to Tool# " &GetselectedTool()

   ActivateSignal(OutPut6)
   While ActTurretPos <> tool
      ActTurretPos = GetTurret()
      Akttime = Timer
      If Akttime - Starttime > 20 then 'Timeout 20s
       Message("Turret timeout")
       DeActivateSignal(OutPut6)
       End
      End if
   Wend
   DeActivateSignal(OutPut6)
   Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
  
End Sub

  

'function to get the actual turret positiom
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End if
    
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End if

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End if

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End if
    
End Function