Messages

121

General Mach Discussion / Re: First test on new machine build question

« on: January 09, 2011, 03:11:45 PM »

I had some dumpster nuts on a machine and ever once in a while it would squeak like mad. Some dry lube spay for guns was the ticket. Keep grease away or the dust that gets into it will form an abrasive compound. I will actually wear the screw more than the nut.

122

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 08:35:49 PM »

Naw man go for it and I will look at how you got there... My brain hurts from cad all day. One of the perks of owning your own biz... on weekends.. U get to work.

123

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 08:19:58 PM »

I can make it loop and pull the math out of the gcode but I need to define when to exit the loop and I dont know what I am looking for.

124

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 08:10:31 PM »

Sounds like you got a good understanding of what wrong. Care to take a crack at fixing it? I have yet to play with G-code macros in mach so that is a shot in the dark for me.

125

General Mach Discussion / Re: Tool changer questions

« on: January 08, 2011, 08:07:43 PM »

I don't think a PLC is needed. Its only a few switches and the PP is great for that. The logic is in the macro. The way you attack a problem like this is think how you would instruct a 3 year old to complete the task. Break it all down in its simplest form on what is done to make it work. Don't forget how you know what tool is the first one on startup. I can help you with the code at that point and I am sure other will chime in as well.

126

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 07:54:17 PM »

Ok it dosnt look like its working right for me.. The code outputs point to point so maybe someone could look at it and see where I screwed up..

127

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 07:37:00 PM »

ok.. think I got it

128

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 07:34:50 PM »

Variables are filled... something must be wrong still getting divide by 0

129

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 07:27:15 PM »

makes sense

130

General Mach Discussion / Re: New program for pipe coping

« on: January 08, 2011, 07:16:55 PM »

Maybe someone can take a look at this code...

Code: [Select]

Sub Main()

'(CNC A axis Plasma TUBE Coping routine)
'(Math derivative by Dan Hopper Copyright 2006)

'WIZARD BY WES TREIHAFT

CutTubeD = GetOEMDRO (1006)
UncutTubeD = GetOEMDRO (1016)
TubeThickness = GetOEMDRO (1012)
JointANGLE = GetOEMDRO (1017)
ASTEPDEG = GetOEMDRO (1018)

RO = CutTubeD / 2     
RU = UncutTubeD / 2     
RI = RO - TubeThickness
AF = JointANGLE           
ID = CutTubeD - TubeThickness * 2                   
ASTEPDEG = 2             


SetTicker 20, ""





OpenTeachFile "PIPENOTCHER.tap"
 
Code "%"
Code "G0 G40 G54 G90 G49 G17 G50 G64 G91.1 G94"
Code "G0 A0.000 x0.000 Z1.000 F500"
Code "Z0.0"
Code "M98 P01 L180"
Code "G0  A0.0 X0.0 Z1.0"
Code "M30"
Code "o01"
Code "G1  A" & ASTEPDEG & " X" & (Sqr (RU * 2 - ((RI * Sin (ID)) *2)) /  Sin(AF) -  Tan (90-AF) * RI * Cos(ID))
ID =(ID+2)
ASTEPDEG =(ASTEPDEG +2)
Code "M99"
Code "%"

CloseTeachFile

Call LoadTeachFile()
End Sub

Main

Here is what I am converting...

Code: [Select]

(CNC A axis Plasma TUBE Coping routine)
(Math derivative by Dan Hopper Copyright 2006)
#100= 1.250       (CutTube Diameter)
#101= 1.250       (Uncut Tube Diameter)
#103= .095         ( Tube Thickness )
#104= 45             (Joint ANGLE)
#200 = [#100 / 2]         (RO)
#201 = [#101 / 2]         (RU)
#202 = [#200 - #103]  (RI)
#203 = #104                (AF)
#204 = 0                       (ID)
#300= 2                        (A step in deg)
G0 G40 G54 G90 G49 G17 G50 G64 G91.1 G94
G0 A0.000 x0.000 Z1.000 F500
Z0.000
M98 P01 L180
G0  A0.000 X0.000 Z1.000
M30
o01
G1  A#300 X  [sqrt [#201 **2 - [ [#202 * sin [#204]] **2]] /  sin[#203] -  tan [90-#203] * #202 * cos[#204]]
#204=[#204+2]
#300=[#300+2]
m99
%
I don't understand the "**"

 I am getting :cannot divide by zero when it comes to the line with the math.