Hello Guest it is May 04, 2024, 04:09:11 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

511
VB and the development of wizards / Re: autotoolzero
« on: February 28, 2021, 10:07:40 AM »
this code is running here:

Code: [Select]
Sub Main()
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

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

Sleep(3000) ' this delay gives me time to get from computer to hold probe in place
Code "G31 Z-4. F4" ' probing move, can set the feed rate here as well as how far to move
While IsMoving() ' wait while it happens
Wend

ZProbePos = GetVar(2002) 'get the exact point the probe was hit
Code "G0 Z" &ZProbePos   'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend

Call SetDro (2, .250) ' change .060 to your plate thickness and then adjust for final accuracy
Sleep 200 ' Pause for Dro to update.
Code "G1 Z1. F50" ' put the Z retract height you want here, must be greater than the touch plate thickness
While IsMoving ()
Wend

Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Message "Z-Plate is grounded, check connection and try again" 'this goes in the status bar if applicable
End If

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   
End Sub

and z-axis is going down.

512
VB and the development of wizards / Re: autotoolzero
« on: February 28, 2021, 03:26:14 AM »
pls post your complete code.

513
VB and the development of wizards / Re: autotoolzero
« on: February 27, 2021, 11:45:03 AM »
pls put this code at the beginning of your macro:

Code: [Select]
'probe already active ?
If GetOEMLed(825) Then
DoOEMButton(1003)
MsgBox "probe input activ",vbOK + vbCritical ,"error !"
End If

if a box with "probe input activ" is comming up you have to check your probe Input/wiring

514
General Mach Discussion / Re: zero setting changes after running program
« on: February 27, 2021, 11:25:10 AM »
.066 is known to be faulty

515
General Mach Discussion / Re: zero setting changes after running program
« on: February 27, 2021, 10:45:32 AM »
this: https://warp9td.com/files/Software/Mach3/Mach3Version3.043_2018.exe

will also work with parallel post. make a backup of your existing Mach3 Folder.

516
VB and the development of wizards / Re: autotoolzero
« on: February 27, 2021, 10:41:56 AM »
Change:
Code: [Select]
  Code "G90 G31 Z-4. F4" 'probing move, can set the feed rate here as well as how far to move
to:
Code: [Select]
  Code "G91 G31 Z-4. F4" 'probing move, can set the feed rate here as well as how far to move

517
General Mach Discussion / Re: zero setting changes after running program
« on: February 27, 2021, 09:42:22 AM »
i would not run Ver .066

try a earlier Version

Here's the link: https://warp9td.com/index.php/sw/software-mach#MachThree

518
G-Code, CAD, and CAM discussions / Re: UC100 G02 will not work
« on: February 27, 2021, 02:06:25 AM »
Config -> General Config -> I/J Mode Abs/Inc ?

519
General Mach Discussion / Re: New computer
« on: February 26, 2021, 10:31:46 AM »
TPS.. i have windows 10 pro 64bits
have you loaded the plugin for UTH300?
and do you get Connection to board?


520
General Mach Discussion / Re: New computer
« on: February 26, 2021, 08:35:11 AM »
but your new Computer is no 64bit System and you are using parallel port?