Messages

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

VB and the development of wizards / Re: How to create G-code from entries on the Mach3 screen

« on: September 21, 2015, 10:08:40 AM »

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

VB and the development of wizards / Re: How to create G-code from entries on the Mach3 screen

« on: September 21, 2015, 07:49:02 AM »

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.