Hello Guest it is April 27, 2024, 03:31:23 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 - budman68

2041
So Sorry, Greg, you are correct,  that was "erniebro"s code over at the CNC Zone.  :P

2042
LazyCam (Beta) / Re: Adding another Layer or Entity from file?
« on: August 19, 2008, 05:59:35 PM »
Nice idea there, Bill-  :)

2043
Indeed I am Phil but I still love M&M's ...... especially the green ones  :D

2044
PoKeys / Re: PoKeys Plug-in
« on: August 19, 2008, 04:52:55 PM »
Aha, very slick, thanks for sharing-

Mine will be more of a "stationary" device as I use the shuttle pro for the mpg type schtuff.

2045
Ok, I'm sure Greg (greolt) or "poppabear" will be along to help with this shortly, but here's my code (which is like Gregs):

Rem   VBScript To center probe inside a pipe

If GetOemLed (825) <> 0 Then       'Check to see if the probe is already grounded or faulty
   Code "(Probe plate is grounded, check connection and try again)"
Else
   FeedCurrent = GetOemDRO(818)    'Get the current settings
   XCurrent = GetDro(0)
   YCurrent = GetDro(1)

   Code "G4 P1"         'Pause 1 second to give time to position probe plate
   Code "F4"         'slow feed rate to 4 ipm

Rem   Probe Left
   
   XNew = Xcurrent - 3      'probe 3 inches to left
   Code "G31 X" &XNew
   While IsMoving()      'wait for the move to finish
   Wend
   XPos1 = GetVar(2000)      'get the probe touch location

   Code "G0 X" &XCurrent      'rapid move back to start point

Rem   Probe Right
   
   XNew = XCurrent + 3      'probe 3 inches to right
   Code "G31 X" &XNew
   While IsMoving()
   Wend
   XPos2 = GetVar(2000)

   XCenter = (XPos1 + XPos2) / 2   'center is midway between XPos1 and XPos2
   Code "G0 X" &XCenter      'rapid move to the x center location

Rem   Probe up

   YNew = YCurrent + 3
   Code "G31 Y" &YNew
   While IsMoving()
   Wend
   YPos1 = GetVar(2001)

   Code "G0 Y" &YCurrent

Rem   Probe down
   
   YNew = YCurrent - 3
   Code "G31 Y" &YNew
   While IsMoving()
   Wend
   YPos2 = GetVar(2001)

   YCenter = (YPos1 + YPos2) / 2

Rem   move To the center
   
   Code "G0 Y" &YCenter
   While IsMoving ()
   Wend

   Code "F" &FeedCurrent        'restore starting feed rate
End If
 



Now notice where it says "Code "F4"   'slow feed rate to 4 ipm" ?

I believe that's where you change your feed rate but obviously try it first!

Dave

P.S. just a warning, going too fast can screw up the "touch" accuracy if I'm not mistaken! Proceed with caution!

2046
SmoothStepper USB / Re: My Lathe with the SmoothStepper
« on: August 19, 2008, 10:57:25 AM »
lol! my taig would look like a gnat on that beast  :D   Hell, even my 9" south bend would look like a gnat on that beast!

nice pics!

2047
LazyCam (Beta) / Re: Adding another Layer or Entity from file?
« on: August 19, 2008, 10:54:31 AM »
Yep, I believe Chip is correct but that would be a nice feature, (wink wink!!)  ;)

2048
PoKeys / Re: PoKeys Plug-in
« on: August 19, 2008, 10:53:05 AM »
Good for you Graham, I'm still pondering on my setup and how I'm going to "house" it. I'm thinking a plastic project enclosure with it mounted upside down to the lid so when removed, it will be easier to add and remove wires to the terminal screws rather than down deep into a box where you have to be a contortionist to connect anything,  :D

Anybody else got an enclosure setup for theirs as of yet?


2049
SmoothStepper USB / Re: My Lathe with the SmoothStepper
« on: August 18, 2008, 03:28:28 PM »
Friggin amazing, my friend. Thanks so much for sharing.

Dave

2050
LazyCam (Beta) / Re: Help with importing JPG files.....
« on: August 15, 2008, 01:16:48 PM »
Ed,

I am honestly not very good with the image importing either but I do remember that you will not see anything in the window until you use the middle mousewheel button. Not scroll, you must press the wheel or middle button if you have one on your mouse... and then while pressing it, move the mouse around and that should show you the image in "3D".

Hope that helps a bit-  :)

Dave