Zyklus für Segeringeinstich bei 810D ShopMill

Hallo erst mal,

ich bin neu hier und hab gleich mal eine Frage!?

gibt es eine Möglich keit oder einen Zyklus für die 810D ShopMill Segeringeinstiche zu Programmieren!!?????

die Maschine ist BJ.2004 und ich hab bis jetzt noch keine Möglichkeit gefunden solche über einen Zyklus an der Maschine zu Programmieren!!

Kann man den Zyklus dan - falls es einen gibt in ShopMill aufnehmen???

Bitte um hilfe, denn es kann nicht sein das ich diese immer zu Fuß Programmieren muss!!

So ein Zyklus ist doch vorhanden. Man nehme den gewöhnlichen Kreistaschenzyklus, wobei man nur schlichtet und dabei sofort auf volle Tiefe fährt.

hab ich einmal gemacht!

dann hat die Blödekuh von Fräsmaschine schon in der Mitte der Bohrung Positioniert, aber wo die Kreisbewegung fertig war fährt das ding nicht mehr in die Mitte der Bohrung sonder nur ein bischen frei und dann hoch!!

Das Ende vom Lied war: der Cheff meinte ob ich nicht ganz dicht bin weil ich mit dem Fräser mit dem Eilgang noch oben bin!!!

Seit her mach ich es per Hand und das ist nicht der Sinn

Ich kenn SM nicht. Beim normalen Pocket2 Zyklus fährt der Fräser jedenfalls nach Abschluss auf die Mitte und dann erst hoch.

Ein kleines Parameterprogramm wär doch sicher schnell gemacht.
Da gibt man dann nur ein auf welcher Position, Tiefe und welchen Durchmesser. Solche Scherze wie Drehzahl, Vorschub usw muss man da ja nicht unbedingt reinpacken.

Parameterprogramm???

was meinst du damit??

N40 G0 z2
N45 G1 Z-8 F800
oder was??

Wir haben das bei uns auch, der Fräser fährt nicht in die Mitte zurück nur ein wenig von der Kontur weg und dann hoch.

Ich denke die Programmierer haben an die Zeit gedacht bis er wieder in die Mitte zurück fährt, ist aber manchmal vom Nachteil. Nutenfräser usw...

Segeringeinstiche würde ich den Nutzyklus verwenden.

Parameter PG ist sowas.

%_N_KT_SPF
;$PATH=/_N_SPF_DIR
DEF REAL POSX, POSY, ZAEHLER, WZ_RAD, WZ_DM, WZ_TYP
;***************************************************************
;V 11.04.2008 KREISTASCHE
;***************************************************************
;R10= RUECKZUGSEBENE
;R11= SICHERHEITSEBENE
;R12= REFERENZEBENE
;R13= TASCHENTIEFE
;R14= SCHNITTE, AUFTEILUNG
;R15= TASCHEN DM
;R16= SCHLICHTAUFMASS
;R17= EINTAUCHVORSCHUB
;R18= FRAESVORSCHUB SCHRUPPEN
;R19= FRAESVORSCHUB SCHLICHTEN
;***************************************************************

;VARIABLEN WERTE ZUWEISEN
ZAEHLER=0 ;ZAEHLER IMMER 0
POSX=$AA_IW [X] ;AKTUELLE POS IN X
POSY=$AA_IW [Y] ;AKTUELLE POS IN Y
WZ_RAD=(R15/2)-$P_TOOLR ;RADIUS DES AKTIVEN WZ
WZ_DM=($P_TOOLR*2) ;DM DES AKTIVEN WZ
WZ_TYP=$TC_DP1[$P_TOOLNO,1] ;WZTYP
R14=TRUNC(R14) ;RUNDEN AUF GANZEN ZAHLEN
;****************************************************

;WERTE PRUEFUNG
IF (WZ_TYP <100) OR (WZ_TYP >160) GOTOF FEHLER_WERKZEUGTYP
IF R10 < R11 GOTOF FEHLER_RUECKZUGSEBENE
IF R11 <= R12 GOTOF FEHLER_SICHERHEITSEBENE
IF (R12 > R11) OR (R12 > R10) GOTOF FEHLER_REFERENZEBENE
IF R13 <=0 GOTOF FEHLER_TASCHENTIEFE
IF R14 <=0 GOTOF FEHLER_SCHNITTE
IF R15 <=0 GOTOF FEHLER_TASCHENDM
IF R16 <0 GOTOF FEHLER_SCHLICHTAUFMASS
IF R17 <=0 GOTOF FEHLER_F_TAUCH
IF R18 <=0 GOTOF FEHLER_F_SCHRUP
IF R19 <=0 GOTOF FEHLER_F_SCHLICHT
IF WZ_DM >= R15-1 GOTOF FEHLER_WERKZEUGDM
;****************************************************

CASE (TRUNC($P_AD[25]/1024)MOD 4) OF 0 Gotof Aussen0 1 Gotof Aussen1 2 Gotof Innen2 3 Gotof Innen3 DEFAULT Gotof WASSER
Aussen0: MSG("KUEHLUNG AUS")
M9
Gotof WASSER
Aussen1: MSG("AUSSEN + FLAECHENKUEHLUNG AN")
M8 M51
Gotof WASSER
Innen2: MSG("INNENKUEHLUNG AN")
M7 M53
Gotof WASSER
Innen3: MSG("AUSSEN-INNEN KUEHLUNG AN")
M8 M7 M53
WASSER:
;**************************************************************

G90
G95
G64 CFIN
FFWON

G0 Z=R10
G0 Z=R11
G0 X=POSX Y=POSY
G0 Z=R12

IF R16 == 0 GOTOF ANFANG1
IF R16 > 0 GOTOF ANFANG2

ANFANG1:
STOPRE
ZAEHLER=ZAEHLER+1
G91 G1 Z=-(R13/R14) F=R17*_TEETH
MSG ("KT / DM"<<R15<<" / Z-"<<R13<<"")
G90 G3 X=-WZ_RAD+POSX Y=POSY I=-WZ_RAD/2 J0 F=R18*_TEETH
G3 X=-WZ_RAD+POSX Y=POSY I=WZ_RAD J0 F=R18*_TEETH
G1 X=POSX Y=POSY F=R18*_TEETH
IF ZAEHLER>=R14 GOTOF WEITER1
GOTOB ANFANG1

ANFANG2:
STOPRE
ZAEHLER=ZAEHLER+1
G91 G1 Z=-(R13/R14) F=R17*_TEETH
MSG ("KT SCHRUPPEN / DM"<<R15-R16<<" / Z-"<<R13<<"")
G90 G3 X=-(WZ_RAD-R16)+POSX Y=POSY I=-(WZ_RAD-R16)/2 J0 F=R18*_TEETH
G3 X=-(WZ_RAD-R16)+POSX Y=POSY I=WZ_RAD-R16 J0 F=R18*_TEETH
G1 X=POSX Y=POSY F=R18*_TEETH
IF ZAEHLER>=R14 GOTOF WEITER2
GOTOB ANFANG2

WEITER2:

MSG ("KT SCHLICHTEN / DM"<<R15<<" / Z-"<<R13<<"")
G3 X=-WZ_RAD+POSX Y=POSY I=-WZ_RAD/2 J0 F=R19*_TEETH
G3 X=-WZ_RAD+POSX Y=POSY I=WZ_RAD J0 F=R19*_TEETH
G1 X=POSX Y=POSY F=R19*_TEETH

WEITER1:

G0 Z=R11
G0 Z=R10

GOTOF ENDE
;#######################################################
FEHLER_WERKZEUGTYP:
MSG (" WERKZEUGTYP IST KEIN FRAESER ")
G4 F2
M0
GOTOB FEHLER_WERKZEUGTYP

FEHLER_RUECKZUGSEBENE:
MSG("RUECKZUGSEBENE IST "<<R10<<" ,KLEINER ALS DIE SICHERHEITSEBENE")
G4 F2
M0
GOTOB FEHLER_RUECKZUGSEBENE

FEHLER_SICHERHEITSEBENE:
MSG("SICHERHEITSEBENE IST "<<R11<<" ,KLEINER ALS DIE REFERENZEBENE")
G4 F2
M0
GOTOB FEHLER_SICHERHEITSEBENE

FEHLER_REFERENZEBENE:
MSG("REFERENZEBENE IST "<<R12<<" ,ZU GROSS / RFT"<<R10<<" / SDIS"<<R11<<"")
G4 F2
M0
GOTOB FEHLER_REFERENZEBENE

FEHLER_TASCHENTIEFE:
MSG("TASCHENTIEFE IST "<<R13<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_TASCHENTIEFE

FEHLER_SCHNITTE:
MSG("SCHNITTE IST "<<R14<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_SCHNITTE

FEHLER_TASCHENDM:
MSG("TASCHEN DM IST "<<R15<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_TASCHENDM

FEHLER_SCHLICHTAUFMASS:
MSG("SCHLICHTAUFMASS IST "<<R16<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_SCHLICHTAUFMASS

FEHLER_F_TAUCH:
MSG("EINTAUCHVORSCHUB IST "<<R17<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_F_TAUCH

FEHLER_F_SCHRUP:
MSG("SCHRUPPVORSCHUB IST "<<R18<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_F_SCHRUP

FEHLER_F_SCHLICHT:
MSG("SCHLICHTVORSCHUB IST "<<R19<<" ,POSITIV ANGEBEN")
G4 F2
M0
GOTOB FEHLER_F_SCHLICHT

FEHLER_WERKZEUGDM:
MSG("WZ DM"<<WZ_DM<<" / TASCHEN DM"<<R15<<" ,KLEINERES WZ WAEHLEN")
G4 F2
M0
GOTOB FEHLER_WERKZEUGDM
;################################################
ENDE:

M17

Der Beitrag wurde von CNCFanatiker bearbeitet: 27.07.2023, 11:42 Uhr

@HSC-Fan

wie viele Werkstücke wollt ihr machen??

@Boern

das sind 400 Teile je zwei Stück bei dieser Serie!

aber ich brauch sowas ständig, deshalb such ich jetzt eine alternative für das

N40 G0 z2
N45 G1 Z-8 F800 S2500
N50 G3 ...

Programmieren, Siemens hat doch für fast alles Zücklen!!

Warum kauft ihr kein Werkzeug dafür z.b. das hier

==> klick hier <== (Seite 2)

so in der art hatte unser fräser auch aus gesehen, aber wenn der zahn in der nut noch ist ist das auch mist!!

Wahrscheinlch, weil er sowas eh schon hat. Leider kenn ich mich mit SM nicht aus, auf jeden Fall sollte in der D Steuerung der uraltzyklus Pocket2(...) enthalten sein. Es wär natürlich möglich, dass der mittlerweile geändert wurde. Eventuell könnte ich mir mal den Zyklus anschauen, Vielleicht lässt sich der sowei ändern, dass er zuletzt wieder zur Mitte fährt.
Oder meinen Zyklus soweit von Müll befreien, dass er dafür verwendbar ist.
Da braucht man ja dann keine Berechnung des Schruppwegs, Eingabe der Drehzahl und Vorschub kann man sich ebenso schenken, wie die Tiefenangaben.

Aber generell ist die Methode immer gleich. Anfahren der Bohrungsmitte, auf Tiefe zustellen. Mit G41/2 auf Startpunkt halber Radius und 45° der Bohrung, Viertelkreis zum Startpunkt, einmal rum, viertelkreis raus, mit G40 zurück zum Start. Raus aus der Bohrung. Das ist selbst als selbergeschriebener ZYklus nicht überwältigend aufwendig.

so mach ich es ja die ganze zeit, aber mich nervt das!!

ich lies morgen den zücklus aus uns dann setz ich ihn hier rein!!

@HSC-Fan
du willst einen ganz normalen Axialen Einstich oder ??

@Boern

ja, entweder hab ich einen Gehirnwurm oder ich denke zu kompliziert!!

Lochmitte, rein, Einstich, Lochmitte und raus ohne hängen zubleiben!!

Hallo,



nein er will einen normalen radialen Einstich.
Gruß Keramik

@keramik:

du hast recht Radial soll er sein nicht Axial wie er bei mir war!! ;-)

Fuer dein Problem geht mein folgender Zyklus.




N5 PROC KREIS(REAL _RTP, REAL _RFP, REAL _SDIS, REAL _DM, REAL _VZ, BOOL _F3) SAVE DISPLOF SBLOF

;KREIS SCHLICHTEN MIT ZUSTELLUNG IN Z UND ANFAHR-/ABFAHR-RADIUS
;20.09.2006

;_RTP=Rueckzugsebene
;_RFP=Oberflaeche
;_SDIS=Sicherheitsabstand
;_DM=Durchmesser
;_VZ=Vorschub fuer Tiefenzustellung (0=Eilgang / >0=Vorschub)
;_F3= 0=3facher Vorschub / 1=normaler Vorschub zum wegfahren

N10 DEF REAL Vorschub,VorschubWeg
N15 DEF REAL WZDM
N20 DEF REAL ANFAHR_R

N25 STOPRE
N30 Vorschub=$P_F
N35 WZDM=$P_TOOLR

N40 IF _F3==FALSE
N45 VorschubWeg=Vorschub*3
N50 ENDIF
N55 IF _F3==TRUE
N60 VorschubWeg=Vorschub
N65 ENDIF

N70 STOPRE

N75 IF _DM<=WZDM
N80 MSG("Werkzeug ist zu gross fuer Kreistasche. Abbruch.")
N85 M0
N90 MSG()
N95 RET
N100 ENDIF

N105 IF _RFP>_RTP
N110 MSG("Rueckzugsebene liegt tiefer als Oberflaeche. Abbruch.")
N115 M0
N120 MSG()
N125 RET
N130 ENDIF

N135 IF _SDIS<0
N140 _SDIS=_SDIS*-1
N145 ENDIF

N150 IF _VZ==0
N155 G0 Z=_RFP+_SDIS
N160 G0 Z=_RFP
N165 F=Vorschub
N170 ENDIF

N175 IF _VZ>0
N180 G0 Z=_RFP+_SDIS
N185 G1 Z=_RFP F=_VZ
N190 F=Vorschub
N195 ENDIF

N200 ANFAHR_R=((_DM/2)-WZDM)/2

;MIT ANFAHR-RADIUS
N205 G1 G64
N210 G41 X=IC(_DM/2) Y=IC(0) G247 DISR=ANFAHR_R
N215 G3 I=IC(-_DM/2) J=IC(0)
N220 G1 F=VorschubWeg
N225 G40 X=IC(-_DM/2) Y=IC(0) G248 DISR=ANFAHR_R
N230 F=VORSCHUB
N235 G0 Z=_RTP

N240 SBLON
N245 RET



Der funktioniert garantiert und ist schon lange im Einsatz

Gruss Mario

Hallo Mario:

geilesache Futz wie Hund!!

An alle für Ihre Tipps noch mal Danke!!