Hello Guest it is January 16, 2021, 01:06:42 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

1601
General Mach Discussion / Re: Mach3 connect to RAMPS 1.4
« on: October 09, 2015, 04:24:05 AM »
Hi,

if you use RAMPS 1.4 with the Arduiono software,
you only need "universal g code sender" (google for it).

Thomas

1602
General Mach Discussion / Re: CNC Lathe turret tool changer help?
« on: October 09, 2015, 04:17:17 AM »
Hi,
i have written down a small test script, not tested:

Code: [Select]
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

1603
VB and the development of wizards / Re: Mach3 Probe HELP
« on: October 05, 2015, 05:53:56 AM »
ok, here the corrected version:

Sub Main

cutheight = 20
cutpos = 0
ZProbePos = 0

    Code "G31 Z-200 F150" 'do the probing
    While IsMoving() 'wait for finish
    Wend           
   
    'get the position where we hit the probe
    ZProbePos = GetVar(2002)   
    cutpos = ZProbePos - cutheight

    'go to cutting heigt
    code "G1 Z" + CStr(cutpos) + "F100"

    'set new z-Pos
    SetDRO(2,cutheight)

End Sub


but the logic  sequence would be to do a ref all first,
and the run the script, because the ref Z will "destroy"
your probe height.

Thomas



1604
VB and the development of wizards / Re: Mach3 Probe HELP
« on: October 05, 2015, 05:28:28 AM »
what exactly did not work ?

did you do a ref all after the probe ?

1605
VB and the development of wizards / Re: Mach3 Probe HELP
« on: October 05, 2015, 04:58:52 AM »
Hi,

a simple example for metric would be:

Sub Main

cutheight = 20
cutpos = 0
ZProbePos = 0

    Code "G31 Z-200 F150" 'do the probing
    While IsMoving() 'wait for finish
    Wend           
   
    'get the position where we hit the probe
    ZProbePos = GetVar(2002)   
    cutpos = ZProbePos - cutheight

    'go to cutting heigt
    code "G1 Z" + cutpos + "F100"

    'set new z-Pos
    SetDRO(2,cutheight)

End Sub

not tested, just written down.

Thomas

1606
VB and the development of wizards / Re: Mach3 Probe HELP
« on: October 05, 2015, 02:50:44 AM »
Hi,

post your vbscript an we will see, but remember
the probing is only measuring the length of the
tool, nothing else.

Thomas

1607
Hi Mark,

never used the Tangential functionality, but i think it will rotate the knife,
because this is the basic function of tangential control.

Thomas

1608
Hi Mark,

that is quite easy.

1. put two input fields on your screen with OEMDRO's, lets say OEMDRo 1300 for X-distance and OEMDRo 1301 for Y-distance
2. place a button in screen and fill it with a VB something like this

Sub Main
   XPos=GetOEMDRO(1300)
   YPos=GetOEMDRO(1301)

   Code "G0 A90"
   Code "G0 X" + XPos + "Y" + YPos
   Code "G1 Z-1"
   Code "G1 X" + XPos + "Y0"
   Code "G1 Z1"
   Code "G0 X0 Y0"

End Sub

Thomas

1609
General Mach Discussion / Re: Tool Change Script
« on: September 14, 2015, 03:05:07 AM »
Hi,

have a look for Arduino and Modbus in the forum,
there is a running example for data exchange between
Mach3 and Arduino,

Thomas

1610
General Mach Discussion / Re: Activate "Set Home Z" from G-Code possible?
« on: September 11, 2015, 04:10:02 AM »
Hi,

SetOEMDro(3,5) will set the slow jog speed to 5%,
but i am not sure the DoOemButton(213) will
use this speed.
Thomas

here:

http://www.machsupport.com/forum/index.php/topic,30658.msg212858.html#msg212858

i have posted a list with button's, led's and dro's.