Messages

3021

MACH TOOL BOX / Gcode File section script

« on: March 08, 2013, 12:40:05 PM »

Hi ALL, Here is a button script that allows you to load a gcode file from a set directory and filetype.

(;-) TP



'Gcode Selection Box
Sub GcodeSelect
    Dim MyList()
    Begin Dialog GcodeFileDlg 60, 60, 190, 220, "MACH3 Gcode Program Select", .DlgFunc
        ListBox 10, 10, 150, 180, MyList(), .List1, 2
        CancelButton 42, 198, 40, 12
        OKButton 90, 198, 40, 12   
       
    End Dialog
   
   
    Dim Button As GcodeFileDlg

    Dim frame As GcodeFileDlg
 
    ' Show the GcodeFile dialog
    Dialog frame
End Sub
 
Function DlgFunc( controlID As String, action As Integer, suppValue As Integer)
 
   
    Select Case action
    Case 1 ' Initialize
        temp = Dir( "c:\Mach3\Gcode\*.tap" )
        count = 0 
        While temp <> ""
            count = count + 1
            temp = Dir
        Wend
        Dim x() As String
        ReDim x(count)
        x(0) = Dir( "c:\Mach3\Gcode\*.tap" )
        For i = 1 To count
            x(i) = Dir
        Next i
        DlgListBoxArray "List1", x()
       
    Case 2 ' select
     If controlID = "OK" Then
  LoadFIle("c:\Mach3\Gcode\" &DlgText("List1"))
End If

End Select

End Function

End

3022

MACH TOOL BOX / Button Script to search through active Gcode File for NEXT Tool change

« on: March 08, 2013, 12:33:50 PM »

Hi ALL, This is a button script to allow you to search through a loaded Gcode file. It advances to the next M6 it finds in the current file. If no file is loaded then it errors OUT and ends.

(;-)TP

'Macro for  GcodeFile string search
Dim sLine As String
Dim i As Long
Dim lFoundLine As Long

Fname = FileName

If Fname = "No FIle Loaded." Then
MsgBox" There is NO File Currently Loaded in Mach3"
End
Else

Open FIlename For Input As #1

Do Until EOF(1)
  lFoundLine = lFoundLine + 1
  Line Input #1, sLine
  If InStr(1, sLine, "M06") > 0 And lfoundline > GetDro(16) Then
    Exit Do
  End If
Loop
Close #1
Nline = (lfoundline -1)
MsgBox""&Nline
Setdro(16,Nline)
End If
End

3023

VB and the development of wizards / Re: observed doOEMbutton anomaly in vb script editor

« on: March 08, 2013, 12:19:38 PM »

ALSO this is NOT a valid Line in Mach CB

If True DoOEMbutton(310) : message "increment jog"

Just a thought, (;-) TP

3024

General Mach Discussion / Re: Associate script to button while running code

« on: March 08, 2013, 12:08:57 PM »

DoButton(1) 'Pause
While Ismoving()
Wend
DoSpinStop() 'Stop Spindle
DoButton(3) 'Stop
GotoSafeZ()  'Raise Z to SafeZ


(;-) TP

3025

General Mach Discussion / Re: MI2000 CNC machine from 19's year

« on: March 08, 2013, 02:25:07 AM »

how many conductors(wires) is in the Wire that you think is an LPT connection?

(;-) TP

3026

G-Code, CAD, and CAM discussions / Re: Quick bit of gcoding help please

« on: March 08, 2013, 01:43:24 AM »

Alex you are correct that will work that way , I had never thought of it that way.

Good Call (;-),

(;-) TP

3027

G-Code, CAD, and CAM discussions / Re: Quick bit of gcoding help please

« on: March 08, 2013, 01:30:51 AM »

Alex I think he needs the R7 to clear the screws BUT does not want to start the drill function at Z7 but at Z0. Needs a rapid from Z7 to Zo before the cycle restarts.

Hopefully I read it correctly on this one. (;-)

I have a sub program that can do it but SUbs can be strange bedfellows if you are just getting started with Gcode.

Just a thought, (;-) TP

3028

General Mach Discussion / Re: "Allow wav files"

« on: March 07, 2013, 07:50:23 PM »

Turn on the allow wave and allow speach.

From a Mcode  add in the code you want to do.

Playwave plays a Soundfile that you define

Speak uses the window speak function to say the words you defined in the call.

It is in the Mach3 macro programmers manual.

(;-) TP

3029

G-Code, CAD, and CAM discussions / Re: Quick bit of gcoding help please

« on: March 07, 2013, 05:56:35 PM »

I do not know of a way to do what you want OTHER than using SUB Programing and creating a drill cycle with a fast move to Z0 . That is a LOT of screws to have to clear (;-).

(;-) TP

3030

General Mach Discussion / Re: "Allow wav files"

« on: March 07, 2013, 05:53:11 PM »

Yes and YES, Mach3 programers guide.

(;-) TP