Weird Mach3 + CSMIO/IP-M Probe Problem

[gixi]

Hello everybody !

My DIY router is 99% finished but setting the Z probe proves to be a pain in the … .
After 3 weeks of reading, testing and so on, I manage to write a script based on M31 example from CSMIO site.
All seems to work fine except the fact that I could not reset the z value to zero in Mach3 screen. I give a try to G92 (it’s working) but there are too many warnings of how I should use this g code.
Any suggestion to solve this problem will be much appreciated.

This is part of my code:
If(GetUserDRO(1510) = 1) Then
Message("M31 Probe hit.")
Call SetDro (2, ZOffset)
Code "(Z zeroed)"
Sleep(1000)
Code "G0 Z20 F50"
Code "G4 P10"
Code "G0 Z-10 F50" (Touch plate has 10mm)

[Chaz]

Hello everybody !

My DIY router is 99% finished but setting the Z probe proves to be a pain in the … .
After 3 weeks of reading, testing and so on, I manage to write a script based on M31 example from CSMIO site.
All seems to work fine except the fact that I could not reset the z value to zero in Mach3 screen. I give a try to G92 (it’s working) but there are too many warnings of how I should use this g code.
Any suggestion to solve this problem will be much appreciated.

This is part of my code:
If(GetUserDRO(1510) = 1) Then
Message("M31 Probe hit.")
Call SetDro (2, ZOffset)
Code "(Z zeroed)"
Sleep(1000)
Code "G0 Z20 F50"
Code "G4 P10"
Code "G0 Z-10 F50" (Touch plate has 10mm)

Get Ger's Screenset 2010 and just his probe routines.

[Ger21]

Get Ger's Screenset 2010 and just his probe routines.

I've had several users that had issues with CS Labs controllers and the 2010 Screenset.

[Chaz]

I've had several users that had issues with CS Labs controllers and the 2010 Screenset.

Mine works OK. Ive not use my machine for a while now but had no issues with it.

[Davek0974]

I've had several users that had issues with CS Labs controllers and the 2010 Screenset.

Yep, in particular do not use the wizards, instant trouble.

In the end i made up my own custom screen set with just the functionality i needed.

[gixi]

Yep, in particular do not use the wizards, instant trouble.

In the end i made up my own custom screen set with just the functionality i needed.

That’s the whole ideea! For me, a simple piece of metal to put on the working surface is more than enough. I’m still using the MechMate router with no problem but with this fancy CSMIO controller all became a huge problem. On the other hand, I like their products and I don’t want to go back to PMDX stuff.

[Davek0974]

You can use the wizards but they need to be converted into Mach screens - something in the CSMIO chain does not like pop-up windows, no idea why but after getting rid, my system worked perfectly

The 2010 screenset is excellent, just does not play 100% with CSMIO

[Ger21]

If I owned a CS Labs board, I'd switch over to their SIM CNC software.

[Davek0974]

Hello everybody !

My DIY router is 99% finished but setting the Z probe proves to be a pain in the … .
After 3 weeks of reading, testing and so on, I manage to write a script based on M31 example from CSMIO site.
All seems to work fine except the fact that I could not reset the z value to zero in Mach3 screen. I give a try to G92 (it’s working) but there are too many warnings of how I should use this g code.
Any suggestion to solve this problem will be much appreciated.

This is part of my code:
If(GetUserDRO(1510) = 1) Then
Message("M31 Probe hit.")
Call SetDro (2, ZOffset)
Code "(Z zeroed)"
Sleep(1000)
Code "G0 Z20 F50"
Code "G4 P10"
Code "G0 Z-10 F50" (Touch plate has 10mm)

Her is one of my probe macros, there might be something in there to help, I tend to annotate a lot ;) Its for CSMIO IP/A under Mach3


Sub Main()
'***X- Probing Macro
'***Written by and for DD Metal Products Ltd 2018
'***Metric units only in use
'***Using CSLABS Controller M31 macro code
'***Axis scaling not expected or handled
'***Probe offset must be calibrated at "Slow Feedrate" value and set in "Probe Tip Dia" DRO first
'***Probe Z axis position is set by user first to correct height
'***Probe Y position must be within the value set in "Max Distance" DRO

Dim FeedFast, FeedSlow
Dim ProbeOffset
Dim MaxDistance
Dim ZClearance
Dim StepBack
Dim X_SENSE
Dim Y_SENSE
Dim Z_SENSE

'***Load Variables From Screen DROs
FeedFast = GetUserDRO(1821)
Sleep (100)
FeedSlow = GetUserDRO(1822)
Sleep (100)
MaxDistance = GetUserDRO(1823)
Sleep (100)
ProbeOffset = GetUserDRO(1829)
Sleep (100)
ZClearance = GetUserDRO(1830)
Sleep (100)
StepBack = GetUserDRO(1824)
Sleep (100)

'***Error checks
If GetOemLed(16)<>0 Then '***Check for machine coordinates setting
Message "Please Change To Working Coordinates"
Exit Sub
End If

If GetOemLed(825)<>0 Then '***Probe is not connected or cable broken
Message "Probe Connection Error"
Exit Sub
End If

If StepBack=0 Then '***Stepback not set
Message "Please enter a step-back value"
Exit Sub
End If

If ABS(GetOEMDRO(85))<ZClearance Then '***Z axis too high for retract
Message "Spindle too high for clearance move"
Exit Sub
End If

'***Start Probing
Message "Probing In X- Direction"
Sleep (100)

Code "F" & Feedfast
Sleep (100)

SetUserDRO(1511, 0-MaxDistance) '***X Axis
Sleep (100)
SetUserDRO(1512, 0) '***Y Axis
Sleep (100)
SetUserDRO(1513, 0) '***Z Axis
Sleep (100)

Call ProbeSurface()

X_SENSE = GetVar(2000)
Sleep (100)

'***Step back
Code "G91 G0 X" & StepBack
While IsMoving()
Sleep(50)
Wend

Code "F" & FeedSlow
Sleep (100)

SetUserDRO(1511, 0-(StepBack+2)) '***X Axis
Sleep (100)
SetUserDRO(1512, 0) '***Y Axis
Sleep (100)
SetUserDRO(1513, 0) '***Z Axis
Sleep (100)

Call ProbeSurface()

X_SENSE = GetVar(2000)
Sleep (100)

'***Step back
Code "G91 G0 X" & StepBack
While IsMoving()
Sleep(50)
Wend

'***Raise the spindle to clear part
Code "G91 G0 Z" & ZClearance
While IsMoving()
Sleep(50)
Wend

'***Move Y axis to edge and zero the DRO
Code "G90 G0 X" & X_SENSE - ProbeOffset
While IsMoving()
Sleep(50)
Wend
SetOemDRO(800,0)
Sleep(100)

'***Retract the spindle fully
'Code "G53 G0 Z0"
'While IsMoving()
' Sleep(50)
'Wend

'***Make sure we are in G90 again
Code "G90"

Message "X- Probing Complete"

End Sub







Sub ProbeSurface()

NotifyPlugins(10103)

SetUserDRO(1510, 0)
While(GetUserDRO(1510) = 0)
Sleep(50)
NotifyPlugins(10104)
Wend

If(GetUserDRO(1510) = 2) Then '***Probing error - no detection in distance = abort
Message "Probing Error - No Surface Found"
End
End If

End Sub