Messages

31

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 11, 2015, 12:05:32 AM »

Thanks for the reply.

I thought is was impossible with mach to drive the A and Z axis at the same time using different feed. The moves must be synchronize.

I cut a lot of 1/4, 3/8  and 3/4 stainless tube, many are about 1in long ( 0.818 to 0.968).

I'm worry about wear if the feeder would always move about 1in and then retract 1in and move again 1in.

I never done any programing with variables but I worked on CNC for the last 40 years, I own a Haas CNC mill now that I'm working from my garage.

Again, thanks to take the time to reply, appreciate a lot.

Jeff

For the RPM, it was already in the macro and I want (in a near future) , replace the 2.5HP single phase with a 3 ph motor and a VFD.

Jeff
    

32

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 10, 2015, 10:57:30 PM »

ARE you open to suggestions 

Just a thought, (;-) TP

Sure I am, even if it's coming from you


I am a member here for quite some time and I know what you can do, surprise me every time.

Jeff

33

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 10, 2015, 05:25:40 AM »

OK, I've done my homework.

Here's the screen I have modified for the saw.

 

Sub Main ()

SawKerf=GetUserDRO(1003)
If SawKerf=0 Then
Message("Saw Kerf can't = 0")
Exit Sub
End If

MaterialLength=GetUserDRO(1004)
If MaterialLength=0 Then
Message("Material Length can't = 0")
Exit Sub
End If

SawRPM=GetUserDRO(1005)
If SawRPM=0 Then
Message("Saw RPM can't = 0")
Exit Sub
End If

SawFeed = GetUserDRO(1006)
If SawFeed = 0 Then
Message("Feed can't = 0")
Exit Sub
End If

StartCutHeight=GetUserDRO(1010)
If StartCutHeight=0 Then
Message("Start Cutting height can't = 0")
Exit Sub
End If

EndCutHeight=GetUserDRO(1011)
If EndCutHeight=0 Then
Message("End cutting height can't = 0")
Exit Sub
End If

'************************************

LengthOfPart=GetUserDRO(1001)
If LengthOfPart=0 Then
Message("Length of Part can't = 0")
Exit Sub
End If

NumberOfParts=GetUserDRO(1002)
If NumberOfParts=0 Then
Message("Number of Parts can't = 0")
Exit Sub
End If

If MaterialLength<((SawKerf*NumberOfParts)+(LengthOfPart*NumberOfParts)) Then
Message("Material length is not long enough for the number of parts")
Exit Sub
End If
 

SetUserDRO(1009,0)
p=GetUserDRO(1009)

'***New File
OpenTeachFile "EqualCut.tap"
Code "(EqualCut.tap)"
Code "G20 G50 G64 G90 G94"
If GetUserLED(1006) Then
ActivateSignal(OUTPUT2)
End If
Code "G4 P0.5"
Code "M3 S" &  SawRPM

If p=0 Then
Code " M200   ( Close Feeder Clamp ) " 'Close Feeder Clamp
Code "G00 A "  &   StartCutHeight
Code " M203                     ( Open Saw Clamp ) "   'Open Saw Clamp
If GetUserLED(1001) then
Code "M8"
End If
Code "G00 Z " & LengthOfPart
Code " M202   ( Close Feeded Clamp ) "  ' Close Feeder Clamp
Code "G01 A " & EndCutHeight & " F " & SawFeed 
SetUserDRO(1009,1)
End If

NewZ=LengthOfPart+SawKerf
p=GetUserDRO(1009)

If p>0 Then
 For i=0 To (NumberOfParts-1)
 NewZ=(NewZ+LengthOfPart+SawKerf)
' Code " M200  ( Close Feeder Clamp ) ' Close Feeder Clamp
 Code "G00 A " & StartCutHeight
 Code " M203                    (  Open Saw Clamp ) "  ' Open Sawlamp
 Code "G00 Z " & (NewZ+SawKerf)
 Code " M202  ( Close Saw Clamp ) "  ' Close Saw Clamp
 Code "G01 A " & EndCutHeight & " F " & SawFeed
 Code " M210  ( Counter Increment ) "
 Next i
 Code "G00 A " & StartCutHeight
'SetUserDRO(1009,0)
End If

Code "G00 A0 "
Code "M30 "
CloseTeachFile
Call LoadTeachFile()
'****Exit Wizard back to mach
Call LoadStandardLayout()

End Sub
 

The Stock feeder is 32in long (travel).  What I would like to add to my macro is,

If the next part to cut is longer than the distance from the feeder vise to the end travel switch, then open saw vise, return the feeder vise to zero (start), close saw vise

and resume the cutting process.

By the way, this macro is one I found on this forum and modified to fit my needs.


Thanks for any help, Jeff

34

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 02:43:58 PM »

Thanks for the reply.

I really don't know where to start, VB, Brain or MacroPump.

I don't know if I should try to place codes in my program to monitor what has been cut and what is still available as of material in the feeder.

Z axis is for the feeder and the A axis is for the saw head, I do not program the saw head as a rotational axis, just regular depth of cut.

Should I use the Z move as a variable and add each Z move and store it in a UserDro and when this value is equal to 30in (feeder length),return the feeder to home position?

This sound easy but what if remaining stock is only 15in ?

I also have to add another home switch (adjustable) for the saw head as a safety, just to be sure the feeder would not feed the stock if the blade is down (missed step)

Have to monitor that feature also.

Thanks for any help.

Jeff

35

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:57:28 PM »

Oppppsssss, sorry for the way too large pictures


Jeff

36

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:51:52 PM »

Another one

I'm not very good at VB program, I can do simple things but, when it comes to something like that, I'm completely lost.

I can program it to cut parts easily but, it's very time consuming and not very productive.

Thanks for your replies.


Jeff

37

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:46:22 PM »

More Pics

38

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:45:36 PM »

More Pics

39

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:44:49 PM »

More Pics

40

General Mach Discussion / Re: I have CNC'ed my cold saw

« on: May 07, 2015, 01:43:47 PM »

More Pics