Hello Guest it is August 10, 2022, 12:25:29 PM

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 - dfurlano

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 »
21
General Mach Discussion / Re: LPT1 Parallel Port Problem Solved
« on: July 06, 2011, 08:51:24 AM »
The only caution I have is that the address for the second (LP2) card can change.  If you have trouble with your machine suddenly acting randomly check to see if the address has changed. 

Many PCI cards state on the box if that are 5v and 3.3v.

22
VB and the development of wizards / Re: Marco gone wild.
« on: July 05, 2011, 09:54:46 PM »
Very true on the restart.  Thanks again for your help.

Dan

23
VB and the development of wizards / Re: Marco gone wild.
« on: July 05, 2011, 08:17:03 PM »
Got it to work!  Thanks for the help!  I moved the DoOEMButton and added a ismoving.  It would not take the Sub Main statement.

w00t!

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
Code "G54"
Code "G90"

DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )
While ismoving ()
Wend

DoOEMButton(1010)
While ismoving ()
Wend

Code "G90 G0 Z-2.75"

While ismoving()
Wend

Code "G90 G31 Z-4 F4" 'probing move, can set the feed rate here as well as how far to move

While ismoving()
Wend

ZProbePos = GetVar(2002) 'get the axact point the probe was hit

While ismoving()
Sleep 100
Wend

Code "G90 G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun

While ismoving()
Sleep 100
Wend

Zoffset = getvar(5223)
Cline = (ZProbePos+-3.2395) '-3.2395 Distance between center line of rotary and probe

SetVar(5243,(Cline+PlateThickness))'Set G55 Z
While ismoving()
Wend
SetVar(5263,(Cline+PlateThickness))'Set G56 Z
While ismoving()
Wend
SetVar(5283,(Cline+PlateThickness))'Set G57 Z
While ismoving()
Wend

Code "G91"
Code "G0 Z 0.1" 'retract

While ismoving()
Sleep 100
Wend

Code "G55"
Code "G90"
While ismoving()
Sleep 100
Wend
Code "G0 X0 Y0"   'move to start position
While ismoving()
Sleep 100
Wend

Code "(Z axis is now zeroed for G55, G56, G57)" 'puts this message in the status bar

Exit Sub                                                                                                   

24
VB and the development of wizards / Re: Marco gone wild.
« on: July 05, 2011, 07:24:24 PM »
It homes now but does not Zero the Z axis.  Also takes off in the Z and X at Code "G90 G0 Z-2.75"

25
VB and the development of wizards / Marco gone wild.
« on: July 05, 2011, 06:10:20 PM »
Been struggling all weekend  trying to figure this out.

If I go to the offset menu and click the ref all home the Z,X,Y,A home with no problems.

If I click the button on my home page to run the macro below I get random behavior.  Mostly the Z rapids down but once in a while the Z will rapid up and then about half the macro will run.

If I open the macro using the edit button script command and run the macro line by line it runs flawlessly.

This system has been running with no issues for a few years.  It all started with a dumbass move on my part that crashed the system. The only difference is that I added the DoOEMButton command to the macro.

I also tried reinstalling Mach.

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
Code "G54"
Code "G90"

DoButton( 24 )

DoOEMButton 1010

DoButton( 23 )
DoButton( 22 )
DoButton( 25 )

Code "G90 G0 Z-2.75"

While ismoving()
Wend

Code "G90 G31 Z-4 F4" 'probing move, can set the feed rate here as well as how far to move

While ismoving()
Wend

ZProbePos = GetVar(2002) 'get the axact point the probe was hit

While ismoving()
Sleep 100
Wend

Code "G90 G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun

While ismoving()
Sleep 100
Wend

Zoffset = getvar(5223)
Cline = (ZProbePos+-3.2395) '-3.2395 Distance between center line of rotary and probe

SetVar(5243,(Cline+PlateThickness))'Set G55 Z
While ismoving()
Wend
SetVar(5263,(Cline+PlateThickness))'Set G56 Z
While ismoving()
Wend
SetVar(5283,(Cline+PlateThickness))'Set G57 Z
While ismoving()
Wend

Code "G91"
Code "G0 Z 0.1" 'retract

While ismoving()
Sleep 100
Wend

Code "G55"
Code "G90"
While ismoving()
Sleep 100
Wend
Code "G0 X0 Y0"   'move to start position
While ismoving()
Sleep 100
Wend

Code "(Z axis is now zeroed for G55, G56, G57)" 'puts this message in the status bar

Exit Sub                                                                                              

26
General Mach Discussion / Re: Zeroing Z
« on: July 01, 2011, 09:57:47 AM »
Worked!

Thanks, much appreciated!

Dan

27
General Mach Discussion / Re: Zeroing Z
« on: July 01, 2011, 09:42:26 AM »
In the wiki it states that DoOEMButton 1010 zeros the Z.

I'm going to go try that now.

Thanks

28
General Mach Discussion / Re: Zeroing Z
« on: July 01, 2011, 09:39:34 AM »
I am sure I am the one that is confused.  What does DoOEMButton actually do?

Again, I am only interested in setting the G54 Z to zero.

29
General Mach Discussion / Re: Zeroing Z
« on: July 01, 2011, 08:58:32 AM »
Still does not set G54 Z to zero.

Any ideas?

30
General Mach Discussion / Re: Zeroing Z
« on: June 30, 2011, 10:57:04 PM »
I thank you sir, I will try this in the morning.

I need to turn it off... sometimes you just need to turn it off.

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 »