Makroprogrammierung Konus/Kegel

Servus Leute.

Ich möchte in eine Ø20 Mantelfläche einen Konus fräsen, dazu würde ich ein Makroprogramm bevorzugen, mit dem ich auch den Kegelwinkel und Zustellttiefe ändern könnte. Den Konus würde ich gerne mit einem Ø4 Kugelfräser mit Radiuskompensation und weichem Anfahren fräsen. Das Vorbohren geschieht durch einen konischen Bohrer, somit bräuchte ich nur Schlichten.
Es würde mich sehr freuen wenn mir jemand von euch helfen könnte.
So weit bin ich schon mit dem Makro :-)

(ANGABEN)

#501=7.5(WINKEL VOM KONUS)
#502=10(FRAESTIEFE IN X)
#503=5.0(ENDDURCHMESSER)
#504=-0.1(ZUSTELLUNG IN X)

Im Anhang noch eine schnelle Skizze, danke

Der Beitrag wurde von vtiweedy bearbeitet: 31.10.2014, 22:43 Uhr

Ganz netter Anfang
Aaaaaalso.
Zustellebene ist X ? Also Y/Z Ebene.
Dann gibst du den Enddurchmesser an. Muss das so sein ?
Mit Enddruchmesser, Winkel und Höhe ließe sich der obere Durchmesser freilich im Makro berechnen. Wäre es nicht möglich den Oberen Durchmesser direkt einzugeben ? Ich meine weil du ja Zeichnung hast ...
Das mit dem weich ein und ausfahren würde ich bei Fräser D4 und Enddurchmesser D5 lassen. Ebenso mit Radiuskompensation G41 oder G42. Bei dem Fräserdurchmesser und eben wieder dem Enddurchmesser gibts da schonmal Fehlermeldung ...
Müsste man freilich probieren

Richtig Y/Z Ebene.

Ich kann den Startdurchmesser eingeben, den ich auch von Hand berechnen könnte. Auf der Zeichnung habe ich nur den Enddurchmesser.

Also auf G41/G42 könnte ich noch verzichten, aber weiches anfahren wäre mir wichtig, da ich da eine sehr gute Oberfläche brauche.

Ahja gut.
Nur unterer Durchmesser auf der Zeichnung. Dann wird der auch genommen.
Radiuskompensation raus, aber weich ein und ausfahren wegen Oberfläche.
Könnte man mit konischer Helix probieren oder ?

Damit ist soweit alles klar.

Klar mit einer Helix wäre das noch idealer, daran habe ich noch garnicht gedacht, da ich mit sowas noch nie zu tun hatte.

Hier was zum probieren:

%
O9055(Helix-Konus);
;
(C= #3 =Sicherheitsabstand);
(T= #20 =Fräserdurchmesser);
(A= #1 =Anfangshöhe);
(H= #11 =Tiefe_Absolut_X);
(D= #7 =unterer_Durchmesser);
(W= #23 =Konuswinkel);
(K= #6 =Zustellung pro Umdrehung);
(F= #9 =Vorschub mm/min);
;
#500=
#505=[#1-#11]; (Höhe_Konus)
#506=[FUP[#505/#6]]; (Anzahl_Zustellumdrehungen)
#507=[#11+#506*#6]; (Tatsächliche Anfangshöhe)
#508=[#23/2]; (Konuswinkel /2)
#509=[[#507*[TAN[#508]]]-[#20/2]]; (Anfangsradius)
#510=[#509-[[[#507-#6/2]*[TAN#508]]]] (Abnahme_Radius_Halbkreis)
#101=#509;
;
#33=0; (Zähler)
;
G80;
G90 G94;
G0 X[#507-#20/2];
G91 G1 Z#509 F#9;
WHILE[#33GE0#506]DO1;
#101=[#101-#510];
G3 X-[#6/2] Z-[#101*2-#510] R#101;
#33=[#33+1];
#101=#101-#510];
G3 X-[#6/2] Z[#101*2-#510] R#101;
END1;
G3 Z-[#101*2] R#101;
G3 Z[#101*2] R#101;
G1 Z-#101;
G90;
G0 X#3;
G80;
M99;
%

Habs so geschrieben, dass es auf den meisten Fanuc's laufen sollte.
Der Radius kann jeweils nicht ganz stimmen. Dazu bräuchte es eine Fadenkurve.
Weiß jetzt aber nicht wie das geht. Ohne gewohnte Dokumentation und Maschine eher schwierig.
Probiers aus und schreib welche Fehler es eventeull gibt.

Und schon seh ich einen Fehler ...

While[#33GE#506]DO1;

Ist richtig. Nicht GE0

Vielen Dank werde ich nächste Woche mal testen.
Würdest du mir bitte noch eine Lösung ohne Helix posten? Dann würde ich das auch gleich versuchen.

Und vielen Dank nochmal

Ist nicht viel umzuschreiben. Aber heute nicht mehr.
Gute Nacht .

%
O9056(Helix-Konus);
;
(C= #3 =Sicherheitsabstand X+);
(T= #20 =Fräserdurchmesser);
(A= #1 =Anfangshöhe);
(H= #11 =Tiefe_Absolut_X-);
(D= #7 =unterer_Duchmesser);
(W= #23 =Konuswinkel);
(K= #6 =Zustellung pro Umdrehung);
(F= #9 =Vorschub mm/min);
;
#500=
#505=[#1+#11]; (Höhe_Konus)
#506=[FUP[#505/#6]]; (Anzahl_Zustellungen)
#507=[#11+#506*#6]; (Tatsächliche Anfangshöhe)
#508=[#23/2]; (Konuswinkel /2)
#509=[[#507*[TAN[#508]]]-[#20/2]]; (Anfangsradius)
#510=[#509-[[[#507-#6]*[TAN[#508]]]]] (Abnahme_Radius/Zustellung)
#101=#509;
;
#33=0; (Zähler)
;
G80;
G90 G94;
G0 X#3
G1 X[#507-#20/2] F2000;
G91 G1 Z#509 F#9;
G3 Z#509 Y0 R[#509/2];
G3 Z-[#509*2] R#509;
G3 Z[#509*2] R#509;
G3 Z-#509 Y0 R[#509/2];
#101 = [#509-#510]
WHILE[#33GE0#506]DO1;
G3 Z-[#101/2] Y0 X-#6 R[#101/2];
G3 Z[#101*2] R#101;
#33=[#33+1];
G3 Z-[#101*2] R#101;
#101 =[#101-#510];
G3 Z[#101/2+#510] Y0 R[#101/2+#510];
END1;
G90
G0 X#3;
G80;
M99;
%

Bitteschön. Sollte geschmeidig durchlaufen wenn ich mich nicht vertan habe
Bei #505 Berechnung ist beim Makro O9055 noch die Rechnung (- = +) zu ändern wenn mei H X- angegeben wird.

Vielen Dank,
werde ich testen sobald ich Zeit habe.

Der Beitrag wurde von vtiweedy bearbeitet: 04.11.2014, 12:51 Uhr

%
O9056(Konus_Abzeilen);
;
(C= #3 =Sicherheitsabstand X+);
(T= #20 =Fräserdurchmesser);
(A= #1 =Anfangshöhe);
(H= #11 =Tiefe_Absolut_X-);
(D= #7 =unterer_Duchmesser);
(W= #23 =Konuswinkel);
(K= #6 =Zustellung pro Umdrehung);
(F= #9 =Vorschub mm/min);
;
#505=[#1+#11]; (Höhe_Konus)
#506=[FUP[#505/#6]]; (Anzahl_Zustellungen)
#507=[#11+#506*#6]; (Tatsächliche Anfangshöhe)
#508=[#23/2]; (Konuswinkel /2)
#509=[[#507*[TAN[#508]]]-[#20/2]]; (Anfangsradius)
#510=[#509-[[[#507-#6]*[TAN[#508]]]]]; (Abnahme_Radius/Zustellung)
#101=#509;
;
#33=0; (Zähler)
;
G80;
G90 G94;
G0 X#3;
G1 X[#507-#20/2] F2000;
G91 G1 Z#509 F#9;
G3 Z#509 Y0 R[#509/2];
G3 Z-[#509*2] R#509;
G3 Z[#509*2] R#509;
G3 Z-#509 Y0 R[#509/2];
#101 = [#509-#510];
WHILE[#33GE0#506]DO1;
G3 Z-[#101/2] Y0 X-#6 R[#101/2];
G3 Z[#101*2] R#101;
#33=[#33+1];
G3 Z-[#101*2] R#101;
#101 =[#101-#510];
G3 Z[#101/2+#510] Y0 R[#101/2+#510];
END1;
G90;
G0 X#3;
G80;
M99;
%

Nochmal korrigiert. Paar EOB' s haben gefehlt und so ...
Vielleicht hab ich morgen Zeit damit ich selber teste.

Sodala.
Makro probiert --> Ging nicht
Habs aber zu laufen gebracht. Auf der Maschine gehts iwie leichter

Hier das fertige, getestete Makro:

%
O9056(Konik_Abzeilen);
;
(C= #3 =Sicherheitsabstand X+);
(T= #20 =Fraeserdurchmesser);
(A= #1 =Anfangshoehe);
(H= #11 =Tiefe_Absolut_X-);
(D= #7 =unterer_Duchmesser);
(W= #23 =Konuswinkel);
(K= #6 =Zustellung pro Umdrehung);
(F= #9 =Vorschub mm/min);
;
#105 =#11-#1;
#106 =FUP[#105/#6];
#107 =#11-[#106*#6];
#108 =[#23/2];
#109 =#107*TAN[#108] + [#7/2] - [#20/2];
#110 =[[#109-[#7/2]]/#106];
#101 =#109;
;
#33=0;
;
G90 G94;
G0 X#3;
G1 X[#107-#20/2] F2000;
G91 G1 F#9;
WHILE[#33 LT ABS[#106]] DO1;
G3 Y-#101 J-[#101/2] R[#101/2];
G3 Y[#101*2] J#101 R#101;
#33=[#33+1];
G3 Y-[#101*2] J-#101 R#101;
G3 Y#101 X-#6 J[#101/2] R[#101/2];
#101 =#101-#110;
END1;
G3 Y-#101 J-[#101/2] R[#101/2];
G3 Y[#101*2] J#101 R#101;
G3 Y-[#101*2] J-#101 R#101;
G3 Y#101 J[#101/2] R[#101/2];
;
G90;
G0 X#3;
G80;
M99;
%

kann man auch so was ausprobierene (Besonders wenn man 840D kennt)
;KEGEL INNEN HERSTELEN MIT VR-FRAESER-3

;BERECHNUNGEN+UEBERWACHUNG ENDDURCMESSER
;KANN MAN AUCH AUF DIE TIEFE UMPROGRAMMIEREN

;NP X+Y=MITTE Z=OBEN


;===> T="IK-BOHRER-5"

E_DR_PEC(1,0,0,"T117_IK-BOHRER-5","VR-FRAESER-3",1,300,1,70,2,40,-15,90,8,90,1.2,0,1,1.4,0.5,100);*RO*
_E_P001: E_PS_SEQ(1,0,0,0,90,0,90,0,90,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,,0,0)
;*RO*


T=VR-FRAESER-3"

;NP MUSS KONUS-MITTE GESETZT WERDEN
;-------------------------------------------------------------------------------
;EINGRIFSPUNKT KAN MAN AUSRECHNEN
;a ==> VERSATZ RADIUS, WO 1.5=WERKZEUGRADIUS, BZW. ECKENRADIUS
;R1=(1.5*COS(R12))
;b ==> VERSATZ LAENGE, WO 1.5=WERKZEUGRADIUS, BZW. ECKENRADIUS
;R2=(1.5*SIN(R12))
;OFFN=R1 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
;TOFFL=R2 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT

;OFFN=-1.5+1.37 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
;TOFFL=-1.03 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT
;-------------------------------------------------------------------------------

;ALGEMEINE ANGABEN

KEGEL11: ;#SM;*RO*
R4=1000 ;ANFANGSVORSCHUB
R5=10000 ;DREHZAHL

R6=0.2 ;ZUSTELLUNG PRO UMDREUNG\360'
R7=0.0005 ;ZUSTELLUNG PRO SRITT
R8=-0.005 ;VORSCHUBBERECHNUNG %/UMDEUNG "+"=F-ERHOHEN; "-"=F-MINDERN

R10=10 ;ANFANGSDURCHMESSER
R11=4.7 ;ENDDURCHMESSER
R12=24.56 ;KEGELWINKEL AN EINER SEITE/GESAMT KEGELWINKEL/2
R1=(1.5*COS(R12)) ;Sieh "a"
R2=(1.5*SIN(R12)) ;Sieh "b"
OFFN=-1.5+R1 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
TOFFL=-1.5+R2 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT

; **** Berechnungen ****
R15=R10/2+0.1 ;RADIUS 1
R16=R11/2-0.1 ;RADIUS 2
R3=(R15-R10/2)/TAN(R12) ;ANFANGSTIEFE
R17=(360*R7)/R6 ;WINKEL/SRITT
R18=0+R17 ;ANFANGWINKEL/AKTUELER WINKEL/WARIABEL-UMDREUNG
R19=-((R10-R11)/2)/TAN(R12) ;KONUS-ENDTIEFE==> LAENGENVERSATZ BEACHTEN
R19=TRUNC(R19*1000)/1000 ;PARAM R19 AUF 0.001 ABSNEIDEN
R9=1+(R8*R17)/360 ;F-BERECHNUNG %/SCHRITT

MSG (" Anfangsdurchmesser="<<R10<<" Enddurchmesser="<<R11<<" Konuswinkel="<<R12<<" Zustellung="<<R6<<" Entiefe Z="<<R19<<"")

;NP=MITE KONUS
TRANS X0 Y0 Z0 ;#SM;*RO*

;===> BEARBEITUNG <===
G0 X0 Y0 S=R5 M3
G0 Z2 F100
G1 Z=R3
G41
G1 X=R15
KEGEL1: ;#SM;*RO*
R15=R15-TAN(R12)*R7 ;AKTUELER RADIUS
R1=R15*COS(R18)
R2=R15*SIN(R18)
R18=R18+R17
R3=R3-R7
R4=R4*R9
G1 X=R1 Y=R2 Z=R3 F=R4
KEGEL_1: ;#SM;*RO*

SPRUNGBED1: ;#SM;*RO*
REPEAT KEGEL1 KEGEL_1 P=1 ;#SM;*RO*
IF R16<(R15) GOTOB SPRUNGBED1
G40
G1 X0 Y0
G0 Z10

KEGEL2: ;#SM;*RO*
TRANS X5.5 Y2 Z0 ;#SM;*RO*

R1=R18/360 ;ANZAHL UMDREUNGEN BIS VERTIGMASS
OFFN=0 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
TOFFL=0 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT
TRANS X0 Y0 Z0 ;#SM;*RO*
M30

und ausen

;KEGEL AUSEN HERSTELEN MIT VR-FRAESER-12
;BERECHNUNGEN+UEBERWACHUNG ENDDURCMESSER
;KANN MAN AUCH AUF DIE TIEFE UMPROGRAMMIEREN

T=VR-FRAESER-12
m6
;NP MUSS KONUS-MITTE GESETZT WERDEN
;-------------------------------------------------------------------------------
;ALGEMEINE ANGABEN

KEGEL11: ;#SM;*RO*
R4=1500 ;ANFANGSVORSCHUB
R5=10000 ;DREHZAHL

R6=0.25 ;ZUSTELLUNG PRO UMDREUNG\360'
R7=0.001 ;ZUSTELLUNG PRO SCHRITT
R8=0.001 ;VORSCHUBBERECHNUNG %/UMDEUNG "+"=F-ERHOHEN; "-"=F-MINDERN

R10=67.65 ;ANFANGSDURCHMESSER
R11=90.5 ;ENDDURCHMESSER
R12=60 ;KEGELWINKEL AN EINER SEITE => GESAMT KEGELWINKEL/2
R1=(6*COS(R12)) ;Sieh "a"
R2=(6*SIN(R12)) ;Sieh "b"
OFFN=-6+R1 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
TOFFL=-6+R2 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT

; **** Berechnungen ****
R15=R10/2-1.5 ;RADIUS 1
R16=R11/2 ;RADIUS 2
R3=(R10/2-R15)/TAN(R12) ;ANFANGSTIEFE
R17=-(360*R7)/R6 ;WINKEL/SRITT
R18=90+R17 ;ANFANGWINKEL/AKTUELER WINKEL/WARIABEL-UMDREUNG
R19=((R10-R11)/2)/TAN(R12) ;KONUS-ENDTIEFE==> LAENGENVERSATZ BEACHTEN
R19=TRUNC(R19*1000)/1000 ;PARAM R19 AUF 0.001 ABSNEIDEN
R9=1-(R8*R17)/360 ;F-BERECHNUNG %/SCHRITT

MSG (" Anfangsdurchmesser="<<R10<<" Enddurchmesser="<<R11<<" Konuswinkel="<<R12<<" Zustellung="<<R6<<" Entiefe Z="<<R19<<"")
STOPRE

;NP=MITE KONUS
TRANS X0 Y0 Z0 ;#SM;*RO*

;===> BEARBEITUNG <===
G0 X=-R16 Y=R16+10 S=R5 M3
G0 Z2 F500
G1 Z=R3
G41
G1 Y=R15
G1 X=0
KEGEL1: ;#SM;*RO*
R15=R15+TAN(R12)*R7 ;AKTUELER RADIUS
R1=R15*COS(R18)
R2=R15*SIN(R18)
R18=R18+R17
R3=R3-R7
R4=R4*R9
G1 X=R1 Y=R2 Z=R3 F=R4
KEGEL_1: ;#SM;*RO*
SPRUNGBED1: ;#SM;*RO*
REPEAT KEGEL1 KEGEL_1 P=1 ;#SM;*RO*
IF R15<(R16) GOTOB SPRUNGBED1

G2 X=-R1 Y=-R2 I=AC(0) J=AC(0)
G2 X=R1 Y=R2 I=AC(0) J=AC(0)
G2 AP=90
G1 X10
G40
G1 Y=R16+15
G0 Z10
KEGEL2: ;#SM;*RO*

R1=R18/(-360) ;ANZAHL UMDREUNGEN BIS VERTIGMASS
OFFN=0 ; WZ-RADIUS OFFSET (KORREKTUR)/EIGRIFSPUNKT
TOFFL=0 ;WZ-LAENGE OFFSET (KORREKTUR)/EINGRIFSPUNKT
M30

Ich muss einen Konus Programmieren und bin auf diesen Eintrag gestossen.
Doch leider habe ich absolut keine Ahnung was ich wie und wo bei diesem Makro einfügen muss. Und kann ich es gerade so direkt in die Maschine laden? Hab mich noch nie richtig mit der Makro Programmierung beschäftigt und bin deshalb auf eure Hilfe angewiesen.

Ich habe zum Konus folgende Masse:
oberer Durchmesser: 50mm
unterer Durchmesser: 16mm
Winkel: 60 Grad (30Grad)

Habe ein Programm das mit einem CAM gemacht wurde, doch das macht mir den Konus nicht rund da alles nur Linien sind und keine Radien.

Besten Dank für eure Hilfe.

Gruss Marcel