Messages

1451

VB and the development of wizards / Re: Auto tool setting help.

« on: February 20, 2015, 12:24:20 AM »

Are you getting ANY error messages ? Are you using an OUTSIDE controller ??

(;-) TP

1452

VB and the development of wizards / Re: How to input the position of each tool in ATC.

« on: February 18, 2015, 01:30:39 PM »

Good Job. There is great joy when a thought actually becomes a working function/

(;-) TP

1453

Mach4 General Discussion / Re: Phantom Lua Script running on load

« on: February 18, 2015, 12:27:38 PM »

Well I have learned working with Les at SheetCam that LUA scripts are all compiled ready to run on Mach4 load. IF the script does not have Functions() to act as a stop then the script will RUN  on compiling(opening Mach4).

Just a thought, (;-) TP

1454

VB and the development of wizards / Re: How to input the position of each tool in ATC.

« on: February 17, 2015, 07:22:56 PM »

both errors mean that there are NO real values in the Xpos1 and ypos1 variables either the script is wrong OR the DROS are not correct OR you did not enter info into the dro.Remember you HAVE to hit enter after inputting values into a DRO.  OR you do not have save dros on close selected in Gen Config and the value when restartng Mach3 are NIL (empty).


ALSO you need to change this line of code.
If NewTool <> OldTool Then

To This
If NewTool = OldTool Then

I changed it for testing and forgot to change it back.

(;-) TP

1455

General Mach Discussion / Re: Safer connection from Mach3 to X200 VFD?

« on: February 17, 2015, 06:34:34 PM »

Bring the look ahead down to 10 or 20 that will speed UP the Stop process on feedhold as the buffer is not so large.

Just because you STOP and loose position  does NOT mean you cannot RESTART the program . IF you had refhomed the machine at startup then you simple refhome it again and start from a safe spot in the gcode with Run from Here.

(;-) TP

1456

VB and the development of wizards / Re: How to input the position of each tool in ATC.

« on: February 17, 2015, 03:54:08 AM »

This should at least get you moving with a tool change. I fixed the errors that prevented the M6Start from running.

Sub Main()         'Define variables
OldTool = GetOEMDRO (1200)   
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
tool = GetSelectedTool()

xpos1 = GetOEMDRO (1205)
ypos1 = GetOEMDRO (1206)
xpos2 = GetOEMDRO (1207)
ypos2 = GetOEMDRO (1208)
xpos3 = GetOEMDRO (1209)
ypos3 = GetOEMDRO (1210)

NewTool = tool
MaxToolNum = 3            'Maximum number of tools to use.
ToolDown   = -50       'Height for the tool change.
ToolUp     = 0.0          'Height the Z-axis for the tool change.
PosSec      = 50.0      'Safe Position.
If NewTool <> OldTool Then
   Exit Sub
End If
If NewTool > MaxToolNum Then
NewTool = Question ("Place valid tool number (between 1 y 3)")
Else
End If

CODE "G90"                    'Makes sure you are not in INC mode
Code "G00 G53 Z" & ToolUp     'The z-axis is going to "machine zero"
While IsMoving()
Wend
Code "G53 y" & PosSec       'Going to safe position.
While IsMoving()
Wend
Code "G53 Z" & ToolDown      'Down to the height of tools
While IsMoving()
Wend
Call MovePos(OldTool)      'Going to the last position to relase the old tool.
While IsMoving()
Wend
ActivateSignal(Output1)    'Relase the tool.
Code "G4 P1.0"
Code "G53 Z" & ToolUp       
While IsMoving()
Wend
Call MovePos(NewTool)      'Go to the new tool position.
While IsMoving()
Wend
Code "G53 Z" & ToolDown      'down the z-axis to hold the tool.
While IsMoving()
Wend
DeActivateSignal(Output1)    'hold the new tool.
Code "G4 P1.0"
Code "G53 y" & PosSec       'Returns to the safe position.
While IsMoving()
Wend
Code "G53 Z" & ToolUp      'Returns z-axis to "machine zero".
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
End Sub

Sub MovePos(ByVal ToolNumber As Integer)

Select Case ToolNumber      'Here set the position of each tool.
       Case Is = 1
         Code "G00 G53 x" & xpos1   ' YOU may want to do combined moves of XY
         Code "G00 G53 y" & ypos1   ' Code"G00 G53 X" &xpos1 &"Y"&ypos1
       Case Is = 2
         Code "G00 G53 x" & xpos2    'Same here
         Code "G00 G53 y" & ypos2
       Case Is = 3
         Code "G00 G53 x" & xpos3    'Same Here
         Code "G00 G53 y" & ypos3
     
End Select

End Sub
Main

1457

General Mach Discussion / Re: Safer connection from Mach3 to X200 VFD?

« on: February 17, 2015, 03:22:19 AM »

Pressing STOP in Mach3 should STOP the axis dead in their tracks NO movement.

(;-)TP

1458

General Mach Discussion / Re: Safer connection from Mach3 to X200 VFD?

« on: February 17, 2015, 03:18:47 AM »

" you may find one that works for your application or contact the AUTHOR for help making yours work with it."

(;-) TP

1459

VB and the development of wizards / Re: How to input the position of each tool in ATC.

« on: February 16, 2015, 09:06:14 PM »

Have you selected  the TYPE of tool changes in Config ??  there are 3 options

None   Ignores the M6start

Manual  Uses M6start , M6end

Auto  Uses only M6start

1460

General Mach Discussion / Re: M40 and G31 does not save A axis values

« on: February 16, 2015, 09:01:16 PM »

Go to Config --> Port&Pins -->Mill Options --> LH side "Digitize" select 4 axis point cloud

(;-) TP