Hello Guest it is January 26, 2021, 12:18:22 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 - ozwes007

Pages: « 1 2 3 4 5 6 7 8 9 10 11 »
81
General Mach Discussion / Re: CopyCat Latest Version Probe issue
« on: April 25, 2015, 11:10:44 PM »
I'm just catching up, on the G31 command, first reference I looked at wasn't Mach specific. Sorry about that.
So back to the original problem, how do we alter the 4mm reference in the Copycat without altering the code each time? Or is this a programming error/bug ? And do we need to put in a user input that asks for a dimension that is a little bigger then were probing for? Eg. I do holes from 10mm to 104mm in size and probing is fast and efficient at locating the centre of them., so putting in (for example) 60mm to probe 104mm therefore allowing for the probe to be off centre by 8mm in any direction?(or 110mm for diameter )

82
General Mach Discussion / What is a Brain?
« on: April 25, 2015, 10:50:44 PM »
Can some one put a sticky in the Brain section, describing what a Brain is and its function within Mach3?  Please.

83
General Mach Discussion / Re: CopyCat Latest Version Probe issue
« on: April 25, 2015, 10:17:09 PM »
hi Rich.
Just tried it on my .067 build demo machine(one i use for Writing code) and I get the same error/inconsistency.
However .067 doesn't have 3D Probe on the menu.

84
General Mach Discussion / CopyCat Latest Version Probe issue
« on: April 25, 2015, 09:02:31 PM »
Im having an issue with copycat and probing a circle.
I have Mach3 .3.043.066 and when doing 3d PROBE from the menu of Mach3 it works at the speed that i set probing in CopyCat(this is good, so i can alter it for large circle and small circle probing)
This works fine. ;D
However, if i go to probe in Copycat (circle centre probe) it moves exactly 4mm then stops and reverses etc etc. On looking at the code in the Copycat screen it says
Code "G91 G31Y 4 F" &ProbeFeed
which should move in the y + direction for 4 seconds or until it hits the wall of the circle.

Thats bad :-\
Any one have ideas, is it a bug?, have I missed a setup config. setting? Am i just missing something entirely? Or does the G91(set Distance mode) turn the G31Y4 into a pure distance operation?

I will investigate G31 as soon as I find some info on it. First time I've used/seen it

85
VB and the development of wizards / Profile Shape Wizard
« on: April 23, 2015, 08:12:09 PM »
With Permission from poppabear, I offer up to the masses an altered version of poppbears "Profile Shapes Wizard."
to install extract the zip file to your Mach3\Addons folder.
This will create a folder called Profile Shape M.
The alterations are
Depth of Cut
added incremental cut
Define Z 0 as top of Block or Bottom of Block
And a Safe Z setting

Note that if the incements divide equaly into the Depth of cut, it may do two cuts at the same setting.

Enjoy
Wes

86
I Posted this in the VB section as well. the actual files are there
Just realised you could use it to cut a spline etc as well on a vertical mill
Just my take on cutting a Gear(I do heaps for gear boxes of different teeth)
Its not finished but its functional and will cut but doesn't allow for lead in or out.
This can be altered in the GCode. Also it only uses Z axis to get depth, but allows feeds from x or y axis.
Feed back would be appreciated and expected. :o

Gcode
%Gear Cutting Program for A Axis
G00 G49 G40  G17 G80 G50 G90
G21
(Program Setup)
#1= 0 (Degrees between Teeth)
#2= 0 (Width of Teeth)
#3= 1234 (X or Y Axis to Cut)
#4= 0 (Total Tooth Depth)
#5= 0 (Cut Loops)
#6= 0 (Number of Teeth)
#7= 0 (Last Cut Depth)
#8= 0 (Cutting Depth)
#9= 0 (X/Y Start Position)
#10= 0 (X/Y End Position)
#11= 3000 (Feed Rate)
#12= 4 (Safe Z Height)

(Bring in the Variables)
M2044
M03 S0
#13= 0 (Container to do A Axis Adding)
#14= 0 (Container to do Z Cut Depth Adding)
M98 P#3
M30

%Start the run for X Cuts
o1234
M6 (Tool Change - All OK)
M98 P1236 L#6 (One Loop per Tooth)
M99

%Start the run for Y Cuts
o1235
M6 (Tool Change - All OK)
M98 P1237 L#6 (One Loop per Tooth)
M99

%X Cut & Z Cut Moves
o1236
M98 P1238 L#5 (cutting down in Z Moves)
G01 Z#4
G01 X[#2+#9+#10] F#11
G00 Z#12
G00 X#9
%G04 P1000
#13= [#13+#1]
G00 A#13
#14= 0 (Reset Cutting Depth)
M99

%Y Cut & Z Cut Moves
o1237
M98 P1239 L#5 (cutting down in Z Moves)
G01 Z#4
G01 Y[#2+#9+#10] F#11
G00 Z#12
G00 Y#9
%G04 P1000
#13= [#13+#1]
G00 A#13
#14= 0 (Reset Cutting Depth)
M99

%X Zmoves
o1238
#14= [#14-#8]
G01 Z#14
G01 X[#2+#9+#10] F#11
G00 Z#12
G00 X#9
%G04 P1000
M99

%Y Zmoves
o1239
#14= [#14-#8]
G01 Z#14
G01 Y[#2+#9+#10] F#11
G00 Z#12
G00 Y#9
%G04 P1000
M99

Macro - M2044.m1s
Sub main
Dim Msg ' Declare variable.
Msg = "This GCode is for making Gears with the A Axis. "
Msg = Msg & "Only use Positive numbers when requested."
MsgBox Msg, 64, "Macro Parameters"
Dim Gear1 As Double
Dim AxisCut As String
Teeth = Question ("How Many Teeth on the Gear?")
Gear1=Val(Teeth)
SetVar(6,Gear1)
Gear1 = 360/Gear1
Print Gear1
SetVar(1, Gear1)
Message "Angle Between Teeth " & Gear1
GearWidth = Question ("How wide is the tooth?")
SetVar(2,Val(GearWidth))
 AxisCut=InputBox ("What Axis are you cutting with - X or Y?","Axis Choice", "X", 200, 200)
If AxisCut = "X" Then
 SetVar(3,1234)
 Else
 SetVar(3,1235)
End If
Print AxisCut
DepthCut= Question ("What is the total tooth Depth?")
SetVar(4,Val(DepthCut-(2*DepthCut)))
CutPass=Question("What is the Maximum Cut Depth per Pass?")
SetVar(8,Val(CutPass))
Loops = Val(DepthCut)/Val(CutPass)
Print Loops
MainLoops= Val(Fix(Loops))
LastCut=(Loops - MainLoops) * Val(CutPass)
Print LastCut
SetVar(7,LastCut)
SetVar(5,MainLoops)
Print MainLoops
Test=Val(DepthCut-(2*DepthCut))
Print Test

End Sub

87
Just my take on cutting a Gear(I do heaps for gear boxes of different teeth)
Its not finished but its functional and will cut but doesn't allow for lead in or out.
This can be altered in the GCode. Also it only uses Z axis to get depth, but allows feeds from x or y axis.
Feed back would be appreciated and expected. ;D

Gcode
%Gear Cutting Program for A Axis
G00 G49 G40  G17 G80 G50 G90
G21
(Program Setup)
#1= 0 (Degrees between Teeth)
#2= 0 (Width of Teeth)
#3= 1234 (X or Y Axis to Cut)
#4= 0 (Total Tooth Depth)
#5= 0 (Cut Loops)
#6= 0 (Number of Teeth)
#7= 0 (Last Cut Depth)
#8= 0 (Cutting Depth)
#9= 0 (X/Y Start Position)
#10= 0 (X/Y End Position)
#11= 3000 (Feed Rate)
#12= 4 (Safe Z Height)

(Bring in the Variables)
M2044
M03 S0
#13= 0 (Container to do A Axis Adding)
#14= 0 (Container to do Z Cut Depth Adding)
M98 P#3
M30

%Start the run for X Cuts
o1234
M6 (Tool Change - All OK)
M98 P1236 L#6 (One Loop per Tooth)
M99

%Start the run for Y Cuts
o1235
M6 (Tool Change - All OK)
M98 P1237 L#6 (One Loop per Tooth)
M99

%X Cut & Z Cut Moves
o1236
M98 P1238 L#5 (cutting down in Z Moves)
G01 Z#4
G01 X[#2+#9+#10] F#11
G00 Z#12
G00 X#9
%G04 P1000
#13= [#13+#1]
G00 A#13
#14= 0 (Reset Cutting Depth)
M99

%Y Cut & Z Cut Moves
o1237
M98 P1239 L#5 (cutting down in Z Moves)
G01 Z#4
G01 Y[#2+#9+#10] F#11
G00 Z#12
G00 Y#9
%G04 P1000
#13= [#13+#1]
G00 A#13
#14= 0 (Reset Cutting Depth)
M99

%X Zmoves
o1238
#14= [#14-#8]
G01 Z#14
G01 X[#2+#9+#10] F#11
G00 Z#12
G00 X#9
%G04 P1000
M99

%Y Zmoves
o1239
#14= [#14-#8]
G01 Z#14
G01 Y[#2+#9+#10] F#11
G00 Z#12
G00 Y#9
%G04 P1000
M99

Macro - M2044.m1s
Sub main
Dim Msg ' Declare variable.
Msg = "This GCode is for making Gears with the A Axis. "
Msg = Msg & "Only use Positive numbers when requested."
MsgBox Msg, 64, "Macro Parameters"
Dim Gear1 As Double
Dim AxisCut As String
Teeth = Question ("How Many Teeth on the Gear?")
Gear1=Val(Teeth)
SetVar(6,Gear1)
Gear1 = 360/Gear1
Print Gear1
SetVar(1, Gear1)
Message "Angle Between Teeth " & Gear1
GearWidth = Question ("How wide is the tooth?")
SetVar(2,Val(GearWidth))
 AxisCut=InputBox ("What Axis are you cutting with - X or Y?","Axis Choice", "X", 200, 200)
If AxisCut = "X" Then
 SetVar(3,1234)
 Else
 SetVar(3,1235)
End If
Print AxisCut
DepthCut= Question ("What is the total tooth Depth?")
SetVar(4,Val(DepthCut-(2*DepthCut)))
CutPass=Question("What is the Maximum Cut Depth per Pass?")
SetVar(8,Val(CutPass))
Loops = Val(DepthCut)/Val(CutPass)
Print Loops
MainLoops= Val(Fix(Loops))
LastCut=(Loops - MainLoops) * Val(CutPass)
Print LastCut
SetVar(7,LastCut)
SetVar(5,MainLoops)
Print MainLoops
Test=Val(DepthCut-(2*DepthCut))
Print Test

End Sub

88
General Mach Discussion / Re: Displaying Loop Number
« on: April 20, 2015, 08:56:47 PM »
Well guys John is the winner.
The 78 OEMDro doesn't give any repetitions Rich.

My VBscript (Gives a nice Message in the Status area)
Message "Loop number is " & GetOEMDro(222) 

Saved as M1043.m1s in my Macros folder(under profile name)

My Code (XYZ Movement test or warm-up)

%Feed Rate
F3000
% House Keeping
G21 G90
% Do the loops
M98 P1234 L10
%M1043 Placed here the macro doesnt work
%Reset
M30
%The actual Program - Comment out what you dont need
O1234
%Macro placed here inside the loop works
M1043
G1 Y-20 X20 Z3
G1 Y20 X-20
g1 Z-10
G1 Y0 X0 Z0
g1 Z0
M99

89
General Mach Discussion / Re: Displaying Loop Number
« on: April 20, 2015, 07:04:49 PM »
Thanks John, I'll give it a try today.

90
General Mach Discussion / Re: Displaying Loop Number
« on: April 20, 2015, 08:28:12 AM »
Thanks Rich, I was looking for loops!

Pages: « 1 2 3 4 5 6 7 8 9 10 11 »