Programming a Cone / Taper

[jpcaputo]

Hi, I am hand coding a cone / taper program. Using a ball end mill, leaving everything parametric to be a universal code that can be copy - pasted into another program.

This is the first macro/parametric program for a fadal i have done. I have yet to try it, and would like some feedback as to any mistakes or what to be wary of, and any additions that would be usefull.

It is a 1995 4020HT with a 88HS -4 controller.

The code is below

Thank You in advance

John-Paul

CONE BAL END MILL ONLY
#SETDEG
#CLEAR V80-V99
#V97= ‘BIT DIA
#V96= ‘TAPER ANGLE IN DEGREES
#V95= ‘BASE DIA
#V93= ‘BASE DIST
#V92= ‘TOP DIST
#V91= ‘Z STEP SIZE
#V86= ‘CENT X
#V85= ‘CENT Y
#V84= ‘Z CLEARANCE

#V99=(V97/2)*SIN(V96) ‘X BIT OFFSET POS
#V98=((V97/2)*COS(V96))-(V97/2) ‘Z BIT OFFSET NEG

#V87=INT(ABS((V92-V93)/V91) ‘TOTAL # STEPS

#R1=V86 ‘X LOCATION
#R2=V85 ‘Y LOCATION
#R3=V84 ‘Z CLEARANCE LOCATION
#R4=0 ‘X DIST TO CENTER
Z+R3
X+R1Y+R2

#V90=0 ‘CURRENT STEP

:TAPER

#V89=(V95/2)-((V91*V90)*TAN(90-V96)) ‘X POSITION 0 CENTER
#V88=V93+(V91*V90)+V98 ‘Z ACT POS W/ BIT COMP
#V83=V89+V86-V99 ‘X ACT POS W/ BIT COMP
#V82=-V89
#R1=V83
#R3=V88
Z+R3
X+R1
G3 X+R1 Y+R2 I+R3 J0

IF V90<V87 THEN GOTO :INCREMENT
IF V90>=V87 THEN GOTO :END

:INCREMENT
#V90=V90+1
GOTO :TAPER

:END

[jpcaputo]

Latest version of the code, im trying it, and finding some bugs. I found out that fadal does not have Tangent, just sin, cos and arctan. with that bug found, its working. somewhat...

N1%
N306969(TAPER TEST)
N5F20.
N9M6T3H3L3D3()
N11G0 G40 G90 S750 M3
N13(CONE BAL END MILL ONLY)
N15(SET DEGREES)
N19#V97=.375'BIT DIA
N21#V96=30. 'TAPER ANGLE IN DEGREES
N23#V95=2. 'BASE DIA
N25#V93=3. 'BASE DIST
N27#V92=4. 'TOP DIST
N29#V91=.5 'Z STEP SIZE
N31#V86=0. 'CENT X
N33#V85=0. 'CENT Y
N35#V84=4.25 'Z CLEARANCE
N39#V99=(V97/2)*SIN(V96) 'X BIT OFFSET POS
N41#V98=((V97/2)*COS(V96))-(V97/2) 'Z BIT OFFSET NEG
N45#V87=INT(ABS((V92-V93)/V91)) 'TOTAL # STEPS
N47#V90=0. 'CURRENT STEP
N49#R1=V86 'X LOCATION
N51#R2=V85 'Y LOCATION
N53#R3=V84 'Z CLEARANCE LOCATION
N55#R4=V86-(V95/2) 'X DIST TO CENTER
N57Z+R3
N59X+R1 Y+R2
N61#:TAPER
N63#PRINT',V87,'
N65#PRINT',V90,'
N69#V80=V95/2
N70#V81=(V91*V90)*(SIN(90-V96)/COS(90-V96))
N71#V89=V80-V81 'X POSITION 0 CENTER
N73#V88=V93+(V91*V90)+V98 'Z ACT POS W/ BIT COMP
N75#V83=V86-V89-V99 'X ACT POSI W/ BIT COMP
N77#V82=-V89
N79#R1=V83
N81#R3=V88
N82#R4=-V89
N83Z+R3
N85X+R1
N87G3 X+R1 Y+R2 I+R4 J0
N91#IF V90<V87 THEN GOTO:INC
N93#IF V90>=V87 THEN GOTO:END
N97#:INC
N99#V90=V90+1
N101#GOTO:TAPER
N105#:END
N109Z2.
N111M5
N113M30
%

[Neal]

I have some spiral and conical spiral macros that I wrote years ago. If you e-mail me I'll send you a copy. I'll just need to find them first.

xyzpro@sbcglobal.net

Neal

[jpcaputo]

Thank You Neal,

Ill take you up on the offer and sent you an email, im interested in seeing how a pro writes macros for these applications.

You also might want to edit your post to not have your email, since there are lots of bots on the net that look for email addresses to send spam to.

I just got the code running, not sure about putting the right angle on the bot to the place on the part. havent tried running a part, just dry runs.

N15(SET DEGREES)
N19#V97=.375'BIT DIA
N21#V96=60. 'TAPER ANGLE IN DEGREES
N23#V95=2. 'BASE DIA
N25#V93=3. 'BASE DIST
N27#V92=4. 'TOP DIST
N29#V91=.5 'Z STEP SIZE
N31#V86=0. 'CENT X
N33#V85=0. 'CENT Y
N34#V90=1. 'CURRENT STEP
N35#V84=4.25 'Z CLEARANCE
N39#V99=(V97/2.)*SIN(V96) 'X BIT OFFSET POS
N41#V98=((V97/2.)*COS(V96))-(V97/2.) 'Z BIT OFFSET NEG
N45#V87=INT(ABS((V92-V93)/V91)) 'TOTAL # STEPS
N49#R1=V86 'X LOCATION
N51#R2=V85 'Y LOCATION
N53#R3=V84 'Z CLEARANCE PLANE
N55#R4=V86+(V95/2.) 'X DIST TO CENTER UNCOMP
N57G0Z+R3
N59G0X+R1 Y+R2
N61#:TAPER
N63#PRINT',V87,'
N65#PRINT',V90,'
N69#V80=(-V95/2.)
N70#V81=(V91*(V90-1))*(COS(V96)/SIN(V96))
N71#V89=V80+V81 'X POSITION 0 CENTER
N73#V88=V93+(V91*(V90-1))+V98 'Z ACT POS W/ BIT COMP
N75#V83=V86+V89-V99 'X ACT POSI W/ BIT COMP
N77#V82=V89
N79#R1=V83
N81#R3=V88
N82#R4=-(V89-V99)
N83Z+R3
N85X+R1
N87G3 X+R1 Y+R2 I+R4 J0
N91#IF V90<V87 THEN GOTO:INC
N93#IF V90>=V87 THEN GOTO:END
N97#:INC
N99#V90=V90+1.
N101#GOTO:TAPER
N105#:END

[Neal]

People would be amazed at how effective redirecting spammers crap back on them selves can be. Whata would tie up some idiots server any faster?