Show Posts

1

General Mach Discussion / Enable button time out function

« on: May 31, 2017, 09:06:44 PM »

Hello,

I want to automatically turn off the enable button when there is no movement at Mach for a period of time.
Is there a way?
For reference, I am using a pokey board.
Thank you.

2

General Mach Discussion / Warning in Mach3 with pokeys

« on: April 24, 2017, 01:35:37 AM »

Hello,

I am using pokeys57cnc.
When Mach 3 is executed, the attached message appears.
There is no problem in operation.
WinXP, win7, win10 are all the same phenomenon.
Firmware update is not helpful.
And there is no problem in Mach4.
Is there a workaround?

3

Mach4 General Discussion / M6 Tool change is skipped in MACH4.

« on: April 20, 2017, 04:52:49 AM »

Hello,

I created a new DRO on the screen, input it and am trying to use it in the M6 for tool change.
The names of the DRO on the screen are Xpos1, Ypos1, PlateThicknes.
And i created variables like below in M6 script.

local xstart= scr.GetProperty("Xpos1", "Value")
local ystart = scr.GetProperty("Ypos1", "Value")
local StrikePlateThickness= scr.GetProperty("PlateThickness", "Value")

But T2 M6(Tool change G-code) is skipped when simulate.
If the above three lines are deleted, they are executed without skipping.

I do not know what is the problem.

** I referred to the data of DazTheGas.
Thanks, DazTheGas.

Code: [Select]

function m6()

    local inst = mc.mcGetInstance()
    local ProbeSignal = mc.ISIG_DIGITIZE 
    local MaxToolNum = 6   ---- MaxToolNum = 6  
    local ToolUp = -5
    local SelectedTool = mc.mcToolGetSelected(inst)
    local CurrentTool = mc.mcToolGetCurrent(inst)    
    local xstart = scr.GetProperty("Xpos1", "Value")
    local ystart = scr.GetProperty("Ypos1", "Value")
    local StrikePlateThickness = scr.GetProperty("PlateThickness", "Value")
    
        ------------- Get touch off parameters ------------- 
 
	if selectedtool == currenttool then
    return
		mc.mcCntlSetLastError(inst, "Current tool == Selected tool so there is nothing to do")
	else
		
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z0.0")
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 X14 Y30")
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z"..probestart)
        mc.mcCntlGcodeExecuteWait(inst, "G91 G31 Z-15 F25")
        local toolz = mc.mcAxisGetPos(inst,2)
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z0.0")
        local changetoo = mc.mcToolGetDesc(inst,selectedtool)
        wx.wxMessageBox("Please change to tool number "..selectedtool.." "..changetoo.." and press ok to continue")
        currenttool = selectedtool
        toollen = mc.mcToolGetData(inst, mc.MTOOL_MILL_HEIGHT, currenttool)
        probestart = guesslen + toollen
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 X14 Y30")
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z"..probestart)
        mc.mcCntlGcodeExecuteWait(inst, "G91 G31 Z-15 F25")
        mc.mcAxisSetPos(inst, 2 , toolz)
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z0.0")
        mc.mcCntlGcodeExecuteWait(inst,"G90 G0 X"..xstart.." Y"..ystart)
        mc.mcToolSetCurrent(inst, selectedtool)
        wx.wxMessageBox('Toolchange finished')   
        mc.mcAxisSetPos(inst, 2 , toolz)
        mc.mcCntlGcodeExecuteWait(inst,"G90 G53 G0 Z0.0")
        mc.mcCntlGcodeExecuteWait(inst,"G90 G0 X"..xstart.." Y"..ystart)
        mc.mcToolSetCurrent(inst, selectedtool)
        wx.wxMessageBox('Toolchange finished')

        mc.mcCntlToolChangeManual(inst, true);
		mc.mcCntlSetLastError(inst, "Current tool == " .. tostring(selectedtool) .. "   Previous Tool == " .. tostring(currenttool))
		mc.mcToolSetCurrent(inst, selectedtool)
	end
end


if (mc.mcInEditor() == 1) then
    M6()
end

4

Mach4 General Discussion / Lua script command

« on: April 07, 2017, 08:44:01 AM »

Hello,

I'm converting VB script to LUA script.

<VB script>
Call SetOEMDro(802, ZeroOffsetZ)

How can I change that by Lua script command?

5

Mach4 General Discussion / User defined DROs in MACH4

« on: March 30, 2017, 08:52:13 PM »

Hello,

I am a new in Mach4, am trying to create user defined DROs in Mach 4.
I had used that user defined LEDs and DROs were setup with values 1000 to 1254 in the OEM code field in MACH3.
How can I do user defined DROs setup in Mach4?

Thanks in advance.

6

VB and the development of wizards / password button

« on: November 23, 2015, 07:27:37 PM »

Hello,

I'm making password question button in Mach3.

When user click the button, then password message box pops up.

And when user enter password, it displays as it is.

I want to display asterisk "******".

Could you tell me how to do this?

<Example code>

If Question("Password?") = 12345 Then
DoOemButton(122)
End If

7

VB and the development of wizards / VB script : Question()

« on: November 16, 2015, 07:57:24 AM »

Hello,

I tried password message button.
When user enter the PassCode "1234", is it possible to show character " **** "?
Now it shows "1234" intactly.

example vb script:

IF Question("PassCode ?") = 1234 THEN
DoOemButton(232)
End IF

Thank you.

8

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

« on: February 16, 2015, 10:46:02 AM »

Hi, all

I'm studying auto tool changer macro.
I have 3 tools, now it is setted the position of each tool in m6start.m1s like below code.

Select Case ToolNumber 'Here set the position of each tool.
Case Is = 1
Xpos = 12.00
YPos = 2.00
Case Is = 2
Xpos = 14.00
YPos = 2.00
Case Is = 3
Xpos = 16.00
YPos = 2.00
End Select

I would like to input coord's of tools location in Mach3 screen not in m6start.m1s.
So I created userDRO to input coord's at Screen4, and edited m6start.m1s like below codes.
But It ignores m6start.m1s and performs next code.
I don't know what's wrong.
Please anybody let me know what's wrong, or is there a better way to do this?

I'm sorry for bad english.
Thank you.

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

1xpos = GetOEMDRO (1205)
1ypos = GetOEMDRO (1206)
2xpos = GetOEMDRO (1207)
2ypos = GetOEMDRO (1208)
3xpos = GetOEMDRO (1209)
3ypos = 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
While NewTool > MaxToolNum
NewTool = Question ("Place valid tool number (between 1 y 3)")
Wend
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" & 1xpos
Code "G00 G53 y" & 1ypos
Case Is = 2
Code "G00 G53 x" & 2xpos
Code "G00 G53 y" & 2ypos
Case Is = 3
Code "G00 G53 x" & 3xpos
Code "G00 G53 y" & 3ypos

End Select

End Sub
Main

9

Works in progress / to edit contents of Status(Error massage) ?

« on: November 28, 2014, 12:17:31 PM »

Hello, All!
I'm changing Mach3 Screen in other language.
I want to edit contents of Status(error massage), it is not the design(like font size, color..)
Example : Estop Button Pressed, End of file Estop selected, Safe Z ignored.. etc -> In Swedish
But I don't know how to change any file(?..).
Please tell me how to change contents of Status.
Thanks in advance for any help. : )

10

VB and the development of wizards / I want to move Tool down slowly at ATC macro scriptm MACH3

« on: November 12, 2014, 03:29:55 AM »

Hello,All.
I'm studying ATC macro. I reference below script.
But tool's down move feed rate is too fast, so i modifying it.
I inserted [ Code "F200"] above red font code, but have no effect.
How can i solve a problem?

Please help me!
Thank you!

Sub Main() 'Define variables
OldTool = GetOEMDRO (1200)
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
tool = GetSelectedTool()
NewTool = tool
MaxToolNum = 5 '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
While NewTool > MaxToolNum
NewTool = Question ("Place valid tool number (between 1 y 5)")
Wend
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 x12.0"
   Code "G00 G53 y5.0"
   Case Is = 2
   Code "G00 G53 x24.0"
   Code "G00 G53 y5.0"
   Case Is = 3
   Code "G00 G53 x36.0"
   Code "G00 G53 y5.0"
   Case Is = 4
   Code "G00 G53 x48.0"
   Code "G00 G53 y5.0"
   Case Is = 5
   Code "G00 G53 x60.0"
   Code "G00 G53 y5.0"
End Select

End Sub
Main

Topics - Julie