Messages

921

Works in progress / Re: M3 Screen - Modern 1024x768 optimized for Touch Screen

« on: July 20, 2010, 09:34:22 PM »

looks interesting but it would be better to be able to try it out. looks like some things are not needed, what is the special wizard for? I rarely use wizards now, not sure it warrants three buttons.

922

Show"N"Tell ( What you have made with your CNC machine.) / Re: 4th and 5th axis test

« on: July 20, 2010, 08:07:56 AM »

It depends on the size, material, tolerances, surface finish, any distortion during machining, Forces being produced, Chip issues, how you are processing them (inside & outside in the same setup?) and what the blank shape is.

Could create a plug and/or a nest (or a A/B load), might be able to use vacuum, or even a bladder, or tabs that get machined off after. Sometimes you can use Glue. Might even have to move clamping points during processing, production quantities, Lots of options with lots of issues to determine priority and direction to go in.

923

VB and the development of wizards / Re: Auto Batch Loader(;-)

« on: July 20, 2010, 07:19:55 AM »

Code: [Select]

Dim fname1,fname2,fname3,fname4,fname5 As String
Dim fn1WO,fn2WO,fn3WO,fn4WO,fn5WO As Single

fname1 ="c:\mach3\gcode\" & AskTextQuestion("File#1 Name?")
fn1WO= "" & Question("File#1 Work Offset#")
Message(Fname1  & "  AND  G" & fn1WO)

fname2 ="c:\mach3\gcode\" & AskTextQuestion("File#2 Name?")
fn2WO= "" & Question("File#2 Work Offset#")
Message(Fname2  & "  AND  G" & fn2WO)

fname3 ="c:\mach3\gcode\" & AskTextQuestion("File#3 Name?")
fn3WO= "" & Question("File#3 Work Offset#")
Message(Fname3  & "  AND  G" & fn3WO)

fname4 ="c:\mach3\gcode\" & AskTextQuestion("File#4 Name?")
fn4WO= "" & Question("File#4 Work Offset#")
Message(Fname4  & "  AND  G" & fn4WO)

fname5 ="c:\mach3\gcode\" & AskTextQuestion("File#5 Name?")
fn5WO= "" & Question("File#5 Work Offset#")
Message(Fname5  & "  AND  G" & fn5WO)

For x = 1 To 5

If x = 1 Then loadfile(fname1)
If x = 2 Then loadfile(fname2)
If x = 3 Then loadfile(fname3)
If x = 4 Then loadfile(fname4)
If x = 5 Then loadfile(fname5)

  While Isloading()
  Sleep(5000)
  Wend

If x = 1 Then Code"G" & fn1WO
If x = 2 Then Code"G" & fn2WO
If x = 3 Then Code"G" & fn3WO
If x = 4 Then Code"G" & fn4WO
If x = 5 Then Code"G" & fn5WO

Message(filename)

Sleep(2000)
runfile()
Sleep(2000)

While IsMoving()
Sleep(2000)
Wend

Next x
Message("thats all folks")
End


924

VB and the development of wizards / Re: How to get the current subroutine file name?

« on: July 19, 2010, 09:17:05 PM »

This was my first attempt but it did work in a dry run.( Note: haven't tried to cut anything yet)

Dim fname1,fname2,fname3,fname4,fname5 As String

fname1 ="c:\mach3\gcode\roadrunner.tap"
fname2 ="c:\mach3\gcode\airfoil.tap"
fname3 ="c:\mach3\gcode\test55.tap"
fname4 ="c:\mach3\gcode\tt.txt"
fname5 ="c:\mach3\gcode\signA1.tap"

For x = 1 To 5

If x = 1 Then loadfile(fname1)
If x = 2 Then loadfile(fname2)
If x = 3 Then loadfile(fname3)
If x = 4 Then loadfile(fname3)
If x = 5 Then loadfile(fname3)
message(filename)

While Isloading()
Sleep(5000)
Wend

runfile()

Sleep(2000)

While IsMoving()
Sleep(2000)
Wend

Next x
message("thats all folks")

925

VB and the development of wizards / Re: How to get the current subroutine file name?

« on: July 18, 2010, 06:22:52 PM »

Sorry, I guess I am confused:
Name "C:\mach3\gcode\drawing1.tap" As "c:\mach3\gcode\drawing11.tap"
This renames a files name!
:
I was asking how to load a new gcode file from VB (or a plugin if need be)
My wish is not to have to edit files to suit the subroutine calls if t all possible

926

VB and the development of wizards / Re: How to get the current subroutine file name?

« on: July 18, 2010, 04:14:42 PM »

Did you try it? I had tried it and never had any luck with or without the BuggyWhip.

My use is create a nightly script that calls up programs in a sequence. each program has its own fixture offset. The table is filled with multiple different parts to be machined. As it finishes one part it calls up the next. I'm into the lights out production shop. I sleep better knowing I'm making money.

927

VB and the development of wizards / Re: How to get the current subroutine file name?

« on: July 18, 2010, 02:36:16 PM »

I had tried that but with no luck, I get three different error messages. depending on what I attempt

Dim oldname,newname As String
message(filename)
oldname = "c:\mach3\gcode\airfoil.tap"
newname = "c:\mach3\gcode\tt.txt"
newname = "tt.txt"

'Name filename As newname 'path/file access error
message(filename)

Name oldname As newname 'Cannot create a file when that file already exists
message(filename)

'commented out the oldname variable
Name oldname As newname 'The system cannot find the path specified
message(filename)

928

VB and the development of wizards / Re: How to get the current subroutine file name?

« on: July 18, 2010, 12:35:07 PM »

Message(filename)

fname= "c:\Mach3/subroutines/99999.nc"
Message(fname) ' this will display the fname to the screen

'I can display the filename
'And see how to assign a variable, display it.
'But don't see how I can set/change the filename from within VB

929

Tangent Corner / Re: Electrical Regulations Safety Checks.

« on: July 16, 2010, 08:29:36 AM »

Too funny, Should have strapped him in proved him correct!!!
Looks like it was well used and taken care of. Nice workmenship.

930

VB and the development of wizards / Re: Would like Mach3 to find the next tool number during tool change

« on: July 13, 2010, 10:22:05 PM »

or

Dim linestring ,shortlinestring As String
Dim lenstring, position ,spaceposition, nextpos, ToolNo As Integer

linestring = "N1000 T344 M6 G43 H3"
position=InStr(linestring, "T" )
lenstring=Len(linestring)
shortlinestring= Right(linestring,lenstring-position)
spaceposition=InStr(shortlinestring, " " )

ToolNo=Mid(linestring,position+1,spaceposition) 'as long there is a space after the tool number

you could do a value compare to make sure it is a number and not a character if no spaces are used.
just a small little for x=1 to 3 next loop