Hello Guest it is November 20, 2019, 01:18:18 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

1011
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 02, 2018, 03:17:32 AM »
Hello Tony,

according to the Manuals i would connect the laser like this (if the UC300 has a external 5V supply)

il1000 Brown uc300 anaolg plug pin1 -> 12V
il1000 Blue uc300 anaolg plug pin2 -> 0V
il1000 orange uc300 anaolg plug pin3 -> analog Input1
il1000 shield uc300 anaolg plug pin5 -> gnd

(if the UC300 has no external 5V supply)

il1000 Brown external power supply -> 10-30VDC
il1000 Blue external power supply -> 0V
il1000 orange uc300 anaolg plug pin3 -> analog Input1
il1000 shield uc300 anaolg plug pin5 -> gnd

and if i understand UC300 Manual we should get a value in OEMDRO(1000)

but you have to do this from the il1000 Manual:

"3-1 Operation When the Power is Turned on for the First Time" (page 3-2)
"3-3 Initial Reset (Initialize)" (page 3-8)

as well.

Thomas








1012
Feature Requests / Re: Commission work, Macro needed please help!
« on: February 02, 2018, 02:57:50 AM »
here the code in code tag, to Keep the Smileys out

Code: [Select]

 
' ---------------------------------------------------------------------------------
' TPS 26.01.2018 
' ATC macro for 8 places
' V 1.0.0
' ---------------------------------------------------------------------------------

' Main routine for tool change -----------------------------------------------------
Sub Main()

' declare ten global variables ----------------------------------------------------
  Dim Pos_X_Tool(8) as double

' variables for the feedrate
F_slow = 400 'feedrate for slow moves
F_fast = 2000 'feedrate for fast moves


'remark all TC position are in machine coordinates !!!

'variables for the X positions
Pos_X_Tool(1) = 100.0000 'X position for tool 1
Pos_X_Tool(2) = 200.0000 'X position for tool 2
Pos_X_Tool(3) = 300.0000 'X position for tool 3
Pos_X_Tool(4) = 400.0000 'X position for tool 4
Pos_X_Tool(5) = 500.0000 'X position for tool 5
Pos_X_Tool(6) = 600.0000 'X position for tool 6
Pos_X_Tool(7) = 700.0000 'X position for tool 7
Pos_X_Tool(8) = 800.0000 'X position for tool 8

'variables for the Y Position
Pos_Y_before = 200.0000 'Y position in front of TC
Pos_Y_in = 100.0000 'Y position in TC

'variables for the Z Position
Pos_Z_save = 300.0000 'Z position over all that we can move (X/Y) save to TC
Pos_Z_over = 200.0000 'Z position over the placed tool (X move possible)
Pos_Z_in = 100.0000 'Z position in TC

'variable for toolclamp output
TC_output = Output1

'variable for delay open/close toolclamp
TC_wait = 1000
 
' ---------------------------------------------------------------------------------


'get the tool relvated numbers
newtool = GetSelectedTool() 'get the new toolnumber
acttool  = GetCurrentTool() 'get the actual toolnumber

'do some basic check's

' no tool loaded nothing to unload
If ((newtool = 0) and (acttool = 0)) Then
message("no tool loaded nothing to unload !")
Exit Sub
End If

' nothing to do newtool = acttool
If newtool = acttool Then
message("nothing to do newtool = acttool !")
Exit Sub
End If
 
'check toolnumber in range
If  (((newtool > 8) Or (newtool < 1)) and (newtool <> 0)) Then
Message (" toolnumber " & newtool & " is not in range (1-8). abort toolchange  ! ")
DoButton(3)
Exit Sub
End If

'X-axis is not referenced
If GetOEMLED(807) Then
Message ("X-axis no reference -> abort !!")
DoButton(3)
Exit Sub
End If

'Y-axis is not referenced
If GetOEMLED(808) Then
Message ("Y-axis no reference -> abort !!")
DoButton(3)
Exit Sub
End If

'Z-axis is not referenced
If GetOEMLED(809) Then
Message ("Z-axis no reference -> abort !!")
DoButton(3)
Exit Sub
End If

Message "change tool: " +CStr(acttool) + " to: " + CStr(newtool)

'get the current position and settings
CurrentFeed = GetOemDRO(818)  'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state
CurrentXpos = GetOemDRO(83) 'Get t X position where we came from
CurrentYpos = GetOemDRO(84) 'Get t Y position where we came from
CurrentZpos = GetOemDRO(85) 'Get t Z position where we came from

'Get Axis Scale factors in use
XScale = GetOEMDRO(59)
YScale = GetOEMDRO(60)
ZScale = GetOEMDRO(61)

'Set All Axis Scales to 1
SetOEMDRO(59,1)
SetOEMDRO(60,1)
SetOEMDRO(61,1)
Sleep(250)

' turn spindle off just in case
Code "M5"

' go to save Z position
Message "goto Z-save"
Code "G53 G90 G01 Z"+CStr(Pos_Z_save)+"F"+CStr(F_fast)
WaitForMove

'only unload tool
If newtool = 0 Then
'go to X/Y position (Y-before)
Message "go to X/Y position"
Code "G53 G90 G01 X"+CStr(Pos_X_Tool(acttool))+"Y"+CStr(Pos_Y_before)
WaitForMove
'goto Z-in fast
Message "goto Z-in fast"
Code "G53 G90 G01 Z"+CStr(Pos_Z_in)
WaitForMove
'go to Y position in
Message "go to Y position in"
Code "G53 G90 G01 Y"+CStr(Pos_Y_in)+"F"+CStr(F_slow)
WaitForMove
'open toolclamp
Message "open toolclamp"
ActivateSignal(TC_output)
Sleep(TC_wait)
'goto Z-over slow
Message "goto Z-over slow"
Code "G53 G90 G01 Z"+CStr(Pos_Z_over)
WaitForMove
End If

'only load tool
If acttool = 0 Then
'go to X/Y position
Message "go to X/Y position"
Code "G53 G90 G01 X"+CStr(Pos_X_Tool(newtool))+"Y"+CStr(Pos_Y_in)
WaitForMove
'goto Z-over fast
Message "goto Z-over fast"
Code "G53 G90 G01 Z"+CStr(Pos_Z_over)
WaitForMove
'open toolclamp
Message "open toolclamp"
ActivateSignal(TC_output)
Sleep(TC_wait)
'goto Z-in slow
Message "' goto Z-in slow"
Code "G53 G90 G01 Z"+CStr(Pos_Z_in)+"F"+CStr(F_slow)
WaitForMove
'close toolclamp
Message "close toolclamp"
DeactivateSignal(TC_output)
Sleep(TC_wait)
'go to Y position before
Message "go to Y position before"
Code "G53 G90 G01 Y"+CStr(Pos_Y_before)
WaitForMove
End If

'full tool change
If ((acttool <> 0) and (newtool <> 0)) Then
'unload tool
'go to X/Y position (Y-before)
Message "go to X/Y position"
Code "G53 G90 G01 X"+CStr(Pos_X_Tool(acttool))+"Y"+CStr(Pos_Y_before)
WaitForMove
'goto Z-in fast
Message "goto Z-in fast"
Code "G53 G90 G01 Z"+CStr(Pos_Z_in)
WaitForMove
'go to Y position in
Message "go to Y position in"
Code "G53 G90 G01 Y"+CStr(Pos_Y_in)+"F"+CStr(F_slow)
WaitForMove
'open toolclamp
Message "open toolclamp"
ActivateSignal(TC_output)
Sleep(TC_wait)
'goto Z-over slow
Message "goto Z-over slow"
Code "G53 G90 G01 Z"+CStr(Pos_Z_over)
WaitForMove

'load new tool
'go to X/Y position
Message "go to X/Y position"
Code "G53 G90 G01 X"+CStr(Pos_X_Tool(newtool))+"Y"+CStr(Pos_Y_in)+"F"+CStr(F_fast)
WaitForMove
'goto Z-in slow
Message "' goto Z-in slow"
Code "G53 G90 G01 Z"+CStr(Pos_Z_in)+"F"+CStr(F_slow)
WaitForMove
'close toolclamp
Message "close toolclamp"
DeactivateSignal(TC_output)
Sleep(TC_wait)
'go to Y position before
Message "go to Y position before"
Code "G53 G90 G01 Y"+CStr(Pos_Y_before)
WaitForMove

End If


' go to save Z position
Message "goto Z-save"
Code "G53 G90 G01 Z"+CStr(Pos_Z_save)+"F"+CStr(F_fast)
WaitForMove

'restore the origin values
Code "F" &CurrentFeed 'Returns to prior feed rate
If CurrentAbsInc = 0 Then 'if G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then ' if G0 was in effect before then return to it
Code "G0"
End If   

'Put previous Axis Scale factors back
SetOEMDRO(59,XScale)
SetOEMDRO(60,YScale)
SetOEMDRO(61,ZScale)
Sleep(250)

'set new tool
    SetCurrentTool( newtool )

' go back to the position we came from
Message "goto origin X/Y"
Code "G53 G01 X"+CStr(CurrentXpos)+"Y"+CStr(CurrentYpos)
WaitForMove
Message "goto origin Z"
Code "G53 G01 Z"+CStr(CurrentZpos)
WaitForMove

'set new tool
    SetCurrentTool( newtool )
Message " "

End Sub


'global Sub's
Sub WaitForMove ()
While IsMoving()
Sleep(15)
Wend
End Sub




1013
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 01, 2018, 02:33:09 PM »
Tony,
still got not Response from Keyence for the manual.
i think i will have a phone call tomorrow.

Your "project" with this laser sound's like an new "Challenge", but if you want i am
in this Challenge.

let's start (but when i think about it, we started allready ;))

Thomas

1014
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 01, 2018, 12:48:35 PM »
Tony,
the uc300 Sounds good, it has 2 analog Inputs 0-10V.

tryed to download the Manual for the il1000, had to registrate to
get it, but registation is not veryfied till now.

i will come back here as soon i have the Manual.

can you please describe what you exactly want to do with this sensor.

Thank you Thomas

1015
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 01, 2018, 11:14:18 AM »
ok,
had a quick look on Keyence Hompage

il300 has range from 160 to 450 mm
il1000 can have following Outputs

±5 V, 1 bis 5 V, 0 bis 5 V Ausgangsimpedanz 100 Ω*1
4 bis 20 mA, Max. Lastwiderstand: 350 Ω*1

so first question, witch type do you have ?
second question, what Hardware (BOB or Motion Controller) do you use, to see how it could be connected.

Thomas



1016
General Mach Discussion / Re: I Need a macro written will pay.
« on: February 01, 2018, 09:39:08 AM »
Hi,

can you post type and maybe Manual of that keyance laser.
then we will see.

Thomas

1017
i wish, i heve some people's time, great!

Thomas

1018
General Mach Discussion / Re: Lathe toolchanger macro issues
« on: January 29, 2018, 02:24:59 AM »
Hello Jon,

had a look to the macros, and i am not getting clever of it.

i dont know your toolchanger.

is it something like shown here: https://www.youtube.com/watch?v=lRRlSRWfSqs ?

if you are moving a-axis in Manual mode, is it allways moving ?
where are the home positions of X and Z ?
X and Z directions are like in the Video?
how is the toolchanger satteled/locked after a Change?

excuse my bad english.
Thomas

1019
General Mach Discussion / Re: Bridgeport Knee Mill Conversion?
« on: January 29, 2018, 01:43:28 AM »
thank you fore the Information,
Looks like to be my next Little Project, after the retrofit of my TongIl TNV40 is finished.

Thomas

1020
General Mach Discussion / Re: Bridgeport Knee Mill Conversion?
« on: January 28, 2018, 01:44:30 PM »
I measure all my tools in a height-setter which feeds the result straight back to Mach TT, all...

would be interested, how you do this, could you please describe.

Thank you Thomas