Hello Guest it is May 04, 2024, 07:35:35 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 - Graham Waterworth

1641
G-Code, CAD, and CAM discussions / Re: Cutting same thread twice!
« on: March 28, 2008, 12:51:51 PM »
Post your code and then we may be able to tell you.

Graham.

1642
Finished Screens / Re: TurnSilverBlue.lset screen is black
« on: March 28, 2008, 12:50:34 PM »
Check you have all the icons/screens in the correct directory within Mach3.

Graham.

1643
Send me the macro and I will see if I can come up with a solution.

Graham.

1644
Hi Terry,

Yes many times, the 'O' codes have been disabled/removed  :(

They do not error out they are just ignored.

I once asked Art to activate them, his response was "to many problems with it".

Graham.

1645
General Mach Discussion / Re: Feed Rate
« on: March 27, 2008, 06:01:48 PM »
G90 tells mach3 to take all dimensions from one point eg the face of the part, G91 moves from the current position the said amount.

E.g.

G90 G00 X10. Z0
G01 Z-90 F100.
M30

Or

G90 G00 X10. Z0
G91
G01 Z-45. F100.
Z-45.
M30

Both bits of code will cut 90mm in the Z axis.

Graham.

1646
I have wanted to be able to do this for a long time, the problem is that not all the commands are supported in Mach3 IF, GOTO, WHILE, LOOP, etc are all missing and will probably never be added.

Without loops and comparisons it is impossible to convert all but the most basic macro.

Graham.

1647
was not thinking when I typed it in, Byte is a reserved word in VB, try it like this :-

Dim command As String
Dim oneByte As String
command="B000013E------"
For a=1 To Len(command)
  oneByte=Mid(command,a,1)
  putportbyte(Ox378,Asc(oneByte)) ' Ox378 is the address of your serial port
  For b=1 To 1000
  ' this is a delay loop, adjust to get your 9 ms delay
  Next
Next
End

Graham.

1648
Sorry Ian, its a reply to VMAX about his Denford ATC, I need to create a new thread, should not have hijacked this one.

Graham.

1649
Hi Terry,

something like this will do it :-

dim command as string
dim byte as string
command="B000013E------"
for a=1 to len(command)
  byte=mid(command,a,1)
  putportbyte(Ox378,asc(byte)) ' Ox378 is the address of your serial port
  for b=1 to 1000
  ' this is a delay loop, adjust to get your 9 ms delay
  next
next
end

Graham.

1650
G-Code, CAD, and CAM discussions / Re: HELP WITH A M98 SUBROUTINE
« on: March 21, 2008, 06:51:22 PM »
OK, if you had to centre, drill and tap 4 hole you could use a sub for the hole positions like this.

%
O0001 (MAIN PROGRAM)

G21 G40

N1 (CENTRE DRILL)
T1 M6
G54 G00 G90 G43 X0 Y0 Z25. H1 S1000 M3
G81 Z-2. R1. F100. M8
M98 P0002 L1
G80
G91 G28 Z0 M6
M1

N2 (DRILL 5.00 DIA)
T2 M6
G54 G00 G90 G43 X0 Y0 Z25. H2 S1000 M3
G81 Z-20. R1. F100. M8
M98 P0002 L1
G80
G91 G28 Z0
M1

N3 (TAP M6*1)
T3 M6
G54 G00 G90 G43 X0 Y0 Z25. H3 S100 M3
G84 Z-12. R3. F100. M8
M98 P0002 L1
G80
G91 G28 Z0 M6
M30

O0002(HOLES SUB)
X-25.
Y-25.
X0
M99
%


Graham.