Messages

1101

Mach4 General Discussion / Re: Mach4 Printer Port Discussions

« on: October 10, 2014, 01:46:46 AM »

remove Darwin drives from C/drivers then do a reninstal

1102

Mach4 General Discussion / Re: Mach4 Printer Port Discussions

« on: October 07, 2014, 06:11:55 PM »

Hi art just played with M4 its all good. its a lot better than it was a couple of changes ago smother, faster and less of a drag on my computer.

1103

Mach4 General Discussion / Re: Mach4 Printer Port Discussions

« on: October 01, 2014, 11:33:32 PM »

correct

1104

VB and the development of wizards / Re: Tool zeroing macro help

« on: September 24, 2014, 06:58:14 AM »

I dont know ever

1105

VB and the development of wizards / Re: Tool zeroing macro help

« on: September 24, 2014, 06:52:08 AM »

you would have to look up what SetVar 1 and 2 is in the vb script manual

1106

VB and the development of wizards / Re: Tool zeroing macro help

« on: September 24, 2014, 06:33:31 AM »

SetVar (1, -1) 'Maximum probing distance is set here
SetVar (2, .75) 'Retract height is set here

first one how far to go down
second one how far to go back up

1107

VB and the development of wizards / Re: Tool zeroing macro help

« on: September 23, 2014, 04:59:20 PM »

yep the code was from a screen someone else made I just got a copy of it. the blue probing screen I use has that dro number if you don't have that dro you will need to add it

1108

General Mach Discussion / Re: Auto Zero Z Crashing Bits...

« on: September 23, 2014, 04:55:10 PM »

yep this line if you have a dro for it PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO

1109

General Mach Discussion / Re: Auto Zero Z Crashing Bits...

« on: September 23, 2014, 06:44:05 AM »

Code: [Select]

try this

[codeRem Auto Tool Zero Z- Metric Version

DownStroke = -25 'Set the down stroke to find probe
DownFeedRate = 100 'Set the down FeedRate
RetractStroke = 10 'Set the retract Stroke
RetractFeedRate = 300 'Set the retract FeedRate

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state
PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31 Z" &DownStroke &" F" &DownFeedRate 'probing move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
If Abs(ZprobePos) <= Abs(DownStroke)-0.1 Then 'Check if the probe has been found
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G1 Z" &PlateThickness + RetractStroke &" F" &RetractFeedRate 'retract
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Else
Code "G0 Z0" 'retract to start pos
While IsMoving ()
Wend
Code "(Z-Plate not found, check connection or stroke and try again)" 'puts this message in the status bar
End If
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
End If
Code "F" &CurrentFeed 'Returns to prior feed rate
If CurrentAbsInc = 0 Then 'if G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'if G0 was in effect before then return to it
Code "G0"
End If
Exit Sub ]

1110

VB and the development of wizards / Re: Tool zeroing macro help

« on: September 23, 2014, 06:40:26 AM »

Code: [Select]

this is the code I use



[codeRem Auto Tool Zero Z- Metric Version

DownStroke = -25 'Set the down stroke to find probe
DownFeedRate = 100 'Set the down FeedRate
RetractStroke = 10 'Set the retract Stroke
RetractFeedRate = 300 'Set the retract FeedRate

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state
PlateThickness = GetUserDRO(1151) 'Z-plate thickness DRO

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P2" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31 Z" &DownStroke &" F" &DownFeedRate 'probing move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the axact point the probe was hit
If Abs(ZprobePos) <= Abs(DownStroke)-0.1 Then 'Check if the probe has been found
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
Code "G1 Z" &PlateThickness + RetractStroke &" F" &RetractFeedRate 'retract
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Else
Code "G0 Z0" 'retract to start pos
While IsMoving ()
Wend
Code "(Z-Plate not found, check connection or stroke and try again)" 'puts this message in the status bar
End If
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
End If
Code "F" &CurrentFeed 'Returns to prior feed rate
If CurrentAbsInc = 0 Then 'if G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'if G0 was in effect before then return to it
Code "G0"
End If
Exit Sub ]