971
Tangent Corner / Re: IN-Groove Carbide Indexed Routing tools
« on: June 23, 2010, 02:08:09 PM »
Looks nice and clean, I'm guessing black ABS?
Nice job, and thank you-
Dave
Nice job, and thank you-
Dave
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.
DoButton(8) 'ZeroX
DoButton(9) 'ZeroY
While isMoving()
Wend
DoOemButton(160) 'Regen ToolPath
While isLoading()
sleep 100
Wend
doOEMButton(1002) 'Rewind
While isMoving()
sleep 100
Wend
'This macro MUST be run from a button
'running it from the MDI for example is not recommended
Begin Dialog Dialog1 60, 60, 104, 70, "Auto Extents"
Text 10, 10, 30, 12, "Feedrate:"
TextBox 44, 10, 50, 12, .feedrate
Text 10, 24, 30, 12, "Dwell:"
TextBox 44, 24, 50, 12, .dwell
Text 10, 38, 30, 12, "Z height:"
TextBox 44, 38, 50, 12, .zHeight
OKButton 10, 54, 40, 12
CancelButton 54,54,40,12
End Dialog
Dim Dlg1 As Dialog1
Dlg1.feedrate=getOEMDRO(818)
Dlg1.dwell=1
Dlg1.zHeight=getOEMDRO(802)
button=Dialog(Dlg1)
If button <> -1 Then
Exit Sub
End If
xmin = minX()
xmax = maxX()
ymin = minY()
ymax = maxY()
dwell=Dlg1.dwell * 1000
Code "F" & Dlg1.feedRate & " G1 Z" & Dlg1.zHeight
While Ismoving()
sleep 100
Wend
Code "G1 X" & xmin & " Y" & ymin
While Ismoving()
sleep 100
Wend
sleep dwell
Code "G1 Y" & ymax
While Ismoving()
sleep 100
Wend
sleep dwell
Code "G1 X" & xmax
While Ismoving()
sleep 100
Wend
sleep dwell
Code "G1 Y" & ymin
While Ismoving()
sleep 100
Wend
sleep dwell
Code "G1 X" & xmin
While Ismoving()
sleep 100
Wend
MsgBox "Finished",0,"Auto Extents"
Fed up, SHMED up !
One of, if not the best build threads here.
Keep em' coming Tweak !
THANKS !
Russ